--- a/SmallInteger.st Thu Aug 10 14:14:29 1995 +0200
+++ b/SmallInteger.st Thu Aug 10 14:32:31 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.31 1995-08-03 01:16:41 claus Exp $
+$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.32 1995-08-10 12:31:19 claus Exp $
'!
!SmallInteger class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.31 1995-08-03 01:16:41 claus Exp $
+$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.32 1995-08-10 12:31:19 claus Exp $
+$Revision: 1.32 $
"
!
@@ -1523,14 +1524,14 @@
int t4;
while ((t4 = tmp+4) < final) {
- if (InterruptPending != nil) interrupt(CONARG);
- (*code)(rHome, CON_COMMA _MKSMALLINT(tmp));
- if (InterruptPending != nil) interrupt(CONARG);
- (*code)(rHome, CON_COMMA _MKSMALLINT(tmp+1));
- if (InterruptPending != nil) interrupt(CONARG);
- (*code)(rHome, CON_COMMA _MKSMALLINT(tmp+2));
- if (InterruptPending != nil) interrupt(CONARG);
- (*code)(rHome, CON_COMMA _MKSMALLINT(tmp+3));
+ if (InterruptPending != nil) interrupt(CONARG);
+ (*code)(rHome, CON_COMMA _MKSMALLINT(tmp));
+ if (InterruptPending != nil) interrupt(CONARG);
+ (*code)(rHome, CON_COMMA _MKSMALLINT(tmp+1));
+ if (InterruptPending != nil) interrupt(CONARG);
+ (*code)(rHome, CON_COMMA _MKSMALLINT(tmp+2));
+ if (InterruptPending != nil) interrupt(CONARG);
+ (*code)(rHome, CON_COMMA _MKSMALLINT(tmp+3));
tmp = t4;
}
}
@@ -1808,13 +1809,13 @@
if (format) {
#ifdef THISCONTEXT_IN_REGISTER
- /*
- * actually only needed on sparc: since thisContext is
- * in a global register, which gets destroyed by printf,
- * manually save it here - very stupid ...
- */
- extern OBJ __thisContext__;
- __thisContext__ = __thisContext;
+ /*
+ * actually only needed on sparc: since thisContext is
+ * in a global register, which gets destroyed by printf,
+ * manually save it here - very stupid ...
+ */
+ extern OBJ __thisContext__;
+ __thisContext__ = __thisContext;
#endif
sprintf(buffer, format, _intVal(self));
#ifdef THISCONTEXT_IN_REGISTER
@@ -1855,13 +1856,13 @@
if (__isString(formatString)) {
#ifdef THISCONTEXT_IN_REGISTER
- /*
- * actually only needed on sparc: since thisContext is
- * in a global register, which gets destroyed by printf,
- * manually save it here - very stupid ...
- */
- extern OBJ __thisContext__;
- __thisContext__ = __thisContext;
+ /*
+ * actually only needed on sparc: since thisContext is
+ * in a global register, which gets destroyed by printf,
+ * manually save it here - very stupid ...
+ */
+ extern OBJ __thisContext__;
+ __thisContext__ = __thisContext;
#endif
sprintf(buffer, _stringVal(formatString), _intVal(self));
#ifdef THISCONTEXT_IN_REGISTER