Ignore:
Timestamp:
Mar 27, 2008, 9:33:47 PM (12 years ago)
Author:
rme
Message:

EQL and EQUAL fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-pred.lisp

    r7999 r8905  
    1212  (cmpl (% x) (% y))
    1313  (je @win)
    14   (extract-fulltag x al)
    15   (extract-fulltag y ah)
     14  (movl (% x) (% imm0))
     15  (andb ($ x8632::fulltagmask) (% al))
     16  (movb (% arg_z.b) (% ah))
     17  (andb ($ x8632::fulltagmask) (% ah))
    1618  (cmpb (% al) (% ah))
    1719  (jnz @lose)
    1820  (cmpb ($ x8632::fulltag-misc) (% al))
     21  (jnz @lose)
     22  (cmpb ($ x8632::fulltag-misc) (% ah))
    1923  (jnz @lose)
    2024  ;; Objects are both of tag-misc.  Headers must match exactly;
     
    110114  (cmp (% x) (% y))
    111115  (je @win)
    112   (extract-fulltag x al)
    113   (extract-fulltag y ah)
     116  (movl (% x) (% imm0))
     117  (andb ($ x8632::fulltagmask) (% al))
     118  (movb (% arg_z.b) (% ah))
     119  (andb ($ x8632::fulltagmask) (% ah))
    114120  (cmpb (% al) (% ah))
    115   (jne @lose)
     121  (jnz @lose)
    116122  (cmpb ($ x8632::fulltag-cons) (% imm0.b))
    117123  (je @cons)
Note: See TracChangeset for help on using the changeset viewer.