Changeset 6556

Timestamp:

May 16, 2007, 12:16:34 AM (18 years ago)

Author:

Gary Byers

Message:

uuos in subrprims called via lea/jmp: push ra0 on stack before
trap, for the benefit of create_exception_callback_frame().

File:

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

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

@@ -1204 +1204 @@
         __(testq %imm1,%imm1)
         __(jne local_label(_throw_loop))
+        __(push %ra0)
         __(uuo_error_reg_not_tag(Rtemp0,subtag_catch_frame))
+        __(pop %ra0)
         __(jmp _SPthrow)
 local_label(_throw_found):      
@@ -1631 +1633 @@
         __(movq %arg_y,(%temp1,%temp0))
         __(jmp *%ra0)
-8:      __(uuo_error_reg_unbound(Rarg_z))
+8:      __(push %ra0)
+        __(uuo_error_reg_unbound(Rarg_z))
         
 9:      __(movq $XSYMNOBIND,%arg_y)
@@ -4468 +4471 @@
 _endsubp(aset2)
 
-/* temp1 = array, %temp0 = i, %arg_x = j, %arg_y = k, %arg_y = newval. */
+/* %temp1 = array, %temp0 = i, %arg_x = j, %arg_y = k, %arg_y = newval. */
 
 _spentry(aset3)