]> gitweb.factorcode.org Git - factor.git/commitdiff
compiler.cfg.linear-scan: fix tests
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Sat, 18 Jul 2009 11:10:01 +0000 (06:10 -0500)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Sat, 18 Jul 2009 11:10:01 +0000 (06:10 -0500)
basis/compiler/cfg/linear-scan/linear-scan-tests.factor

index 63da100b02183fbd4d1450acb293eefbafa72a41..df521c198843ba64e37bfac3bdd5c0cd6ac0218b 100644 (file)
@@ -385,7 +385,7 @@ SYMBOL: max-uses
         [
             \ live-interval new
                 swap int-regs swap vreg boa >>vreg
-                max-uses get random 2 max [ not-taken ] replicate natural-sort
+                max-uses get random 2 max [ not-taken 2 * ] replicate natural-sort
                 [ >>uses ] [ first >>start ] bi
                 dup uses>> last >>end
                 dup [ start>> ] [ end>> ] bi <live-range> 1vector >>ranges