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

[Frode Vatvedt Fjeld]

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

Modified Files:
	symbols.lisp 
Log Message:
Added -non-header variation of the malloc primitive-functions.

Date: Thu Nov 25 17:46:02 2004
Author: ffjeld

Index: movitz/losp/muerte/symbols.lisp
diff -u movitz/losp/muerte/symbols.lisp:1.26 movitz/losp/muerte/symbols.lisp:1.27
--- movitz/losp/muerte/symbols.lisp:1.26	Tue Nov 23 17:09:34 2004
+++ movitz/losp/muerte/symbols.lisp	Thu Nov 25 17:46:01 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Sep  4 23:55:41 2001
 ;;;;                
-;;;; $Id: symbols.lisp,v 1.26 2004/11/23 16:09:34 ffjeld Exp $
+;;;; $Id: symbols.lisp,v 1.27 2004/11/25 16:46:01 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -148,8 +148,8 @@
   (let ((sxhash (sxhash name)))
     (macrolet
 	((do-it ()
-	   `(with-non-pointer-allocation-assembly (6 :fixed-size-p t
-						     :object-register :eax)
+	   `(with-non-header-allocation-assembly
+		(6 :fixed-size-p t :object-register :eax)
 	      (:addl ,(- (movitz:tag :symbol) (movitz:tag :other)) :eax)
 	      (:load-lexical (:lexical-binding package) :ebx)
 	      (:movl :ebx (:eax (:offset movitz-symbol package)))
@@ -182,8 +182,8 @@
   (if (or (eq nil symbol)
 	  (not copy-properties))
       (%create-symbol (symbol-name symbol))
-    (with-allocation-assembly (6 :object-register :eax
-				 :fixed-size-p t)
+    (with-non-header-allocation-assembly
+	(6 :object-register :eax :fixed-size-p t)
       (:addl 1 :eax)
       (:load-lexical (:lexical-binding symbol) :ebx)
       ;; 0
@@ -204,7 +204,6 @@
       ;; 5
       (:movl (:ebx #.(cl:- (movitz:tag :symbol)) 20) :ecx)
       (:movl :ecx (:eax #.(cl:- (movitz:tag :symbol)) 20)))))
-
 
 (defun symbol-flags (symbol)
   (etypecase symbol