[movitz-cvs] CVS update: movitz/losp/los0-gc.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	los0-gc.lisp 
Log Message:
Fixed nasty bug in new-fast-cons and new-malloc-clumps: Check the
space-limit _before_ initializing the to-be-allocated object. Sigh.

Date: Tue Apr  6 19:47:26 2004
Author: ffjeld

Index: movitz/losp/los0-gc.lisp
diff -u movitz/losp/los0-gc.lisp:1.3 movitz/losp/los0-gc.lisp:1.4
--- movitz/losp/los0-gc.lisp:1.3	Tue Apr  6 09:38:21 2004
+++ movitz/losp/los0-gc.lisp	Tue Apr  6 19:47:26 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Feb 21 17:48:32 2004
 ;;;;                
-;;;; $Id: los0-gc.lisp,v 1.3 2004/04/06 13:38:21 ffjeld Exp $
+;;;; $Id: los0-gc.lisp,v 1.4 2004/04/06 23:47:26 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -59,27 +59,14 @@
   (with-inline-assembly (:returns :eax)
     (:locally (:movl (:edi (:edi-offset nursery-space)) :edx))
     (:movl (:edx 2) :ecx)
-    (:movl :eax (:edx :ecx 2))
-    (:movl :ebx (:edx :ecx 6))
-    (:leal (:edx :ecx 3) :eax)
     (:cmpl #x3fff4 :ecx)
     (:jge '(:sub-program () (:int 112)))
-    (:addl 8 :ecx)
-    (:movl :ecx (:edx 2))
-    (:ret)))
-
-(defun new-fast-cons (car cdr)
-  (with-inline-assembly (:returns :eax)
-    (:compile-two-forms (:eax :ebx) car cdr)
-    (:locally (:movl (:edi (:edi-offset nursery-space)) :edx))
-    (:movl (:edx 2) :ecx)
     (:movl :eax (:edx :ecx 2))
     (:movl :ebx (:edx :ecx 6))
     (:leal (:edx :ecx 3) :eax)
-    (:cmpl #x3fff4 :ecx)
-    (:jge '(:sub-program () (:int 112)))
     (:addl 8 :ecx)
-    (:movl :ecx (:edx 2))))
+    (:movl :ecx (:edx 2))
+    (:ret)))
 
 (defun new-malloc-clumps (clumps)
   (check-type clumps (integer 0 200))