64-bit add/subtract/multiply

db4
Doug Coleman 2009-05-09 13:54:42 -05:00
parent d22474e4fc
commit 3be7034b5e
1 changed files with 5 additions and 0 deletions

View File

@ -35,6 +35,11 @@ IN: math.bitwise
: 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
MACRO: flags ( values -- )
[ 0 ] [ [ ?execute bitor ] curry compose ] reduce ;