Changeset 0a52b49 in git

Timestamp:

Oct 8, 2009, 12:43:33 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

d065cd984dcdbaa794be8a7a43c69e54c1c3c000

Parents:

e2afcedc88f05c860f7b86aa70958e538eb8727f

Message:

*hannes: longalg stuff


git-svn-id: file:///usr/local/Singular/svn/trunk@12171 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• kernel/clapconv.cc (modified) (3 diffs)

kernel/clapconv.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapconv.cc,v 1.19 2009-09-24 16:37:41 Singular Exp $
+// $Id: clapconv.cc,v 1.20 2009-10-08 10:43:33 Singular Exp $
 /*
 * ABSTRACT: convert data between Singular and factory
@@ -334 +334 @@
       }
     }
-    if ( (e = napGetExp( p, 1 )) != 0 )
+    if ( (e = p_GetExp( p, 1, r->algring )) != 0 )
       term *= power( a , e );
     result += term;
@@ -393 +393 @@
     if (naMinimalPoly!=NULL)
     {
-      if (napGetExp(a,1) >= napGetExp(naMinimalPoly,1))
+      if (p_GetExp(a,1,currRing->algring) >= p_GetExp(naMinimalPoly,1,currRing->algring))
         a = napRemainder( a, naMinimalPoly);
     }