Changeset 713bdb in git for factory/algext.cc

Timestamp:

Sep 12, 2008, 12:43:58 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

fb0d9aac10ed984cf41f9bd1c5e18752cecc013b

Parents:

cab83807bb068e131a3c656b02a316119e75729c

Message:

*hannes: QGCD


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

File:

• factory/algext.cc (modified) (5 diffs)

factory/algext.cc

@@ -490 +490 @@
   int *bound, *other; // degree vectors
   bool fail;
+  bool off_rational=!isOn(SW_RATIONAL);
   On( SW_RATIONAL ); // needed by bCommonDen
   f = F * bCommonDen(F);
@@ -510 +511 @@
       tmp = gcd( F, G );
       On( SW_USE_QGCD );
+      if (off_rational) Off(SW_RATIONAL);
       return tmp;
     }
@@ -560 +562 @@
         continue;
       setReduce(a,true);
+      if (off_rational) Off(SW_RATIONAL); else On(SW_RATIONAL);
       return CanonicalForm(1);
     }
@@ -584 +587 @@
         Off( SW_RATIONAL );
         setReduce(a,true);
+        if (off_rational) Off(SW_RATIONAL); else On(SW_RATIONAL);
         return tmp;
       }
@@ -603 +607 @@
   D = gcd( f, g );
   On( SW_USE_QGCD );
+  if (off_rational) Off(SW_RATIONAL); else On(SW_RATIONAL);
   return D;
 }