Changeset 8467

Timestamp:

Feb 11, 2008, 2:50:21 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Fixes to SPtcallsymslide.

File:

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

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

@@ -1134 +1134 @@
 _spentry(tcallsymslide)
         __(movl %ebp,%imm0)
-        __(subl %nargs,%imm0)   /* new tos */
+        __(subl %nargs,%imm0)
+        __(addl $nargregs*node_size,%imm0)      /* new tos */
         __(push %imm0)
         __(push %arg_y)
@@ -1153 +1154 @@
         __(pop %arg_y)
         __(pop %esp)
-        __(push -node_size(%ebp))
+        __(push node_size(%ebp))
         __(movl 0(%ebp),%ebp)
         __(jump_fname)