--- a/SmallInteger.st	Wed Oct 27 01:33:14 1999 +0200
+++ b/SmallInteger.st	Wed Oct 27 01:34:03 1999 +0200
@@ -1008,17 +1008,17 @@
      */
     bits = __BSR(bits);
     RETURN ( __MKSMALLINT(bits + 1) );
-#endif
-
-#ifdef alpha64
+#else
+
+# ifdef alpha64
     INDEX0 = 0;
     if (bits & 0xFFFFFFFF00000000L) {
         INDEX0 = 32;
         bits = bits >> 32;
     }
-#else
-# define INDEX0 0
-#endif
+# else
+#  define INDEX0 0
+# endif
 
     /*
      * a binary search ...
@@ -1132,6 +1132,7 @@
             }
         }
     }
+#endif
 %}
     "
      ((0 to:64) collect:[:s | 1 bitShift:s])
@@ -1201,7 +1202,7 @@
      */
     bits = __BSF(bits);
     RETURN ( __MKSMALLINT(bits + 1) );
-#endif
+#else
 
     if ((bits & 0xFFFFFF) == 0) {
         mask = 0x1000000;
@@ -1221,11 +1222,11 @@
         }
     }
 
-#ifdef alpha64
+# ifdef alpha64
     while (index != 63) {
-#else
+# else
     while (index != 31) {
-#endif
+# endif
         if (bits & mask) {
             RETURN ( __MKSMALLINT(index) );
         }
@@ -1233,6 +1234,7 @@
         index++;
     }
     RETURN ( __MKSMALLINT(-1) );
+#endif
 %}
 
     "
@@ -3112,5 +3114,5 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.123 1999-10-26 23:33:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.124 1999-10-26 23:34:03 cg Exp $'
 ! !