--- a/Integer.st Fri Aug 25 12:38:25 2017 +0200
+++ b/Integer.st Fri Aug 25 12:38:33 2017 +0200
@@ -794,8 +794,6 @@
"Modified: / 15.11.1999 / 20:35:20 / cg"
! !
-
-
!Integer class methodsFor:'class initialization'!
initialize
@@ -852,7 +850,6 @@
"Modified: 18.7.1996 / 12:26:38 / cg"
! !
-
!Integer class methodsFor:'prime numbers'!
flushPrimeCache
@@ -1230,7 +1227,6 @@
^ self == Integer
! !
-
!Integer methodsFor:'Compatibility-Dolphin'!
highWord
@@ -1472,15 +1468,16 @@
>> aNumber
"V'Age compatibility: right shift"
- ^ self bitShift:(aNumber negated)
+ ^ self rightShift:aNumber
"
1 >> -5
64 >> 5
"
+
+ "Modified: / 25-08-2017 / 12:32:47 / cg"
! !
-
!Integer methodsFor:'bcd conversion'!
decodeFromBCD
@@ -2945,9 +2942,9 @@
aLowBit := a lowBit - 1.
bLowBit := b lowBit - 1.
shift := aLowBit min:bLowBit.
- b := b bitShift:(bLowBit negated).
+ b := b rightShift:bLowBit.
[a = 0] whileFalse:[
- a := a bitShift:(aLowBit negated).
+ a := a rightShift:aLowBit.
a < b ifTrue:[
t := a. a := b. b := t
].
@@ -2956,8 +2953,8 @@
].
^ b bitShift:shift
- "Created: 1.3.1997 / 16:38:17 / cg"
- "Modified: 1.3.1997 / 16:45:17 / cg"
+ "Created: / 01-03-1997 / 16:38:17 / cg"
+ "Modified: / 25-08-2017 / 12:33:09 / cg"
! !
@@ -4989,7 +4986,6 @@
"Created: / 09-01-2012 / 17:18:06 / cg"
! !
-
!Integer methodsFor:'special modulo arithmetic'!
add_32:anInteger