]> gitweb.factorcode.org Git - factor.git/commitdiff
compiler.cfg.optimizer: fix irrelevant test
authorU-SLAVA-DFB8FF805\Slava <Slava@slava-dfb8ff805.(none)>
Thu, 9 Jul 2009 11:17:10 +0000 (06:17 -0500)
committerU-SLAVA-DFB8FF805\Slava <Slava@slava-dfb8ff805.(none)>
Thu, 9 Jul 2009 11:17:10 +0000 (06:17 -0500)
basis/compiler/cfg/optimizer/optimizer-tests.factor [changed mode: 0644->0755]

old mode 100644 (file)
new mode 100755 (executable)
index 97ebc7c..93adc4c
@@ -2,7 +2,7 @@ USING: accessors arrays compiler.cfg.checker
 compiler.cfg.debugger compiler.cfg.def-use
 compiler.cfg.instructions fry kernel kernel.private math
 math.private sbufs sequences sequences.private sets
-slots.private strings tools.test vectors ;
+slots.private strings tools.test vectors layouts ;
 IN: compiler.cfg.optimizer.tests
 
 ! Miscellaneous tests
@@ -35,10 +35,11 @@ IN: compiler.cfg.optimizer.tests
     [ [ ] ] dip '[ _ test-mr first check-mr ] unit-test
 ] each
 
-[ t ]
-[
+cell 8 = [
+    [ t ]
     [
-        HEX: 7fff fixnum-bitand 13 fixnum-shift-fast
-        112 23 fixnum-shift-fast fixnum+fast
-    ] test-mr first instructions>> [ ##add? ] any?
-] unit-test
+        [
+            1 50 fixnum-shift-fast fixnum+fast
+        ] test-mr first instructions>> [ ##add? ] any?
+    ] unit-test
+] when