cpu: cleanups
parent
41ec3f20a8
commit
6c35652666
|
@ -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 -- ? )
|
||||
|
|
|
@ -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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue