Changeset 5968

Timestamp:

Mar 1, 2007, 3:04:58 AM (18 years ago)

Author:

Gary Byers

Message:

binding primitives: set value after new binding frame

File:

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

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

@@ -1515 +1515 @@
         __(push %temp0)
         __(push %rcontext:tcr.db_link)
+        __(movq %rsp,%rcontext:tcr.db_link)
         __(movq %arg_z,(%temp1,%temp0))
-        __(movq %rsp,%rcontext:tcr.db_link)
         __(jmp *%ra0)
 9:      
@@ -1567 +1567 @@
         __(push %temp0)
         __(push %rcontext:tcr.db_link)
+        __(movq %rsp,%rcontext:tcr.db_link)
         __(movq $nil_value,(%temp0,%temp1))
-        __(movq %rsp,%rcontext:tcr.db_link)
         __(jmp *%ra0)
 9:      __(movq $XSYMNOBIND,%arg_y)
@@ -1599 +1599 @@
         __(push %temp0)
         __(push %rcontext:tcr.db_link)
+        __(movq %rsp,%rcontext:tcr.db_link)
         __(movq %arg_y,(%temp1,%temp0))
-        __(movq %rsp,%rcontext:tcr.db_link)
         __(jmp *%ra0)
 8:      __(uuo_error_reg_unbound(Rarg_z))
@@ -3498 +3498 @@
         __(push $INTERRUPT_LEVEL_BINDING_INDEX)
         __(push %rcontext:tcr.db_link)
+        __(movq %rsp,%rcontext:tcr.db_link)
         __(movq $0,INTERRUPT_LEVEL_BINDING_INDEX(%temp1))
-        __(movq %rsp,%rcontext:tcr.db_link)
         __(js,pn 1f)
 0:      __(jmp *%ra0)
@@ -3516 +3516 @@
         __(push $INTERRUPT_LEVEL_BINDING_INDEX)
         __(push %rcontext:tcr.db_link)
+        __(movq %rsp,%rcontext:tcr.db_link)
         __(movq $-1<<fixnumshift,INTERRUPT_LEVEL_BINDING_INDEX(%temp1))
-        __(movq %rsp,%rcontext:tcr.db_link)
         __(jmp *%ra0)
 _endsubp(bind_interrupt_level_m1)
@@ -3530 +3530 @@
         __(push $INTERRUPT_LEVEL_BINDING_INDEX)
         __(push %rcontext:tcr.db_link)
+        __(movq %rsp,%rcontext:tcr.db_link)
         __(movq %arg_z,INTERRUPT_LEVEL_BINDING_INDEX(%temp1))
-        __(movq %rsp,%rcontext:tcr.db_link)
         __(jmp *%ra0)
 _endsubp(bind_interrupt_level)