Changeset 54cbca in git for factory

Timestamp:

Nov 22, 2007, 10:33:09 AM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

efdcc51591d42e61b55ae0e5cbb4586828e3a826

Parents:

9e23c68bff0ebd5ecd51b2b03137e3d8e7afd0ee

Message:

* avoid return 0 in gcd


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

File:

• factory/ffreval.cc (modified) (6 diffs)

factory/ffreval.cc

@@ -60 +60 @@
   }
   return *this;
-}    
+}
 
 /* forward declarations:*/
@@ -117 +117 @@
         DEBOUTLN( cerr, "G = " << G );
         if( ! fin_findeval( F, G, Fb, Gb, Db, b, delta, degF, degG ) )
-           return 0;
+        {
+           Off(SW_USE_EZGCD_P);
+           d *= gcd_poly_p(F,G);
+           On(SW_USE_EZGCD_P);
+           return d;
+        }
 
         DEBOUTLN( cerr, "found evaluation b = " << b );
@@ -135 +140 @@
             bt = b;
             if( ! fin_findeval( F, G, Fbt, Gbt, Dbt, bt, delta + 1, degF, degG ) )
-               return 0;
+            {
+              Off(SW_USE_EZGCD_P);
+              d *= gcd_poly_p(F,G);
+              On(SW_USE_EZGCD_P);
+              return d;
+            }
 
             int dd=degree( Dbt );
@@ -179 +189 @@
                 lcDD[2] = lcF;
                 B *= lcF;
-                B_is_F=true;
+                B_is_F=true;
             }
             //else  if ( gcd( (DD[1] = Gb / Db), Db ) == 1 ) {
@@ -196 +206 @@
                 lcDD[2] = lcG;
                 B *= lcG;
-                B_is_F=false;
+                B_is_F=false;
               }
               else
@@ -279 +289 @@
         //     '(4*B^7*C^2-50*B^5*C^3+208*B^3*C^4-288*B*C^5)'
         if( ! b.step() ) // Error: run out of points
-           return 0;
-
+        {
+          Off(SW_USE_EZGCD_P);
+          d = gcd_poly_p(F,G);
+          On(SW_USE_EZGCD_P);
+          return d;
+        }
         return fin_ezgcd( F, G, b, true );
     }