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

fix broken fixnum bitops

cvs
Slava Pestov 2004-08-27 06:35:26 +00:00
parent e0590377ff
commit 547a070b66
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
library/test/math/bitops.factor
View File

@ -19,3 +19,4 @@ USE: test
[ -1 ] [ 123 >bignum dup bitnot bitxor ] unit-test [ -1 ] [ 123 >bignum dup bitnot bitxor ] unit-test
[ -1 ] [ 123 dup bitnot >bignum bitxor ] unit-test [ -1 ] [ 123 dup bitnot >bignum bitxor ] unit-test
[ -1 ] [ 123 dup bitnot bitxor >bignum ] unit-test [ -1 ] [ 123 dup bitnot bitxor >bignum ] unit-test
[ 4 ] [ 4 7 bitand ] unit-test

6
native/fixnum.c
View File

@ -136,17 +136,17 @@ CELL divide_fixnum(FIXNUM x, FIXNUM y)
CELL and_fixnum(FIXNUM x, FIXNUM y) CELL and_fixnum(FIXNUM x, FIXNUM y)
{ {
return x & y; return tag_fixnum(x & y);
} }
CELL or_fixnum(FIXNUM x, FIXNUM y) CELL or_fixnum(FIXNUM x, FIXNUM y)
{ {
return x | y; return tag_fixnum(x | y);
} }
CELL xor_fixnum(FIXNUM x, FIXNUM y) CELL xor_fixnum(FIXNUM x, FIXNUM y)
{ {
return x ^ y; return tag_fixnum(x ^ y);
} }
CELL shift_fixnum(FIXNUM x, FIXNUM y) CELL shift_fixnum(FIXNUM x, FIXNUM y)