Changeset 5488

Timestamp:

Nov 5, 2006, 6:50:58 AM (18 years ago)

Author:

Gary Byers

Message:

pre-add displacement in .SParef2, .SPaset2.

File:

• trunk/ccl/lisp-kernel/x86-spentry64.s (modified) (2 diffs)

trunk/ccl/lisp-kernel/x86-spentry64.s

@@ -4352 +4352 @@
         __(addq %imm0,%arg_z)
         __(movq %arg_x,%arg_y)
-6:      __(movq arrayH.data_vector(%arg_y),%arg_y)
+6:      __(addq arrayH.displacement(%arg_y),%arg_z)
+        __(movq arrayH.data_vector(%arg_y),%arg_y)
         __(extract_subtag(%arg_y,%imm1_b))
         __(cmpb $subtag_vectorH,%imm1_b)
         __(ja C(misc_ref_common))
-        __(addq arrayH.displacement(%arg_x),%arg_z)
-        __(movq %arg_y,%arg_x)
         __(jmp 6b)
 _endsubp(aref2)
@@ -4386 +4385 @@
         __(addq %imm0,%arg_y)
         __(movq %temp0,%arg_x)
-6:      __(movq arrayH.data_vector(%arg_x),%arg_x)
+6:      __(addq arrayH.displacement(%arg_x),%arg_y)
+        __(movq arrayH.data_vector(%arg_x),%arg_x)
         __(extract_subtag(%arg_x,%imm1_b))
         __(cmpb $subtag_vectorH,%imm1_b)
         __(ja C(misc_set_common))
-        __(addq arrayH.displacement(%temp0),%arg_y)
-        __(movq %arg_x,%temp0)
         __(jmp 6b)
 _endsubp(aset2)