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

64-bit add/subtract/multiply

db4
Doug Coleman 2009-05-09 13:54:42 -05:00 committed by Sascha Matzke
parent 6913653d62
commit 97da4e994b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,6 +35,11 @@ IN: math.bitwise
: 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
! 64-bit arithmetic
: W+ ( int int -- int ) + 64 bits ; inline
: W- ( int int -- int ) - 64 bits ; inline
: W* ( int int -- int ) * 64 bits ; inline
! flags ! flags
MACRO: flags ( values -- ) MACRO: flags ( values -- )
[ 0 ] [ [ ?execute bitor ] curry compose ] reduce ; [ 0 ] [ [ ?execute bitor ] curry compose ] reduce ;