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
6fbe9d32
Commit
6fbe9d32
authored
Apr 04, 1991
by
chiles
Browse files
Fixed misuses of CAL where I supplied only one register but needed to supply
that register twice.
parent
d6c89fbd
Changes
1
Hide whitespace changes
Inline
Side-by-side
assembly/rt/alloc.lisp
View file @
6fbe9d32
...
...
@@ -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.
1
1991/0
2/18 15:43:28
chiles Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/rt/alloc.lisp,v 1.
2
1991/0
4/04 13:51:42
chiles Exp $
;;;
;;; Stuff to handle allocating simple objects.
;;;
...
...
@@ -74,20 +74,20 @@
(
inst
sl
temp
(
-
type-bits
word-shift
))
(
inst
oil
temp
,
header
)
(
storew
temp
result
0
,
lowtag
)
(
inst
cal
alloc
(
+
(
fixnum
1
)
lowtag-mask
))
(
inst
cal
alloc
alloc
(
+
(
fixnum
1
)
lowtag-mask
))
(
inst
li
temp
(
lognot
lowtag-mask
))
(
inst
n
alloc
temp
)))
(
variable-length
(
error
":REST-P T with no header in ~S?"
(
primitive-object-name
obj
)))
(
header
`
((
inst
cal
alloc
(
pad-data-block
,
size
))
`
((
inst
cal
alloc
alloc
(
pad-data-block
,
size
))
(
inst
li
temp
,
(
logior
(
ash
(
1-
size
)
type-bits
)
(
symbol-value
header
)))
(
storew
temp
result
0
,
lowtag
)))
(
t
`
((
inst
cal
alloc
(
pad-data-block
,
size
)))))
`
((
inst
cal
alloc
alloc
(
pad-data-block
,
size
)))))
,@
(
when
need-unbound-marker
`
((
inst
li
temp
unbound-marker-type
)))
,@
(
init-forms
)))))))
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