compiler.cfg.stacks.local: refactorings on the vocab to try and make it using less...

[factor.git] / basis / compiler / cfg / intrinsics / fixnum / fixnum.factor

diff --git a/basis/compiler/cfg/intrinsics/fixnum/fixnum.factor b/basis/compiler/cfg/intrinsics/fixnum/fixnum.factor
index a83502810eec9e5d0262fd7979288bfd91543e49..397e2ace2502b7aec8a9b14b6652690d10c8be4a 100644 (file)
--- a/basis/compiler/cfg/intrinsics/fixnum/fixnum.factor
+++ b/basis/compiler/cfg/intrinsics/fixnum/fixnum.factor
@@ -2,8 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays combinators compiler.cfg.builder.blocks
 compiler.cfg.comparisons compiler.cfg.hats
-compiler.cfg.instructions compiler.cfg.stacks
-compiler.tree.propagation.info cpu.architecture fry kernel
+compiler.cfg.instructions compiler.cfg.stacks.local compiler.cfg.registers
+compiler.cfg.stacks compiler.tree.propagation.info cpu.architecture fry kernel
 layouts math math.intervals namespaces sequences ;
 IN: compiler.cfg.intrinsics.fixnum
 
@@ -41,7 +41,7 @@ IN: compiler.cfg.intrinsics.fixnum
     '[ _ ^^compare-integer ] binary-op ;
 
 : emit-no-overflow-case ( dst -- final-bb )
-    [ ds-drop ds-drop ds-push ] with-branch ;
+    [ D -2 inc-stack ds-push ] with-branch ;
 
 : emit-overflow-case ( word -- final-bb )
     [