[SCM] an open source computer algebra system branch, cleanedupstream, updated. 6125e540ca6d66c307958938a9d53b245507c323
Bernhard R. Link
brlink at debian.org
Tue Apr 24 15:55:04 UTC 2012
The following commit has been merged in the cleanedupstream branch:
commit 2c3137814851fe3673ffcc0e34c40ec667a565c2
Author: Martin Lee <martinlee84 at web.de>
Date: Tue Feb 28 14:28:47 2012 +0100
chg: count factors only in debug version
diff --git a/kernel/clapsing.cc b/kernel/clapsing.cc
index 7c49e2f..105d907 100644
--- a/kernel/clapsing.cc
+++ b/kernel/clapsing.cc
@@ -909,28 +909,39 @@ ideal singclap_factorize ( poly f, intvec ** v , int with_exps)
#endif
else if (rField_is_Extension()) /* Q(a), Fp(a) */
{
+#ifndef NDEBUG
intvec *w=NULL;
if (v!=NULL) w=*v;
+#endif
if (currRing->minpoly==NULL)
{
+#ifdef NDEBUG
+ res->m[j]= convFactoryPSingTrP( J.getItem().factor() );
+#else
if(!count_Factors(res,w,j,ff,convFactoryPSingTrP( J.getItem().factor() )))
{
if (w!=NULL)
(*w)[j]=1;
res->m[j]=pOne();
}
+#endif
}
else
{
+#ifdef NDEBUG
+ res->m[j]= convFactoryAPSingAP( J.getItem().factor(),currRing );
+#else
if (!count_Factors(res,w,j,ff,convFactoryAPSingAP( J.getItem().factor(),currRing )))
{
if (w!=NULL)
(*w)[j]=1;
res->m[j]=pOne();
}
+#endif
}
}
}
+#ifndef NDEBUG
if (rField_is_Extension() && (!pIsConstantPoly(ff)))
{
singclap_factorize_retry++;
@@ -979,6 +990,7 @@ ideal singclap_factorize ( poly f, intvec ** v , int with_exps)
res->m[1]=ff; ff=NULL;
}
}
+#endif
pDelete(&ff);
if (N!=NULL)
{
--
an open source computer algebra system
More information about the debian-science-commits
mailing list