Changeset 309

Timestamp:

Jan 17, 2004, 7:35:25 PM (21 years ago)

Author:

Gary Byers

Message:

DISPLACED-ARRAY-P didn't handle transitive displacement.

File:

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

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

@@ -203 +203 @@
 (defun displaced-array-p (array)
   (if (%array-is-header array)
-    (values (%svref array ppc32::arrayH.data-vector-cell)
-            (%svref array ppc32::arrayH.displacement-cell))
+    (do* ((disp (%svref array ppc32::arrayH.displacement-cell)
+                (+ disp (the fixnum (%svref target ppc32::arrayH.displacement-cell))))
+          (target (%svref array ppc32::arrayH.data-vector-cell)
+                  (%svref target ppc32::arrayH.data-vector-cell)))
+         ((not (%array-is-header target))
+          (values target disp)))
     (values nil 0)))