Changeset 8256

Timestamp:

Jan 23, 2008, 11:57:36 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Try again with default-optionals. Should probably dump the partial
register operations.

File:

• branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp (modified) (2 diffs)

branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp

@@ -274 +274 @@
 (define-x8632-vinsn default-optionals (()
                                        ((n :u16const))
-                                       ((temp :u32)))
-  ;; xxx temp will probably be eax (which is nargs, too), so preserve it.
-  (pushl (:%l x8632::nargs.l))
+                                       ((temp :imm)))
   (rcmpw (:%w x8632::nargs) (:$w (:apply ash n x8632::word-shift)))
   (movw (:%w x8632::nargs) (:%w temp))
@@ -285 +283 @@
   (cmpw (:$w (:apply ash n x8632::word-shift)) (:%w temp))
   (jne :loop)
-  :done
-  (popl (:%l x8632::nargs.l)))
+  :done)
 
 (define-x8632-vinsn save-lisp-context-no-stack-args (()