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

Modified Files: special-operators.lisp Log Message: This rather substantial check-in is a clean-up of all things related to dynamic memory allocation. In particular, the separation between the muerte kernel with its 'default' memory management (which simply allocates objects consecutively until it runs out) and the los0 GC implementation is improved.

Date: Thu Jul 15 14:06:28 2004 Author: ffjeld

Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.27 movitz/special-operators.lisp:1.28 --- movitz/special-operators.lisp:1.27 Wed Jul 14 17:29:19 2004 +++ movitz/special-operators.lisp Thu Jul 15 14:06:28 2004 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.27 2004/07/15 00:29:19 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.28 2004/07/15 21:06:28 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -553,11 +553,16 @@ (setq side-effects t)) (setq modifies (modifies-union modifies sub-modifies)) code)))) - (setf (assembly-macro-expander :call-global-constant amenv) + (setf (assembly-macro-expander :call-global-pf amenv) #'(lambda (expr) (destructuring-bind (name) (cdr expr) `((:globally (:call (:edi (:edi-offset ,name)))))))) + (setf (assembly-macro-expander :call-local-pf amenv) + #'(lambda (expr) + (destructuring-bind (name) + (cdr expr) + `((:locally (:call (:edi (:edi-offset ,name)))))))) (setf (assembly-macro-expander :warn amenv) #'(lambda (expr) (apply #'warn (cdr expr))