SmallInteger.st
changeset 8919 707a9ff7f9b2
parent 8913 b9498d27a554
child 8937 4f2508548327
--- a/SmallInteger.st	Fri Jul 08 22:54:45 2005 +0200
+++ b/SmallInteger.st	Fri Jul 08 23:13:39 2005 +0200
@@ -2106,11 +2106,7 @@
 		    if ((rHome == nil) || (__qSpace(rHome) >= STACKSPACE))
 #endif
 		    {
-#ifdef WIN32
-# undef UNROLL_LOOPS
-#endif
-
-#ifdef UNROLL_LOOPS
+#ifdef __UNROLL_LOOPS__
 
 			/*
 			 * you are not supposed to program like this - I know what I do
@@ -2142,7 +2138,7 @@
 			    (*codeVal)(BLOCK_ARG);
 			    tmp -= 8;
 			}
-#endif /* UNROLL_LOOPS */
+#endif /* __UNROLL_LOOPS__ */
 			do {
 			    if (InterruptPending != nil) goto interruptedX;
 	continueX:
@@ -2151,7 +2147,7 @@
 
 			RETURN (self);
 			if (0) {
-#ifdef UNROLL_LOOPS
+#ifdef __UNROLL_LOOPS__
 			    interrupted0:
 						__interruptL(@line); goto continue0;
 			    interrupted1:
@@ -2168,7 +2164,7 @@
 						__interruptL(@line); goto continue6;
 			    interrupted7:
 						__interruptL(@line); goto continue7;
-#endif /* UNROLL_LOOPS */
+#endif /* __UNROLL_LOOPS__ */
 			    interruptedX:
 						__interruptL(@line); goto continueX;
 			}
@@ -2507,7 +2503,7 @@
 			    /*
 			     * static compiled blocks ...
 			     */
-#ifdef UNROLL_LOOPS
+#ifdef __UNROLL_LOOPS__
 			    /*
 			     * The following code is designed to run as fast as possible;
 			     *  - taken branches only if interrupts are pending
@@ -2641,7 +2637,7 @@
 				tmp ++;
 			    }
 			    RETURN (self);
-#endif /* UNROLL_LOOPS */
+#endif /* __UNROLL_LOOPS__ */
 			}
 
 			/*
@@ -3584,5 +3580,5 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.165 2005-07-08 17:15:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.166 2005-07-08 21:13:39 cg Exp $'
 ! !