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

Oops

db4
Slava Pestov 2008-11-26 05:24:35 -06:00
parent 498761376a
commit c7d86ebd55
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -22,16 +22,13 @@ IN: math.bitwise
[ shift ] dip 2^ wrap ; inline [ shift ] dip 2^ wrap ; inline
: bitroll ( x s w -- y ) : 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 : bitroll-32 ( n s -- n' ) 32 bitroll ; inline
HINTS: bitroll-32 { bignum fixnum } { fixnum fixnum } ;
: bitroll-64 ( n s -- n' ) 64 bitroll ; inline : bitroll-64 ( n s -- n' ) 64 bitroll ; inline
HINTS: bitroll-64 { bignum fixnum } { fixnum fixnum } ;
! 32-bit arithmetic ! 32-bit arithmetic
: w+ ( int int -- int ) + 32 bits ; inline : w+ ( int int -- int ) + 32 bits ; inline
: w- ( int int -- int ) - 32 bits ; inline : w- ( int int -- int ) - 32 bits ; inline