steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.cfg.optimizer: fix irrelevant test

db4
U-SLAVA-DFB8FF805\Slava 2009-07-09 06:17:10 -05:00
parent e0d84eb3a2
commit 508b7272b5
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/compiler/cfg/optimizer/optimizer-tests.factor Normal file → Executable file
View File

@ -2,7 +2,7 @@ USING: accessors arrays compiler.cfg.checker
compiler.cfg.debugger compiler.cfg.def-use compiler.cfg.debugger compiler.cfg.def-use
compiler.cfg.instructions fry kernel kernel.private math compiler.cfg.instructions fry kernel kernel.private math
math.private sbufs sequences sequences.private sets 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 IN: compiler.cfg.optimizer.tests
! Miscellaneous tests ! Miscellaneous tests
@ -35,10 +35,11 @@ IN: compiler.cfg.optimizer.tests
[ [ ] ] dip '[ _ test-mr first check-mr ] unit-test [ [ ] ] dip '[ _ test-mr first check-mr ] unit-test
] each ] each
[ t ] cell 8 = [
[ [ t ]
[ [
HEX: 7fff fixnum-bitand 13 fixnum-shift-fast [
112 23 fixnum-shift-fast fixnum+fast 1 50 fixnum-shift-fast fixnum+fast
] test-mr first instructions>> [ ##add? ] any? ] test-mr first instructions>> [ ##add? ] any?
] unit-test ] unit-test
] when