Changeset e96e92 in git

Timestamp:

Sep 12, 2008, 4:16:01 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

7be8ecce7f47aa46d48a1b6537109c812b3ebdff

Parents:

0007379bc6256aabf4e5ad04c01f5c36d37561f7

Message:

*hannes: use QGCD


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

File:

• kernel/clapsing.cc (modified) (3 diffs)

kernel/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.30 2008-07-16 12:50:01 Singular Exp $
+// $Id: clapsing.cc,v 1.31 2008-09-12 14:16:01 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -238 +238 @@
     if (currRing->minpoly!=NULL)
     {
+    #if 0
     #ifdef HAVE_LIBFAC_P
       if (( nGetChar()==1 ) /* Q(a) */ && (!isOn(SW_USE_QGCD)))
@@ -255 +256 @@
       else
       #endif
-      {
+      #endif
+      {
+        bool b=isOn(SW_USE_QGCD);
+        if ( nGetChar()==1 ) On(SW_USE_QGCD);
         CanonicalForm mipo=convSingTrFactoryP(((lnumber)currRing->minpoly)->z);
         Variable a=rootOf(mipo);
         CanonicalForm F( convSingAPFactoryAP( f,a ) ), G( convSingAPFactoryAP( g,a ) );
         res= convFactoryAPSingAP( gcd( F, G ) );
+        if (!b) Off(SW_USE_QGCD);
       }
     }