Changeset 8256


Ignore:
Timestamp:
Jan 24, 2008, 7:57:36 AM (12 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp

    r8233 r8256  
    274274(define-x8632-vinsn default-optionals (()
    275275                                       ((n :u16const))
    276                                        ((temp :u32)))
    277   ;; xxx temp will probably be eax (which is nargs, too), so preserve it.
    278   (pushl (:%l x8632::nargs.l))
     276                                       ((temp :imm)))
    279277  (rcmpw (:%w x8632::nargs) (:$w (:apply ash n x8632::word-shift)))
    280278  (movw (:%w x8632::nargs) (:%w temp))
     
    285283  (cmpw (:$w (:apply ash n x8632::word-shift)) (:%w temp))
    286284  (jne :loop)
    287   :done
    288   (popl (:%l x8632::nargs.l)))
     285  :done)
    289286
    290287(define-x8632-vinsn save-lisp-context-no-stack-args (()
Note: See TracChangeset for help on using the changeset viewer.