Changeset 7b2b05 in git for libpolys/polys/clapsing.cc

Timestamp:

Aug 10, 2011, 5:59:04 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

072660924afb50e548220c7b6d431008d9d10d80

Parents:

3b1d9ad2203f374c5bb63a847f440d4759cd47c2

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-08-10 17:59:04+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 13:19:11+01:00

Message:

removed longalg.*, longtrans.* (we use now algext.*, transext.*)

File:

• libpolys/polys/clapsing.cc (modified) (4 diffs)

libpolys/polys/clapsing.cc

@@ -25 +25 @@
 #include "monomials/ring.h"
 #include "simpleideals.h"
+#include "ext_fields/transext.h"
 //#include "polys.h"
 
@@ -283 +284 @@
       pIter(p);
     }
-    g = convSingPFactoryP( ((lnumber)g1)->z, r->cf->extRing );
-    g = gcd( g, convSingPFactoryP( ((lnumber)g2)->z , r->cf->extRing));
+    g = convSingPFactoryP( NUM(((fraction)g1)), r->cf->extRing );
+    g = gcd( g, convSingPFactoryP( NUM(((fraction)g2)) , r->cf->extRing));
 
     // second run: gcd's
@@ -291 +292 @@
     while ( (p != NULL) && (g != 1)  && ( g != 0))
     {
-      h = convSingPFactoryP( ((lnumber)pGetCoeff(p))->z, r->cf->extRing );
+      h = convSingPFactoryP( NUM(((fraction)pGetCoeff(p))), r->cf->extRing );
       pIter( p );
 
@@ -308 +309 @@
       for ( i = L, p = f; i.hasItem(); i++, p=pNext(p) )
       {
-        lnumber c=(lnumber)pGetCoeff(p);
-        p_Delete(&c->z,r->cf->extRing); // 2nd arg used to be nacRing
-        c->z=convFactoryPSingP( i.getItem() / g, r->cf->extRing );
+        fraction c=(fraction)pGetCoeff(p);
+        p_Delete(&(NUM(c)),r->cf->extRing); // 2nd arg used to be nacRing
+        NUM(c)=convFactoryPSingP( i.getItem() / g, r->cf->extRing );
         //nTest((number)c);
         //#ifdef LDEBUG