Changeset bb82f0 in git for factory/cf_gcd.cc

Timestamp:

Jun 16, 2008, 2:55:41 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

c99b6b9aa9684f111c07fca497f1d2256859ad05

Parents:

ca4a07322f31d377c0c316a145437504fb8e6be0

Message:

*hannes: SW_USE_QGCD


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

File:

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

factory/cf_gcd.cc

@@ -1 +1 @@
 /* emacs edit mode for this file is -*- C++ -*- */
-/* $Id: cf_gcd.cc,v 1.61 2008-05-16 13:11:31 Singular Exp $ */
+/* $Id: cf_gcd.cc,v 1.62 2008-06-16 12:55:41 Singular Exp $ */
 
 #include <config.h>
@@ -16 +16 @@
 #include "ftmpl_functions.h"
 #include "ffreval.h"
+#include "algext.h"
 
 #ifdef HAVE_NTL
@@ -762 +763 @@
                 return cf_content( g, f );
         }
+        if (isOn(SW_USE_QGCD))
+        {
+          Variable m;
+          if ((hasFirstAlgVar(f,m) || hasFirstAlgVar(g,m))
+          //&& f.isUnivariate()
+          //&& g.isUnivariate()
+          && (getCharacteristic() == 0)
+          )
+            return QGCD(f,g);
+        }
+            
         if ( f.inExtension() && getReduce( f.mvar() ) )
-            return 1;
+            return CanonicalForm(1);
         else
         {
@@ -1149 +1161 @@
   }
 }
+#include "algext.cc"