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

Better hints

db4
Slava Pestov 2008-11-26 04:20:25 -06:00
parent 53df21c033
commit d927ed5620
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/math/bitwise/bitwise.factor
View File

@ -22,17 +22,15 @@ IN: math.bitwise
[ shift ] dip 2^ wrap ; inline
: bitroll ( x s w -- y )
[ wrap ] keep
[ shift-mod ]
[ [ - ] keep shift-mod ] 3bi bitor ; inline
[ shift-mod ] [ [ - ] keep shift-mod ] 3bi bitor ; inline
: bitroll-32 ( n s -- n' ) 32 bitroll ; inline
HINTS: bitroll-32 bignum fixnum ;
HINTS: bitroll-32 { bignum fixnum } { fixnum fixnum } ;
: bitroll-64 ( n s -- n' ) 64 bitroll ; inline
HINTS: bitroll-64 bignum fixnum ;
HINTS: bitroll-64 { bignum fixnum } { fixnum fixnum } ;
! 32-bit arithmetic
: w+ ( int int -- int ) + 32 bits ; inline