Changeset 582

Timestamp:

Feb 28, 2004, 1:16:04 AM (21 years ago)

Author:

Gary Byers

Message:

ARRAY-DISPLACEMENT checks for explicit displacement (from Bryan O'Connor.)

File:

• trunk/ccl/level-0/l0-array.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-array.lisp

@@ -97 +97 @@
     (if (< typecode ppc32::min-array-subtag)
       (report-bad-arg array 'array)
-      (if (<= typecode ppc32::subtag-vectorH)
+      (if (and (<= typecode ppc32::subtag-vectorH)
+               (logbitp $arh_exp_disp_bit
+                        (the fixnum (%svref array ppc32::arrayH.flags-cell))))
           (values (%svref array ppc32::arrayH.data-vector-cell)
                   (%svref array ppc32::arrayH.displacement-cell))