LargeInteger.st
changeset 5014 fa22b711e749
parent 5008 1a19e0059c54
child 5020 eff43341e72c
--- a/LargeInteger.st	Fri Nov 19 18:26:56 1999 +0100
+++ b/LargeInteger.st	Mon Nov 22 21:44:47 1999 +0100
@@ -2021,24 +2021,22 @@
                     unsigned INT t;
                     unsigned INT div;
 
+                    index -= 2;
 #if defined(__LSBFIRST) || defined(i386)
-                    index -= 2;
                     t = *((unsigned short *)(&digitBytes[index]));
-# else
-                    index--;
-                    t = digitBytes[index];
-                    index--;
+#else
+                    t = digitBytes[index+1];
                     t = (t << 8) | digitBytes[index];
-# endif
+#endif
                     t = t | (rest << 16);
                     div = t / divisor;
                     rest = t % divisor;
 #if defined(__LSBFIRST) || defined(i386)
                     *((unsigned short *)(&resultBytes[index])) = (div & 0xFFFF);
-# else
+#else
                     resultBytes[index+1] = div >> 8;
                     resultBytes[index] = div /* & 0xFF */;
-# endif
+#endif
                 }
             }
         }
@@ -4288,5 +4286,5 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.149 1999-11-19 08:11:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.150 1999-11-22 20:44:47 cg Exp $'
 ! !