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
d6c89fbd
Commit
d6c89fbd
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
c1bb7193
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/rt/array.lisp
View file @
d6c89fbd
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/array.lisp,v 1.
1
1991/0
2/18 15:07:37
chiles Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/array.lisp,v 1.
2
1991/0
4/04 13:50:49
chiles Exp $
;;;
;;; This file contains the IBM RT definitions for array operations.
;;;
...
...
@@ -34,7 +34,7 @@
;; and its three low bits are zero.
(
load-symbol-value
alloc
*allocation-pointer*
)
(
inst
cal
header
alloc
vm:other-pointer-type
)
(
inst
cal
alloc
(
inst
cal
alloc
alloc
(
+
(
*
vm:array-dimensions-offset
vm:word-bytes
)
vm:lowtag-mask
))
;; Rank is the dimensions as a fixnum which happens to be the number of
...
...
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