Changeset 9548 for branches

Timestamp:

May 17, 2008, 1:39:05 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

SPbuiltin_aset1: push vector onto stack before jumping to builtin_aset1.

File:

• branches/ia32/lisp-kernel/x86-spentry32.s (modified) (2 diffs)

branches/ia32/lisp-kernel/x86-spentry32.s

@@ -3045 +3045 @@
 /* return unboxed value in mm0 */
 _spentry(getu64)
-        __(int $3)
         __(movl $~(target_most_positive_fixnum << fixnumshift),%imm0)
         __(testl %arg_z,%imm0)
@@ -3663 +3662 @@
         __(push $reserved_frame_marker)
         __(push $reserved_frame_marker)
-        __(push %temp1)
+        __(push %temp0) /* vector */
+        __(push %temp1) /* return addr */
         __(jump_builtin(_builtin_aset1,3))
 _endsubp(builtin_aset1)