SmallInteger.st
changeset 379 5b5a130ccd09
parent 370 20f04d9b371b
child 384 cc3d110ea879
--- 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