]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/compiler/cfg/intrinsics/fixnum/fixnum.factor
compiler.cfg: Change low-level IR constructors from ##foo to <##foo>
[factor.git] / basis / compiler / cfg / intrinsics / fixnum / fixnum.factor
index 6b87ca8fd6f727414233e7abf26a6fef7dbc9cb9..6de6d51d192d58817822dd00d00c13b712f86c3c 100644 (file)
@@ -32,7 +32,7 @@ IN: compiler.cfg.intrinsics.fixnum
     ] binary-op ;
 
 : emit-fixnum-shift-general ( -- )
-    ds-peek 0 cc> ##compare-integer-imm-branch
+    ds-peek 0 cc> <##compare-integer-imm-branch>
     [ emit-fixnum-left-shift ] with-branch
     [ emit-fixnum-right-shift ] with-branch
     2array emit-conditional ;
@@ -52,7 +52,7 @@ IN: compiler.cfg.intrinsics.fixnum
 
 : emit-overflow-case ( word -- final-bb )
     [
-        ##call
+        <##call>
         -1 adjust-d
         make-kill-block
     ] with-branch ;
@@ -77,4 +77,4 @@ IN: compiler.cfg.intrinsics.fixnum
     [ ^^fixnum-sub ] \ fixnum-overflow emit-fixnum-overflow-op ;
 
 : emit-fixnum* ( -- )
-    [ ^^fixnum-mul ] \ fixnum*overflow emit-fixnum-overflow-op ;
\ No newline at end of file
+    [ ^^fixnum-mul ] \ fixnum*overflow emit-fixnum-overflow-op ;