Changeset 448b65 in git

Timestamp:

Nov 20, 2013, 10:19:07 AM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '5bec8f88c9ee2573d328cf7c3aff2bcb301d2395')

Children:

3fd3f31590cf8b9f431551f3e01e9e7d80ab6bcf

Parents:

60110589ad662f73a8d1ce726f2441e594383bfd

Message:

chg: normalize extgcd to lc=1

File:

• factory/cf_gcd.cc (modified) (2 diffs)

factory/cf_gcd.cc

@@ -401 +401 @@
       {
         Off(SW_USE_NTL_GCD_0);
-        r=extgcd(f,g,a,b);
-        On(SW_USE_NTL_GCD_0);
+        r=extgcd(f,g,a,b);
+        if (isOn(SW_RATIONAL))
+        {
+          a/=r.lc();
+          b/=r.lc();
+          r/=r.lc();
+        }
+        On(SW_USE_NTL_GCD_0);
       }
     }
@@ -417 +423 @@
       {
         Off(SW_USE_NTL_GCD_0);
-        r=extgcd(f,g,a,b);
-        On(SW_USE_NTL_GCD_0);
+        r=extgcd(f,g,a,b);
+        if (isOn(SW_RATIONAL))
+        {
+          a/=r.lc();
+          b/=r.lc();
+          r/=r.lc();
+        }
+        On(SW_USE_NTL_GCD_0);
       }
       return r;