Commit fe5b8c6c authored by wlott's avatar wlott
Browse files

Store the updated allocation pointer back into *allocation-pointer*.

parent e4b9e0be
......@@ -7,7 +7,7 @@
;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/rt/alloc.lisp,v 1.2 1991/04/04 13:51:42 chiles Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/rt/alloc.lisp,v 1.3 1991/04/11 14:49:44 wlott Exp $
;;;
;;; Stuff to handle allocating simple objects.
;;;
......@@ -90,4 +90,5 @@
`((inst cal alloc alloc (pad-data-block ,size)))))
,@(when need-unbound-marker
`((inst li temp unbound-marker-type)))
,@(init-forms)))))))
,@(init-forms)
(store-symbol-value alloc *allocation-pointer*)))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment