Changeset cb8961 in git

Timestamp:

Jan 27, 2003, 2:05:22 PM (21 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

1c3523c71debb3d63cefdfa2e1548fd8078e8416

Parents:

dab7245e94c5771b146a9eb4bc3769b991da1556

Message:

*hannes: gcd optim.


git-svn-id: file:///usr/local/Singular/svn/trunk@6438 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/iparith.cc (modified) (4 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.283 2002-06-26 11:24:17 Singular Exp $ */
+/* $Id: iparith.cc,v 1.284 2003-01-27 13:05:05 Singular Exp $ */
 
 /*
@@ -1585 +1585 @@
 static BOOLEAN jjEXTGCD_I(leftv res, leftv u, leftv v)
 {
-  int p0=ABS((int)u->Data()),p1=ABS((int)v->Data());
+  int uu=(int)u->Data();int vv=(int)v->Data();
+  int p0=ABS(uu),p1=ABS(vv);
   int f0 = 1, f1 = 0, g0 = 0, g1 = 1, q, r;
 
@@ -1600 +1601 @@
   int a = f0;
   int b = g0;
-  if ( (int)u->Data() < 0 ) a=-a;
-  if ( (int)v->Data() < 0 ) b=-b;
+  if ( uu /*(int)u->Data()*/ < 0 ) a=-a;
+  if ( vv /*(int)v->Data()*/ < 0 ) b=-b;
   lists L=(lists)omAllocBin(slists_bin);
   L->Init(3);
@@ -1737 +1738 @@
 static BOOLEAN jjGCD_I(leftv res, leftv u, leftv v)
 {
-  int p0=ABS((int)u->Data()),p1=ABS((int)v->Data());
+  int uu=(int)u->Data();int vv=(int)v->Data();
+  int p0=ABS(uu),p1=ABS(vv);
   int r;