2004-08-17 23:42:10 -04:00
|
|
|
IN: scratchpad
|
|
|
|
|
USE: kernel
|
2004-08-26 22:21:17 -04:00
|
|
|
USE: math
|
2004-08-17 23:42:10 -04:00
|
|
|
USE: stack
|
|
|
|
|
USE: test
|
|
|
|
|
|
|
|
|
|
[ -2 ] [ 1 bitnot ] unit-test
|
|
|
|
|
[ -2 ] [ 1 >bignum bitnot ] unit-test
|
|
|
|
|
[ -2 ] [ 1 >bignum bitnot ] unit-test
|
|
|
|
|
[ 0 ] [ 123 dup bitnot bitand ] unit-test
|
|
|
|
|
[ 0 ] [ 123 >bignum dup bitnot bitand ] unit-test
|
|
|
|
|
[ 0 ] [ 123 dup bitnot >bignum bitand ] unit-test
|
|
|
|
|
[ 0 ] [ 123 dup bitnot bitand >bignum ] unit-test
|
|
|
|
|
[ -1 ] [ 123 dup bitnot bitor ] unit-test
|
|
|
|
|
[ -1 ] [ 123 >bignum dup bitnot bitor ] unit-test
|
|
|
|
|
[ -1 ] [ 123 dup bitnot >bignum bitor ] unit-test
|
|
|
|
|
[ -1 ] [ 123 dup bitnot bitor >bignum ] unit-test
|
|
|
|
|
[ -1 ] [ 123 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 bitxor >bignum ] unit-test
|
2004-08-27 02:35:26 -04:00
|
|
|
[ 4 ] [ 4 7 bitand ] unit-test
|
