Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
fe5b8c6c
Commit
fe5b8c6c
authored
Apr 11, 1991
by
wlott
Browse files
Store the updated allocation pointer back into *allocation-pointer*.
parent
e4b9e0be
Changes
1
Hide whitespace changes
Inline
Side-by-side
assembly/rt/alloc.lisp
View file @
fe5b8c6c
...
...
@@ -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*
)))))))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment