Changeset f0549c8 in git for kernel/fglmzero.cc

Timestamp:

Dec 17, 2011, 9:38:50 PM (12 years ago)

Author:

Christian Eder

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

0fc4c8bd0177d4673beebe5a386cd69e4161f080

Parents:

27637404a579c5be90dfdaadf21dd3a6e892901b

git-author:

Christian Eder <ederc@mathematik.uni-kl.de>2011-12-17 21:38:50+01:00

git-committer:

Christian Eder <ederc@mathematik.uni-kl.de>2011-12-19 15:30:56+01:00

Message:

fixes Manual tests: fglm and stdfglm

File:

• kernel/fglmzero.cc (modified) (7 diffs)

kernel/fglmzero.cc

@@ -987 +987 @@
     pdenom= nInit( 1 );
     number vdenom = v.clearDenom();
-    if ( ! nIsOne( vdenom ) && ! nIsZero( vdenom ) ) {
+    if ( ! nIsZero( vdenom ) && ! nIsOne( vdenom ) ) {
         p.setelem( p.size(), vdenom );
     }
@@ -994 +994 @@
     }
     number gcd = v.gcd();
-    if ( ! nIsOne( gcd ) && ! nIsZero( gcd ) ) {
+    if ( ! nIsZero( gcd ) && ! nIsOne( gcd ) ) {
         v /= gcd;
         number temp= nMult( pdenom, gcd );
@@ -1020 +1020 @@
             nDelete( & fac2 );
             number gcd = v.gcd();
-            if ( ! nIsOne( gcd ) && ! nIsZero( gcd ) ) {
+            if ( ! nIsZero( gcd ) && ! nIsOne( gcd ) ) {
                 v /= gcd;
                 number temp= nMult( pdenom, gcd );
@@ -1186 +1186 @@
 // for a descritption of the parameters see fglm.h
 BOOLEAN
-fglmzero( ring sourceRing, ideal & sourceIdeal, idhdl destRingHdl, ideal & destIdeal, BOOLEAN switchBack, BOOLEAN deleteIdeal )
-{
-    //idhdl initialRingHdl = currRingHdl;
+fglmzero( ring sourceRing, ideal & sourceIdeal, ring destRing, ideal & destIdeal, BOOLEAN switchBack, BOOLEAN deleteIdeal )
+{
+    ring initialRing = currRing;
     BOOLEAN fglmok;
 
@@ -1194 +1194 @@
     {
         rChangeCurrRing( sourceRing );
-        //currRingHdl=NULL;
     }
     idealFunctionals L( 100, rVar(currRing) );
@@ -1200 +1199 @@
     if ( deleteIdeal == TRUE )
         idDelete( & sourceIdeal );
-    //rSetHdl( destRingHdl );
+    rChangeCurrRing( destRing );
     if ( fglmok == TRUE )
     {
@@ -1206 +1205 @@
         destIdeal= GroebnerViaFunctionals( L );
     }
-    //if ( (switchBack) && (currRingHdl != initialRingHdl) )
-    //    rSetHdl( initialRingHdl );
+    if ( (switchBack) && (currRing != initialRing) )
+      rChangeCurrRing( initialRing );
     return fglmok;
 }