Changeset 583

Timestamp:

Feb 28, 2004, 1:19:24 AM (21 years ago)

Author:

Gary Byers

Message:

MAKE-ARRAY (and variants) track explicit array displacement (from
Bryan O'Connor).

Location:

trunk/ccl/level-1

Files:

• l1-aprims.lisp (modified) (2 diffs)
• l1-utils.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-aprims.lisp

@@ -543 +543 @@
 
 (defun %make-displaced-array (dimensions displaced-to
-                                         &optional fill adjustable offset temp-p)
-  (declare (ignore temp-p))
+                                         &optional fill adjustable
+                                         offset explicitp)
   (if offset 
     (unless (and (fixnump offset) (>= (the fixnum offset) 0))
@@ -564 +564 @@
            (flags 0))
       (declare (fixnum disp-size rank flags vect-subtype real-offset))
+      (when explicitp
+        (setq flags (bitset $arh_exp_disp_bit flags)))
       (if (not (fixnump new-size))(error "Bad array dimensions ~s." dimensions)) 
       (locally (declare (fixnum new-size))

trunk/ccl/level-1/l1-utils.lisp

@@ -1422 +1422 @@
                :displaced-to displaced-to :element-type element-type))
       (%make-displaced-array dims displaced-to
-                             fill-pointer adjustable displaced-index-offset))
+                             fill-pointer adjustable displaced-index-offset t))
      (t
       (when displaced-index-offset