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

compiler.cfg.intrinsics: intrinsic for fixnum-bit-count

db4
Joe Groff 2010-05-15 13:59:47 -07:00
parent 7fec53b509
commit 5d35917061
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/compiler/cfg/intrinsics/intrinsics.factor
View File

@ -23,6 +23,7 @@ QUALIFIED: slots.private
QUALIFIED: strings.private QUALIFIED: strings.private
QUALIFIED: classes.tuple.private QUALIFIED: classes.tuple.private
QUALIFIED: math.private QUALIFIED: math.private
QUALIFIED: math.bitwise.private
QUALIFIED: math.integers.private QUALIFIED: math.integers.private
QUALIFIED: math.floats.private QUALIFIED: math.floats.private
QUALIFIED: math.libm QUALIFIED: math.libm
@ -155,5 +156,10 @@ IN: compiler.cfg.intrinsics
{ math.integers.private:fixnum-log2 [ drop [ ^^log2 ] unary-op ] } { math.integers.private:fixnum-log2 [ drop [ ^^log2 ] unary-op ] }
} enable-intrinsics ; } enable-intrinsics ;
: enable-bit-count ( -- )
{
{ math.bitwise.private:fixnum-bit-count [ drop [ ^^bit-count ] unary-op ] }
} enable-intrinsics ;
: emit-intrinsic ( node word -- ) : emit-intrinsic ( node word -- )
"intrinsic" word-prop call( node -- ) ; "intrinsic" word-prop call( node -- ) ;