[SCM] an open source computer algebra system branch, cleanedupstream, updated. 6125e540ca6d66c307958938a9d53b245507c323

Bernhard R. Link brlink at debian.org
Tue Apr 24 15:53:22 UTC 2012


The following commit has been merged in the cleanedupstream branch:
commit bbfeee07b5a0f96b75f0b93e5f738696493a44e2
Author: Martin Lee <martinlee84 at web.de>
Date:   Tue Feb 21 15:45:42 2012 +0100

    fix: compilation errors with --enable-debugoutput

diff --git a/factory/facBivar.cc b/factory/facBivar.cc
index ad29493..d9c61a5 100644
--- a/factory/facBivar.cc
+++ b/factory/facBivar.cc
@@ -228,7 +228,7 @@ CFList biFactorize (const CanonicalForm& F, const Variable& v)
     TIMING_END_AND_PRINT (fac_uni_factorizer,
                           "time for univariate factorization: ");
     DEBOUTLN (cerr, "Lc (bufAeval)*prod (bufUniFactors)== bufAeval " <<
-              prod (bufUniFactors)*Lc (bufAeval) == bufAeval);
+              (prod (bufUniFactors)*Lc (bufAeval) == bufAeval));
 
     TIMING_START (fac_uni_factorizer);
     if (extension)
@@ -238,7 +238,7 @@ CFList biFactorize (const CanonicalForm& F, const Variable& v)
     TIMING_END_AND_PRINT (fac_uni_factorizer,
                           "time for univariate factorization in y: ");
     DEBOUTLN (cerr, "Lc (Aeval2)*prod (uniFactors2)== Aeval2 " <<
-              prod (bufUniFactors2)*Lc (bufAeval2) == bufAeval2);
+              (prod (bufUniFactors2)*Lc (bufAeval2) == bufAeval2));
 
     if (bufUniFactors.getFirst().inCoeffDomain())
       bufUniFactors.removeFirst();
diff --git a/factory/facFqBivar.cc b/factory/facFqBivar.cc
index 83d6649..f90e5d3 100644
--- a/factory/facFqBivar.cc
+++ b/factory/facFqBivar.cc
@@ -461,8 +461,8 @@ factorRecombination (CFList& factors, CanonicalForm& F,
     F= 1;
     return result;
   }
-  DEBOUTLN (cerr, "LC (F, 1)*prodMod (factors, M) == F " <<
-            (LC (F, 1)*prodMod (factors, M) == F));
+  DEBOUTLN (cerr, "LC (F, 1)*prodMod (factors, N) == F " <<
+            (LC (F, 1)*prodMod (factors, N) == F));
   CFList T, S;
 
   CanonicalForm M= N;
@@ -5585,7 +5585,7 @@ biFactorize (const CanonicalForm& F, const ExtensionInfo& info)
     TIMING_END_AND_PRINT (fac_uni_factorizer,
                           "time for univariate factorization: ");
     DEBOUTLN (cerr, "Lc (bufAeval)*prod (bufUniFactors)== bufAeval " <<
-              prod (bufUniFactors)*Lc (bufAeval) == bufAeval);
+              (prod (bufUniFactors)*Lc (bufAeval) == bufAeval));
 
     if (!derivXZero && !fail2)
     {
@@ -5594,7 +5594,7 @@ biFactorize (const CanonicalForm& F, const ExtensionInfo& info)
       TIMING_END_AND_PRINT (fac_uni_factorizer,
                             "time for univariate factorization in y: ");
       DEBOUTLN (cerr, "Lc (Aeval2)*prod (uniFactors2)== Aeval2 " <<
-                prod (bufUniFactors2)*Lc (bufAeval2) == bufAeval2);
+                (prod (bufUniFactors2)*Lc (bufAeval2) == bufAeval2));
     }
 
     if (bufUniFactors.length() == 1 ||
diff --git a/factory/fac_multihensel.cc b/factory/fac_multihensel.cc
index 27d0e50..c9e99f6 100644
--- a/factory/fac_multihensel.cc
+++ b/factory/fac_multihensel.cc
@@ -164,7 +164,7 @@ findCorrCoeffs ( const CFArray & P, const CFArray & Q, const CFArray & P0, const
     for ( i = 1; i <= r; i++ )
         A[i] = remainder( pk( a[i] * C0 ), P0[i], pk );
     DEBOUTLN( cerr, "the first approximation of the correction coefficients is " << A );
-#ifdef DEBUGOUTPUT
+/*#ifdef DEBUGOUTPUT
     if ( check_dummy( A, P, Q ) - C != 0 )
     {
         DEBOUTLN( cerr, "there is an error detected, the correction coefficients do not" );
@@ -172,7 +172,7 @@ findCorrCoeffs ( const CFArray & P, const CFArray & Q, const CFArray & P0, const
         DEBOUTLN( cerr, "corresponding P " << P );
         DEBOUTLN( cerr, "              Q " << Q );
     }
-#endif
+#endif*/
     for ( m = 0; m <= h && ( m == 0 || Dm != 0 ); m++ )
     {
         Dm = pk( evalF( P, Q, A, r ) - C );
@@ -214,14 +214,14 @@ findCorrCoeffs ( const CFArray & P, const CFArray & Q, const CFArray & P0, const
         }
         DEBOUTLN( cerr, "the correction coefficients at step " << m );
         DEBOUTLN( cerr, "are now " << A );
-#ifdef DEBUGOUTPUT
+/*#ifdef DEBUGOUTPUT
     if ( check_dummy( A, P, Q ) - C != 0 ) {
         DEBOUTLN( cerr, "there is an error detected, the correction coefficients do not" );
         DEBOUTLN( cerr, "fulfill equation F(A)" );
         DEBOUTLN( cerr, "corresponding P " << P );
         DEBOUTLN( cerr, "              Q " << Q );
     }
-#endif
+#endif*/
     }
     DEBDECLEVEL( cerr, "findCorrCoeffs" );
     return A;

-- 
an open source computer algebra system



More information about the debian-science-commits mailing list