compiler.tree.propagation.transforms: tweak 2^ transform to fix performance regression in benchmark.beust2; introduced by 47d6507548

2010-02-16 01:03:09 +13:00 · 2010-02-16 01:03:09 +13:00 · 64a37d2db6
parent cd1986a906
commit 64a37d2db6
1 changed files with 2 additions and 5 deletions
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@ -103,10 +103,7 @@ IN: compiler.tree.propagation.transforms

 ! Speeds up 2^
 : 2^? ( #call -- ? )
-    in-d>> first2 [ value-info ] bi@
-    [ { [ literal>> 1 = ] [ class>> fixnum class<= ] } 1&& ]
-    [ class>> fixnum class<= ]
-    bi* and ;
+    in-d>> first value-info literal>> 1 eq? ;

 \ shift [
    2^? [