rewrote stix_bitandints(), stix_bitorints(), stix_bitxorints() to handle negative numbers in the 2's complement form
This commit is contained in:
@ -294,13 +294,13 @@ PROCESS TESTING
|
||||
##(0 \\ -50000000000000000000000000000000000000000000000000000000000000000000) dump.
|
||||
##(0 // -50000000000000000000000000000000000000000000000000000000000000000000) dump.
|
||||
|
||||
(-270000000000000000000000000000000000000000000000000000000000000000000 rem: -1) dump.
|
||||
(-270000000000000000000000000000000000000000000000000000000000000000000 quo: -1) dump.
|
||||
(-270000000000000000000000000000000000000000000000000000000000000000000 \\ -1) dump.
|
||||
(-270000000000000000000000000000000000000000000000000000000000000000000 // -1) dump.
|
||||
##(-270000000000000000000000000000000000000000000000000000000000000000000 rem: -1) dump.
|
||||
##(-270000000000000000000000000000000000000000000000000000000000000000000 quo: -1) dump.
|
||||
##(-270000000000000000000000000000000000000000000000000000000000000000000 \\ -1) dump.
|
||||
##(-270000000000000000000000000000000000000000000000000000000000000000000 // -1) dump.
|
||||
|
||||
## (-27029038 // 2) asString dump.
|
||||
(-270290380000000000000000000000000000000000000000000000000000000000000000000000000000000000000 // 2) asString dump.
|
||||
## (-270290380000000000000000000000000000000000000000000000000000000000000000000000000000000000000 // 2) asString dump.
|
||||
##(-16rAAAAAAAABBBBBBBBCCCCCCCCDDDDDDDDEEEEEEEEFFFFFFFF) asString dump.
|
||||
## (16r2dd01fc06c265c8163ac729b49d890939826ce3dd quo: 16r3b9aca00) dump.
|
||||
|
||||
@ -321,7 +321,10 @@ PROCESS TESTING
|
||||
##(-270 // 5) dump.
|
||||
|
||||
##(16rFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF bitAnd: 16r1111111111111111111111111111111111111111) dump.
|
||||
(16rF0FFFF bitOr: 16r111111) dump.
|
||||
|
||||
(2r1111111111111111111111111111111111111111111111111111111111111111 printStringRadix:2) dump.
|
||||
|
||||
"(16rF0FFFF bitOr: 16r111111) dump.
|
||||
|
||||
(16r11 bitOr: 16r20000000000000000000000000000000FFFFFFFFFFFFFFFF11111100000000000000000001) dump.
|
||||
((16r11 bitOr: 16r20000000000000000000000000000000FFFFFFFFFFFFFFFF11111100000000000000000001) bitOr: 16r1100) dump.
|
||||
@ -332,6 +335,24 @@ PROCESS TESTING
|
||||
((2r11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 bitXor: 2r11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111) printStringRadix: 2) dump.
|
||||
|
||||
((2r10101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101 bitAnd: 2r01010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010) printStringRadix: 2) dump.
|
||||
"
|
||||
|
||||
(16rFFFFFFFFFFFFFFFF bitOr: 16rFFFFFFFFFFFFFFFFFFFFFFFF) dump.
|
||||
(-16rFFFFFFFFFFFFFFFF bitOr: 16rFFFFFFFFFFFFFFFFFFFFFFFF) dump.
|
||||
(16rFFFFFFFFFFFFFFFF bitOr: -16rFFFFFFFFFFFFFFFFFFFFFFFF) dump.
|
||||
(-16rFFFFFFFFFFFFFFFF bitOr: -16rFFFFFFFFFFFFFFFFFFFFFFFF) dump.
|
||||
|
||||
|
||||
((16rFFFFFFF bitXor: -16rFFFFFFF) printStringRadix: 16) dump.
|
||||
((16r1234 bitXor: -16rFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF) printStringRadix: 16) dump.
|
||||
((16r1234 bitXor: 2r1111111111111111111111111111111111111111111111111111111111111) printStringRadix: 16) dump.
|
||||
|
||||
((16r1234 bitXor: 2r100000000000000000000000000000000000000000000000000000000000000000000000000000) printStringRadix: 16) dump.
|
||||
((-16r1234 bitXor: 2r100000000000000000000000000000000000000000000000000000000000000000000000000000) printStringRadix: 16) dump.
|
||||
((16r1234 bitXor: -2r100000000000000000000000000000000000000000000000000000000000000000000000000000) printStringRadix: 16) dump.
|
||||
((-16r1234 bitXor: -2r100000000000000000000000000000000000000000000000000000000000000000000000000000) printStringRadix: 16) dump.
|
||||
|
||||
|
||||
"
|
||||
FFI isNil dump.
|
||||
FFI notNil dump.
|
||||
|
Reference in New Issue
Block a user