oops - returned unnormalized value from absFastDiv:
authorClaus Gittinger <cg@exept.de>
Fri, 01 Nov 1996 20:00:10 +0100
changeset 1857 94f36a4923db
parent 1856 f14aac759872
child 1858 cbbc11c01e10
oops - returned unnormalized value from absFastDiv:
LargeInt.st
LargeInteger.st
--- a/LargeInt.st	Fri Nov 01 17:57:07 1996 +0100
+++ b/LargeInt.st	Fri Nov 01 20:00:10 1996 +0100
@@ -1144,7 +1144,7 @@
          * no need to normalize ?
          */
         if ((index0 > 4)
-         && (digitBytes[index0-1])) {
+         && (resultBytes[index0-1])) {
             RETURN ( __ARRAY_WITH2(result, prevRest));
         }
     }
@@ -1577,5 +1577,5 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/LargeInt.st,v 1.34 1996-10-29 21:28:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/LargeInt.st,v 1.35 1996-11-01 19:00:10 cg Exp $'
 ! !
--- a/LargeInteger.st	Fri Nov 01 17:57:07 1996 +0100
+++ b/LargeInteger.st	Fri Nov 01 20:00:10 1996 +0100
@@ -1144,7 +1144,7 @@
          * no need to normalize ?
          */
         if ((index0 > 4)
-         && (digitBytes[index0-1])) {
+         && (resultBytes[index0-1])) {
             RETURN ( __ARRAY_WITH2(result, prevRest));
         }
     }
@@ -1577,5 +1577,5 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.34 1996-10-29 21:28:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.35 1996-11-01 19:00:10 cg Exp $'
 ! !