moved anyMask, allMask ... to Integer.
authorClaus Gittinger <cg@exept.de>
Mon, 30 Aug 1999 13:22:01 +0200
changeset 4644 2003eaf6381d
parent 4643 48ee5b949c81
child 4645 590308fd0dd6
moved anyMask, allMask ... to Integer.
SmallInt.st
SmallInteger.st
--- 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 $'
 ! !