diff --git a/basis/cpu/architecture/architecture.factor b/basis/cpu/architecture/architecture.factor index d156b2f39d..8f69b24729 100644 --- a/basis/cpu/architecture/architecture.factor +++ b/basis/cpu/architecture/architecture.factor @@ -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 -- ? ) diff --git a/basis/cpu/x86/x86.factor b/basis/cpu/x86/x86.factor index b0d4f05a0e..6019a5af8b 100644 --- a/basis/cpu/x86/x86.factor +++ b/basis/cpu/x86/x86.factor @@ -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 ;