steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/cpu/architecture/architecture.factor
View File

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

4
basis/cpu/x86/x86.factor
View File

@ -70,9 +70,9 @@ HOOK: pic-tail-reg cpu ( -- reg )
M: x86 complex-addressing? t ; 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 ; M: x86 %load-immediate dup 0 = [ drop dup XOR ] [ MOV ] if ;