Changeset 5487

Timestamp:

Nov 5, 2006, 6:48:56 AM (18 years ago)

Author:

Gary Byers

Message:

.SParef2, .SPaset2: since we aren't testing simple-array-ness, add the
(possibly 0) displacement from the header before handling the simple
aref of the data vector.

File:

• trunk/ccl/lisp-kernel/ppc-spentry.s (modified) (2 diffs)

trunk/ccl/lisp-kernel/ppc-spentry.s

@@ -6577 +6577 @@
            add in possible offset */
         __(mr arg_y,arg_x)
-0:      __(ldr(arg_y,arrayH.data_vector(arg_y)))
+0:      __(ldr(imm0,arrayH.displacement(arg_y)))
+        __(ldr(arg_y,arrayH.data_vector(arg_y)))
         __(extract_subtag(imm1,arg_y))
         __(cmpri(imm1,subtag_vectorH))
+        __(add arg_z,arg_z,imm0)
         __(bgt local_label(misc_ref_common))
-        __(ldr(imm0,arrayH.displacement(arg_x)))
-        __(mr arg_x,arg_y)
-        __(add arg_z,arg_z,imm0)
         __(b 0b)
 1:              
@@ -6613 +6612 @@
            add in possible offset */
         __(mr arg_x,temp0)
-0:      __(ldr(arg_x,arrayH.data_vector(arg_x)))
+0:      __(ldr(imm0,arrayH.displacement(arg_x)))
+        __(ldr(arg_x,arrayH.data_vector(arg_x)))
         __(extract_subtag(imm1,arg_x))
         __(cmpri(imm1,subtag_vectorH))
+        __(add arg_y,arg_y,imm0)
         __(bgt local_label(misc_set_common))
-        __(ldr(imm0,arrayH.displacement(temp0)))
-        __(mr temp0,arg_x)
-        __(add arg_y,arg_y,imm0)
         __(b 0b)
 1: