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(a)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)