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
[ [ ] ] 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