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