added stix_bitinvint()
This commit is contained in:
@ -128,9 +128,7 @@
|
||||
|
||||
#method bitInvert
|
||||
{
|
||||
##<primitive: #_integer_bitinvert>
|
||||
##self primitiveFailed.
|
||||
|
||||
<primitive: #_integer_bitinv>
|
||||
^-1 - self.
|
||||
}
|
||||
|
||||
|
@ -352,6 +352,8 @@ PROCESS TESTING
|
||||
((16r1234 bitXor: -2r100000000000000000000000000000000000000000000000000000000000000000000000000000) printStringRadix: 16) dump.
|
||||
((-16r1234 bitXor: -2r100000000000000000000000000000000000000000000000000000000000000000000000000000) printStringRadix: 16) dump.
|
||||
|
||||
((2r100000000000000000000000000000000000000000000000000000000000000000000000000000 bitInvert) printStringRadix: 16) dump.
|
||||
((2r1111111 bitInvert) printStringRadix: 16) dump
|
||||
|
||||
"
|
||||
FFI isNil dump.
|
||||
|
Reference in New Issue
Block a user