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

[Frode Vatvedt Fjeld]

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

Modified Files:
	primitive-functions.lisp 
Log Message:
Removed some dead code.

Date: Wed Sep 22 16:48:27 2004
Author: ffjeld

Index: movitz/losp/muerte/primitive-functions.lisp
diff -u movitz/losp/muerte/primitive-functions.lisp:1.43 movitz/losp/muerte/primitive-functions.lisp:1.44
--- movitz/losp/muerte/primitive-functions.lisp:1.43	Fri Sep 17 13:12:57 2004
+++ movitz/losp/muerte/primitive-functions.lisp	Wed Sep 22 16:48:27 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Oct  2 21:02:18 2001
 ;;;;                
-;;;; $Id: primitive-functions.lisp,v 1.43 2004/09/17 11:12:57 ffjeld Exp $
+;;;; $Id: primitive-functions.lisp,v 1.44 2004/09/22 14:48:27 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -325,55 +325,6 @@
     (:testl :edi :edi)			; clear ZF
    search-failed
     (:ret)))				; success: ZF=0, eax=value
-
-
-(define-primitive-function malloc-pointer-words ()
-  "Stupid allocator.. Number of words in EAX/fixnum.
-Result in EAX, with tag :other."
-  (with-inline-assembly (:returns :multiple-values)
-    (:movl :eax :ebx)
-    (:locally (:movl (:edi (:edi-offset nursery-space)) :eax))
-    (:testb #xff :al)
-    (:jnz '(:sub-program (not-initialized)
-	    (:int 110)
-	    (:halt)
-	    (:jmp 'not-initialized)))
-    (:addl 4 :ebx)
-    (:andb #xf8 :bl)
-    (:movl (:eax 4) :ecx)		; cons pointer to ECX
-    (:leal (:ebx :ecx) :edx)		; new roof to EDX
-    (:cmpl :edx (:eax))			; end of buffer?
-    (:jl '(:sub-program (failed)
-	   (:int 112)
-	   (:halt)
-	   (:jmp 'failed)))
-    (:movl :edx (:eax 4))		; new cons pointer
-    (:leal (:eax :ecx 6) :eax)
-    (:ret)))
-
-;;;(define-primitive-function malloc-non-pointer-words ()
-;;;  "Stupid allocator.. Number of words in EAX/fixnum.
-;;;Result in EAX, with tag 6."
-;;;  (with-inline-assembly (:returns :multiple-values)
-;;;    (:movl :eax :ebx)
-;;;    (:locally (:movl (:edi (:edi-offset nursery-space)) :eax))
-;;;    (:testb #xff :al)
-;;;    (:jnz '(:sub-program (not-initialized)
-;;;	    (:int 110)
-;;;	    (:halt)
-;;;	    (:jmp 'not-initialized)))
-;;;    (:addl 7 :ebx)
-;;;    (:andb #xf8 :bl)
-;;;    (:movl (:eax 4) :ecx)		; cons pointer to ECX
-;;;    (:leal (:ebx :ecx) :edx)		; new roof to EDX
-;;;    (:cmpl :edx (:eax))			; end of buffer?
-;;;    (:jl '(:sub-program (failed)
-;;;	   (:int 112)
-;;;	   (:halt)
-;;;	   (:jmp 'failed)))
-;;;    (:movl :edx (:eax 4))		; new cons pointer
-;;;    (:leal (:eax :ecx 6) :eax)
-;;;    (:ret)))
 
 (define-primitive-function get-cons-pointer ()
   "Return in EAX the next object location with space for EAX words, with tag 6.