--- a/Integer.st Thu Nov 05 17:25:23 2009 +0100
+++ b/Integer.st Thu Nov 05 17:25:26 2009 +0100
@@ -109,18 +109,18 @@
especially for mass-data."
%{ /* NOCONTEXT */
- if (__isString(aString) && __isSmallInteger(startIndex)) {
- char *cp = (char *)(__stringVal(aString));
- int idx = __intVal(startIndex) - 1;
- unsigned INT val;
-
- if ((unsigned)idx < __stringSize(aString)) {
- val = atoi(cp + idx);
- if (val <= _MAX_INT) {
- RETURN(__mkSmallInteger(val));
- }
- RETURN (__MKUINT(val));
- }
+ if (__isStringLike(aString) && __isSmallInteger(startIndex)) {
+ char *cp = (char *)(__stringVal(aString));
+ int idx = __intVal(startIndex) - 1;
+ unsigned INT val;
+
+ if ((unsigned)idx < __stringSize(aString)) {
+ val = atoi(cp + idx);
+ if (val <= _MAX_INT) {
+ RETURN(__mkSmallInteger(val));
+ }
+ RETURN (__MKUINT(val));
+ }
}
%}.
self primitiveFailed.
@@ -139,17 +139,17 @@
Integer fastFromString:'12345' at:0
Time millisecondsToRun:[
- 100000 timesRepeat:[
- Integer readFrom:'12345'
- ]
+ 100000 timesRepeat:[
+ Integer readFrom:'12345'
+ ]
]
"
"
Time millisecondsToRun:[
- 100000 timesRepeat:[
- Integer fastFromString:'12345' at:1
- ]
+ 100000 timesRepeat:[
+ Integer fastFromString:'12345' at:1
+ ]
]
"
!
@@ -4471,11 +4471,11 @@
!Integer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.234 2009-11-03 10:04:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.235 2009-11-05 16:25:26 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.234 2009-11-03 10:04:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.235 2009-11-05 16:25:26 stefan Exp $'
! !
Integer initialize!