[movitz-cvs] CVS update: movitz/losp/muerte/scavenge.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv28195

Modified Files:
	scavenge.lisp 
Log Message:
Remove unused new-code-vector.

Date: Sat Jan  7 22:40:13 2006
Author: ffjeld

Index: movitz/losp/muerte/scavenge.lisp
diff -u movitz/losp/muerte/scavenge.lisp:1.54 movitz/losp/muerte/scavenge.lisp:1.55
--- movitz/losp/muerte/scavenge.lisp:1.54	Sun Aug 28 23:13:07 2005
+++ movitz/losp/muerte/scavenge.lisp	Sat Jan  7 22:40:12 2006
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Mon Mar 29 14:54:08 2004
 ;;;;                
-;;;; $Id: scavenge.lisp,v 1.54 2005/08/28 21:13:07 ffjeld Exp $
+;;;; $Id: scavenge.lisp,v 1.55 2006/01/07 21:40:12 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -362,8 +362,7 @@
 	      (scavenge-find-code-vector function
 					 (stack-frame-ref nil eip-index 0 :location)
 					 0 interrupted-esi
-					 nil))
-	     (new-code-vector (map-instruction-pointer function eip-index old-code-vector)))
+					 nil)))
 	;; (when atomically (we should be more clever about the stack..))
 	(multiple-value-bind (x0-location x0-tag)
 	    (stack-frame-ref nil next-frame-bottom 0 :signed-byte30+2)