--- a/SmallInteger.st Mon Aug 28 09:42:57 2017 +0200
+++ b/SmallInteger.st Mon Aug 28 13:54:25 2017 +0200
@@ -4211,24 +4211,25 @@
^ 7
].
self < 1000000000 ifTrue:[^ 8].
+
SmallInteger maxBytes == 4 ifTrue:[
"/ on a 32 bit machine, SmallInt cannot be larger
^ 9
+ ] ifFalse:[
+ "/ 64 bit machine
+ self < 100000000000000 ifTrue:[
+ self < 10000000000 ifTrue:[^ 9].
+ self < 100000000000 ifTrue:[^ 10].
+ self < 1000000000000 ifTrue:[^ 11].
+ self < 10000000000000 ifTrue:[^ 12].
+ ^ 13
+ ].
+ self < 1000000000000000 ifTrue:[^ 14].
+ self < 10000000000000000 ifTrue:[^ 15].
+ self < 100000000000000000 ifTrue:[^ 16].
+ self < 1000000000000000000 ifTrue:[^ 17].
+ ^ 18.
].
-
- "/ 64 bit machine
- self < 100000000000000 ifTrue:[
- self < 10000000000 ifTrue:[^ 9].
- self < 100000000000 ifTrue:[^ 10].
- self < 1000000000000 ifTrue:[^ 11].
- self < 10000000000000 ifTrue:[^ 12].
- ^ 13
- ].
- self < 1000000000000000 ifTrue:[^ 14].
- self < 10000000000000000 ifTrue:[^ 15].
- self < 100000000000000000 ifTrue:[^ 16].
- self < 1000000000000000000 ifTrue:[^ 17].
- ^ 18.
].
^ self class
@@ -4251,7 +4252,7 @@
"
"Created: / 02-07-2017 / 01:19:09 / cg"
- "Modified: / 03-07-2017 / 15:55:45 / cg"
+ "Modified: / 28-08-2017 / 13:53:32 / cg"
!
intlog10