--- 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 $'
! !