Changeset 8368

Timestamp:

Jan 29, 2008, 5:36:07 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Treat nargs as a 32-bit register.

File:

• branches/ia32/compiler/X86/x86-lapmacros.lisp (modified) (5 diffs)

branches/ia32/compiler/X86/x86-lapmacros.lisp

@@ -31 +31 @@
 (defx86lapmacro set-nargs (n)
   (if (eql n 0)
-    `(xorw (% nargs) (% nargs))
-    `(movw ($ ',n) (% nargs))))
+    `(xorl (% nargs) (% nargs))
+    `(movl ($ ',n) (% nargs))))
 
 (defx86lapmacro check-nargs (min &optional (max min))
@@ -383 +383 @@
      (:x8632
       `(progn
-         (movzwl (% nargs) (% imm0))
+         ;; nargs *is* imm0
+         (movl (% nargs) (% temp1))
          (subl ($ (* $numx8632argregs x8632::node-size)) (% imm0))
          (jle ,push)
@@ -392 +393 @@
          ,push
          (save-simple-frame)
-         ,done))
+         ,done
+         (movl (% temp1) (% nargs))))
      (:x8664
       `(progn
-         (movzwl (% nargs) (%l imm0))
+         (movl (% nargs) (%l imm0))
          (subq ($ (* $numx8664argregs x8664::node-size)) (% imm0))
          (jle ,push)
@@ -548 +550 @@
      (:x8632
       `(progn
-         (testw (% nargs) (% nargs))
+         (testl (% nargs) (% nargs))
          (je ,done)
-         (cmpw ($ '1) (% nargs))
+         (cmpl ($ '1) (% nargs))
          (je ,z)
          (push (% arg_y))
@@ -558 +560 @@
      (:x8664
       `(progn
-         (testw (% nargs) (% nargs))
+         (testl (% nargs) (% nargs))
          (je ,done)
-         (cmpw ($ '2) (% nargs))
+         (cmpl ($ '2) (% nargs))
          (je ,yz)
          (jb ,z)