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@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.