Changeset 9801
 Timestamp:
 Jun 21, 2008, 2:31:13 AM (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/ia32/compiler/X86/x862.lisp
r9768 r9801 9513 9513 (if (not (or u31x u31y)) 9514 9514 (withimmtarget () (xreg :natural) 9515 (withimmtarget (xreg) (yreg :natural) 9516 (x862twotargetedregforms seg x xreg y yreg) 9517 (! %natural+ xreg yreg)) 9515 (withadditionalimmreg () 9516 (withimmtarget (xreg) (yreg :natural) 9517 (x862twotargetedregforms seg x xreg y yreg) 9518 (! %natural+ xreg yreg))) 9518 9519 (< xreg)) 9519 9520 (let* ((other (if u31x y x))) … … 9535 9536 (let* ((u31y (and (typep fixy '(unsignedbyte 31)) fixy))) 9536 9537 (if (not u31y) 9537 (with additionalimmreg ()9538 (with immtarget () (xreg :natural)9538 (withimmtarget () (xreg :natural) 9539 (withadditionalimmreg () 9539 9540 (withimmtarget (xreg) (yreg :natural) 9540 9541 (x862twotargetedregforms seg x xreg y yreg) … … 9588 9589 (if (not constant) 9589 9590 (withimmtarget () (xreg :natural) 9590 (withimmtarget (xreg) (yreg :natural) 9591 (x862twotargetedregforms seg x xreg y yreg) 9592 (! %naturallogxor xreg yreg)) 9591 (withadditionalimmreg () 9592 (withimmtarget (xreg) (yreg :natural) 9593 (x862twotargetedregforms seg x xreg y yreg) 9594 (! %naturallogxor xreg yreg))) 9593 9595 (< xreg)) 9594 9596 (let* ((other (if u32x y x))) … … 9613 9615 (if (not constant) 9614 9616 (withimmtarget () (xreg :natural) 9615 (withimmtarget (xreg) (yreg :natural) 9616 (x862twotargetedregforms seg x xreg y yreg) 9617 (! %naturallogand xreg yreg)) 9617 (withadditionalimmreg () 9618 (withimmtarget (xreg) (yreg :natural) 9619 (x862twotargetedregforms seg x xreg y yreg) 9620 (! %naturallogand xreg yreg))) 9618 9621 (< xreg)) 9619 9622 (let* ((other (if u31x y x)))
Note: See TracChangeset
for help on using the changeset viewer.