cpu: cleanups

db4
Slava Pestov 2010-05-03 23:08:24 -04:00
parent 41ec3f20a8
commit 6c35652666
2 changed files with 2 additions and 4 deletions

View File

@ -508,8 +508,6 @@ M: stack-params param-reg 2drop ;
! objects in %compare-imm?
HOOK: fused-unboxing? cpu ( -- ? )
M: object fused-unboxing? f ;
! Can this value be an immediate operand for %add-imm, %sub-imm,
! or %mul-imm?
HOOK: immediate-arithmetic? cpu ( n -- ? )

View File

@ -70,9 +70,9 @@ HOOK: pic-tail-reg cpu ( -- reg )
M: x86 complex-addressing? t ;
M: x86 fused-unboxing? ( -- ? ) t ;
M: x86 fused-unboxing? t ;
M: x86 immediate-store? ( obj -- ? ) immediate-comparand? ;
M: x86 immediate-store? immediate-comparand? ;
M: x86 %load-immediate dup 0 = [ drop dup XOR ] [ MOV ] if ;