compiler.cfg.optimizer: fix irrelevant test
parent
e0d84eb3a2
commit
508b7272b5
|
@ -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
|
||||
|
||||
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?
|
||||
] unit-test
|
||||
] when
|
||||
|
|
Loading…
Reference in New Issue