Skip to content
Snippets Groups Projects
Commit b30616e2 authored by wlott's avatar wlott
Browse files

Always emit the TEMP temp, 'cause it's always needed on the RT now.

parent 76c401bc
No related branches found
No related tags found
No related merge requests found
......@@ -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.4 1991/10/22 16:50:28 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/rt/alloc.lisp,v 1.5 1991/10/22 19:07:16 wlott Exp $
;;;
;;; Stuff to handle allocating simple objects.
;;;
......@@ -62,8 +62,7 @@
,(pop arg-offsets)))
(args)))
(:temp alloc non-descriptor-reg nl0-offset)
,@(when (or need-unbound-marker header variable-length)
'((:temp temp non-descriptor-reg ocfp-offset)))
(:temp temp non-descriptor-reg ocfp-offset)
(:res result descriptor-reg a0-offset))
(pseudo-atomic (temp)
(load-symbol-value alloc *allocation-pointer*)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment