Changeset 8233

Timestamp:

Jan 21, 2008, 8:12:56 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Preserve nargs/eax in default-optionals. Correct emit-aligned-label for x8632.

File:

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

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

@@ -275 +275 @@
                                        ((n :u16const))
                                        ((temp :u32)))
+  ;; xxx temp will probably be eax (which is nargs, too), so preserve it.
+  (pushl (:%l x8632::nargs.l))
   (rcmpw (:%w x8632::nargs) (:$w (:apply ash n x8632::word-shift)))
   (movw (:%w x8632::nargs) (:%w temp))
@@ -280 +282 @@
   :loop
   (addw (:$w x8632::fixnumone) (:%w temp))
+  (pushl (:$l x8632::nil-value))
   (cmpw (:$w (:apply ash n x8632::word-shift)) (:%w temp))
-  (pushl (:$l x8632::nil-value))
   (jne :loop)
-  :done)
+  :done
+  (popl (:%l x8632::nargs.l)))
 
 (define-x8632-vinsn save-lisp-context-no-stack-args (()
@@ -1365 +1368 @@
   (pushl (:%l x8632::ra0)))
 
-;; ????
 (define-x8632-vinsn emit-aligned-label (()
                                         ((label :label)))
+  ;; We don't care about label.
+  ;; We just want the label following this stuff to be tra-tagged.
   (:align 3)
-  (:long (:^ label)))
+  (:long 0)
+  (:byte 0))
 
 ;; pass-multiple-values-symbol