Changeset 558f3cc in git for libpolys/polys/ext_fields/transext.cc

Timestamp:

Jan 4, 2013, 6:39:47 PM (11 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

8f296a6216092a84f1ebb509dbcda5fe428004f7

Parents:

d9947d272d574a169450505d43dc8ad3a5b4d0f0

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2013-01-04 18:39:47+01:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2013-01-15 20:41:56+01:00

Message:

Fix: make positive leading coeff at normalizing!

File:

• libpolys/polys/ext_fields/transext.cc (modified) (5 diffs)

libpolys/polys/ext_fields/transext.cc

@@ -101 +101 @@
 
 
-extern void nlClearContent(ICoeffsEnumerator&, number&, const coeffs);
-extern void nlClearContentNoPositiveLead(ICoeffsEnumerator&, number&, const coeffs);
-
-//extern void nlClearDenominators(ICoeffsEnumerator&, number&, const coeffs);
-//extern void nlClearDenominatorsNoPositiveLead(ICoeffsEnumerator&, number&, const coeffs);
-
-
 omBin fractionObjectBin = omGetSpecBin(sizeof(fractionObject));
 
@@ -315 +308 @@
 
     n_ClearDenominators(itr, g, ntRing->cf);
-//    nlClearDenominators(itr, g, ntRing->cf);
 
     if( !n_GreaterZero(g, ntRing->cf) )
@@ -402 +394 @@
 
   n_ClearDenominators(itr, g, ntRing->cf); // may return -1 :(((
-//    nlClearDenominators(itr, g, ntRing->cf);
-
 
   if( !n_GreaterZero(g, ntRing->cf) )
@@ -556 +546 @@
 
     n_ClearDenominators(itr, g, ntRing->cf);
-//    nlClearDenominators(itr, g, ntRing->cf);
 
     if( !n_GreaterZero(g, ntRing->cf) )
@@ -1825 +1814 @@
   number cc;
 
-//  nlClearContentNoPositiveLead(itr, cc, Q); // TODO: get rid of (-LC) normalization!?
-  nlClearContent(itr, cc, Q);
+  n_ClearContent(itr, cc, Q);
   number g = ntInit(p_NSet(cc, R), cf);