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

unit test to make sure adds are not optimized incorrectly

db4
Doug Coleman 2009-07-02 18:01:00 -05:00
parent 80eb5068e2
commit e11e3cf6d2
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
basis/compiler/cfg/optimizer/optimizer-tests.factor
View File

@ -1,7 +1,8 @@
USING: arrays sequences tools.test compiler.cfg.checker
compiler.cfg.debugger compiler.cfg.def-use sets kernel
kernel.private fry slots.private vectors sequences.private
math sbufs math.private strings ;
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 ;
IN: compiler.cfg.optimizer.tests
! Miscellaneous tests
@ -33,3 +34,11 @@ IN: compiler.cfg.optimizer.tests
} [
[ [ ] ] dip '[ _ test-mr first check-mr ] unit-test
] each
[ t ]
[
[
HEX: 7fff fixnum-bitand 13 fixnum-shift-fast
112 23 fixnum-shift-fast fixnum+fast
] test-mr first instructions>> [ ##add? ] any?
] unit-test