moved anyMask, allMask ... to Integer.
--- a/SmallInt.st Mon Aug 30 13:21:51 1999 +0200
+++ b/SmallInt.st Mon Aug 30 13:22:01 1999 +0200
@@ -716,26 +716,6 @@
!SmallInteger methodsFor:'bit operators'!
-allMask:anInteger
- "return true if all 1-bits in anInteger are also 1 in the receiver"
-
- ^ (self bitAnd:anInteger) == anInteger
-
- "2r00001111 allMask:2r00000001"
- "2r00001111 allMask:2r00011110"
- "2r00001111 allMask:2r00000000"
-!
-
-anyMask:anInteger
- "return true if any 1-bits in anInteger is also 1 in the receiver.
- (somewhat incorrect, if the mask is zero)"
-
- ^ (self bitAnd:anInteger) ~~ 0
-
- "2r00001111 anyMask:2r00000001"
- "2r00001111 anyMask:2r11110000"
-!
-
bitAnd:anInteger
"return the bitwise-and of the receiver and the argument, anInteger"
@@ -1089,15 +1069,6 @@
16r1000000 lowBit
0 lowBit
"
-!
-
-noMask:anInteger
- "return true if no 1-bit in anInteger is 1 in the receiver"
-
- ^ (self bitAnd:anInteger) == 0
-
- "2r00001111 noMask:2r00000001"
- "2r00001111 noMask:2r11110000"
! !
!SmallInteger methodsFor:'byte access'!
@@ -2907,5 +2878,5 @@
!SmallInteger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.117 1999-08-19 00:14:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.118 1999-08-30 11:22:01 cg Exp $'
! !
--- a/SmallInteger.st Mon Aug 30 13:21:51 1999 +0200
+++ b/SmallInteger.st Mon Aug 30 13:22:01 1999 +0200
@@ -716,26 +716,6 @@
!SmallInteger methodsFor:'bit operators'!
-allMask:anInteger
- "return true if all 1-bits in anInteger are also 1 in the receiver"
-
- ^ (self bitAnd:anInteger) == anInteger
-
- "2r00001111 allMask:2r00000001"
- "2r00001111 allMask:2r00011110"
- "2r00001111 allMask:2r00000000"
-!
-
-anyMask:anInteger
- "return true if any 1-bits in anInteger is also 1 in the receiver.
- (somewhat incorrect, if the mask is zero)"
-
- ^ (self bitAnd:anInteger) ~~ 0
-
- "2r00001111 anyMask:2r00000001"
- "2r00001111 anyMask:2r11110000"
-!
-
bitAnd:anInteger
"return the bitwise-and of the receiver and the argument, anInteger"
@@ -1089,15 +1069,6 @@
16r1000000 lowBit
0 lowBit
"
-!
-
-noMask:anInteger
- "return true if no 1-bit in anInteger is 1 in the receiver"
-
- ^ (self bitAnd:anInteger) == 0
-
- "2r00001111 noMask:2r00000001"
- "2r00001111 noMask:2r11110000"
! !
!SmallInteger methodsFor:'byte access'!
@@ -2907,5 +2878,5 @@
!SmallInteger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.117 1999-08-19 00:14:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.118 1999-08-30 11:22:01 cg Exp $'
! !