Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lots of VMS changes
authorClaus Gittinger <cg@exept.de>
Mon, 22 Sep 1997 21:02:08 +0200
changeset 2964 ce8a6e9898c4
parent 2963 17bd9be72f9b
child 2965 c5d6d02b0e8c
lots of VMS changes
LargeInt.st file | annotate | diff | comparison | revisions
LargeInteger.st file | annotate | diff | comparison | revisions 
--- a/LargeInt.st	Mon Sep 22 20:59:22 1997 +0200
+++ b/LargeInt.st	Mon Sep 22 21:02:08 1997 +0200
@@ -1254,22 +1254,28 @@
              * + maxCarry (0xFFFFFFFF)  -> 0xFFFFFFFF.0000
              */
             while (_l > 3) {
+		unsigned __t;
+
+		__t = ((unsigned *)digitP)[0];
+                digitP += 4;
                 _prod64 = (INT64)_v;
-		_prod64 *= ((unsigned *)digitP)[0];
+		_prod64 *= __t;
 		_prod64 += _carry;
                 ((unsigned *)resultP)[0] = _prod64 & 0xFFFFFFFFL;
                 _carry = _prod64 >> 32;
-                digitP += 4;
                 resultP += 4;
                 _l -= 4;
             }
 	    if (_l > 1) {
+		unsigned short __t;
+
+		__t = ((unsigned short *)digitP)[0];
+		digitP += 2;
 		_prod64 = (INT64)_v;
-		_prod64 *= ((unsigned short *)digitP)[0];
+		_prod64 *= __t;
 		_prod64 += _carry;
 		((unsigned short *)resultP)[0] = _prod64 & 0xFFFF;
 		_carry = _prod64 >> 16;
-		digitP += 2;
 		resultP += 2;
 		_l -= 2;
 	    }
@@ -2416,5 +2422,5 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/LargeInt.st,v 1.57 1997-09-18 20:14:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/LargeInt.st,v 1.58 1997-09-22 19:02:08 cg Exp $'
 ! !
--- a/LargeInteger.st	Mon Sep 22 20:59:22 1997 +0200
+++ b/LargeInteger.st	Mon Sep 22 21:02:08 1997 +0200
@@ -1254,22 +1254,28 @@
              * + maxCarry (0xFFFFFFFF)  -> 0xFFFFFFFF.0000
              */
             while (_l > 3) {
+		unsigned __t;
+
+		__t = ((unsigned *)digitP)[0];
+                digitP += 4;
                 _prod64 = (INT64)_v;
-		_prod64 *= ((unsigned *)digitP)[0];
+		_prod64 *= __t;
 		_prod64 += _carry;
                 ((unsigned *)resultP)[0] = _prod64 & 0xFFFFFFFFL;
                 _carry = _prod64 >> 32;
-                digitP += 4;
                 resultP += 4;
                 _l -= 4;
             }
 	    if (_l > 1) {
+		unsigned short __t;
+
+		__t = ((unsigned short *)digitP)[0];
+		digitP += 2;
 		_prod64 = (INT64)_v;
-		_prod64 *= ((unsigned short *)digitP)[0];
+		_prod64 *= __t;
 		_prod64 += _carry;
 		((unsigned short *)resultP)[0] = _prod64 & 0xFFFF;
 		_carry = _prod64 >> 16;
-		digitP += 2;
 		resultP += 2;
 		_l -= 2;
 	    }
@@ -2416,5 +2422,5 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.57 1997-09-18 20:14:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.58 1997-09-22 19:02:08 cg Exp $'
 ! !
hg/stx-libbasic