Changeset 13854

Timestamp:

Jun 17, 2010, 4:46:19 AM (14 years ago)

Author:

Gary Byers

Message:

In _SPconslist: cons arg_y and arg_z, not arg_z and itself.
In _SPstkconslist: add extra word to "vector" size, for alignment.

File:

• branches/arm/lisp-kernel/arm-spentry.s (modified) (2 diffs)

branches/arm/lisp-kernel/arm-spentry.s

@@ -399 +399 @@
 1:
         __(vpop1(arg_y))
-        __(Cons(arg_z,arg_z,arg_z))
+        __(Cons(arg_z,arg_y,arg_z))
         __(subs nargs,nargs,#fixnum_one)
 2:
@@ -1054 +1054 @@
         __(add temp2,temp2,#node_size)
         __(mov imm0,temp2,lsl #num_subtag_bits-word_shift)
+        __(add temp2,temp2,#node_size)
         __(orr imm0,imm0,#subtag_u32_vector)
         __(stack_allocate_zeroed_ivector(imm0,temp2))