compiler.cfg.linear-scan: fix tests

2009-07-18 06:10:01 -05:00 · 2009-07-18 06:10:01 -05:00 · 32e4a97855
parent 60f4f4c16e
commit 32e4a97855
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/cfg/linear-scan/linear-scan-tests.factor
+++ b/basis/compiler/cfg/linear-scan/linear-scan-tests.factor
@ -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