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

Tests for propagation additions; making fixnum-bit? inline

release
Daniel Ehrenberg 2010-01-25 20:15:17 -06:00
parent fbe3add21d
commit 52f2ac2bb9
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/compiler/tree/propagation/propagation-tests.factor
View File

@ -8,7 +8,7 @@ layouts compiler.tree.propagation.info compiler.tree.def-use
compiler.tree.debugger compiler.tree.checker slots.private words compiler.tree.debugger compiler.tree.checker slots.private words
hashtables classes assocs locals specialized-arrays system hashtables classes assocs locals specialized-arrays system
sorting math.libm math.floats.private math.integers.private sorting math.libm math.floats.private math.integers.private
math.intervals quotations effects alien alien.data ; math.intervals quotations effects alien alien.data sets ;
FROM: math => float ; FROM: math => float ;
SPECIALIZED-ARRAY: double SPECIALIZED-ARRAY: double
SPECIALIZED-ARRAY: void* SPECIALIZED-ARRAY: void*
@ -952,3 +952,13 @@ M: tuple-with-read-only-slot clone
! Reduction ! Reduction
[ 1 ] [ [ 4 <reversed> [ nth-unsafe ] [ ] unless ] final-info length ] unit-test [ 1 ] [ [ 4 <reversed> [ nth-unsafe ] [ ] unless ] final-info length ] unit-test
! Optimization on bit?
[ t ] [ [ 3 bit? ] { bit? fixnum-bit? } inlined? ] unit-test
[ f ] [ [ 500 bit? ] { bit? fixnum-bit? } inlined? ] unit-test
[ t ] [ [ { 1 } intersect ] { intersect } inlined? ] unit-test
[ f ] [ [ { 1 } swap intersect ] { intersect } inlined? ] unit-test ! We could do this
[ t ] [ [ { 1 } diff ] { diff } inlined? ] unit-test
[ f ] [ [ { 1 } swap diff ] { diff } inlined? ] unit-test ! We could do this

2
core/math/integers/integers.factor
View File

@ -59,7 +59,7 @@ M: fixnum shift >fixnum fixnum-shift ; inline
M: fixnum bitnot fixnum-bitnot ; inline M: fixnum bitnot fixnum-bitnot ; inline
: fixnum-bit? ( n m -- b ) : fixnum-bit? ( n m -- b )
neg shift 1 bitand 0 > ; neg shift 1 bitand 0 > ; inline
M: fixnum bit? fixnum-bit? ; inline M: fixnum bit? fixnum-bit? ; inline