Commit d6c89fbd authored by chiles's avatar chiles
Browse files

Fixed misuses of CAL where I supplied only one register but needed to supply

that register twice.
parent c1bb7193
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/array.lisp,v 1.1 1991/02/18 15:07:37 chiles Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/array.lisp,v 1.2 1991/04/04 13:50:49 chiles Exp $
;;; ;;;
;;; This file contains the IBM RT definitions for array operations. ;;; This file contains the IBM RT definitions for array operations.
;;; ;;;
...@@ -34,7 +34,7 @@ ...@@ -34,7 +34,7 @@
;; and its three low bits are zero. ;; and its three low bits are zero.
(load-symbol-value alloc *allocation-pointer*) (load-symbol-value alloc *allocation-pointer*)
(inst cal header alloc vm:other-pointer-type) (inst cal header alloc vm:other-pointer-type)
(inst cal alloc (inst cal alloc alloc
(+ (* vm:array-dimensions-offset vm:word-bytes) (+ (* vm:array-dimensions-offset vm:word-bytes)
vm:lowtag-mask)) vm:lowtag-mask))
;; Rank is the dimensions as a fixnum which happens to be the number of ;; Rank is the dimensions as a fixnum which happens to be the number of
......
Supports Markdown
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