Changeset 8360

Timestamp:

Jan 29, 2008, 2:13:19 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

nargs is 32 bits now.

File:

• branches/ia32/lisp-kernel/x86-macros.s (modified) (3 diffs)

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

@@ -244 +244 @@
         movl %ebp,catch_frame.ebp(%imm0)
         movd %rcontext:tcr.foreign_sp,%stack_temp
+        movd %stack_temp,catch_frame.foreign_sp(%imm0)
         movd %mm1,catch_frame.db_link(%imm0)
         movl %imm0,catch_frame.xframe(%imm0)
-        movd %stack_temp,catch_frame.foreign_sp(%imm0)
         movl %xfn,catch_frame.pc(%imm0)
         movl %imm0,%rcontext:tcr.catch_top
@@ -419 +419 @@
         
 define([set_nargs],[
-        movw [$]$1<<fixnumshift,%nargs
+        movl [$]$1<<fixnumshift,%nargs
 ])
 
@@ -603 +603 @@
 define([push_argregs],[
         new_macro_labels()
-        cmpw [$]1*node_size,%nargs
+        cmpl [$]1*node_size,%nargs
         jb macro_label(done)
         je macro_label(z)