Changeset 8239

Timestamp:

Jan 22, 2008, 10:07:06 PM (17 years ago)

Author:

Gary Byers

Message:

Avoid partial-register ops in SET-NARGS.

File:

• trunk/source/compiler/X86/x86-lapmacros.lisp (modified) (1 diff)

trunk/source/compiler/X86/x86-lapmacros.lisp

@@ -27 +27 @@
 
 (defx86lapmacro set-nargs (n)
-  (if (eql n 0)
-    `(xorw (% nargs) (% nargs))
-    `(movw ($ ',n) (% nargs))))
+  (cond ((>= n 16) `(movl ($ ',n) (% nargs.l)))
+        ((= n 0) `(xorl (% nargs.l) (% nargs.l)))
+        (t `(progn
+             (xorl (% nargs.l) (% nargs.l))
+             (addl ($ ',n) (% nargs.l))))))
+        
 
 (defx86lapmacro anchored-uuo (form)