Changeset 98621a5 in git

Timestamp:

Dec 8, 2000, 3:42:37 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

0c3e67247d81662592a32fdb1e1d73d073658c88

Parents:

856b116e305edbb0b4ab17b6a00800fac298acbb

Message:

*hannes: napGetExpFrom


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

Location:

Singular

Files:

• algmap.cc (modified) (3 diffs)
• longalg.h (modified) (2 diffs)

Singular/algmap.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: algmap.cc,v 1.19 2000-12-08 12:45:28 Singular Exp $ */
+/* $Id: algmap.cc,v 1.20 2000-12-08 14:42:37 Singular Exp $ */
 /*
 * ABSTRACT - the mapping of polynomials from rings with
@@ -45 +45 @@
       for (i=1; i<=t; i++)
       {
-        napSetExp(b0,i,napGetExp(a0,i));
+        napSetExp(b0,i,napGetExpFrom(a0,i,r0));
       }
     }
@@ -249 +249 @@
     for(i=0; i<s; i++)
     {
-      if (napGetExp(a0,i+1) != 0)
+      if (napGetExpFrom(a0,i+1,r) != 0)
       {
         if (F->m[i]!=NULL)
         {
-          q0 = pPower(pCopy(F->m[i]),napGetExp(a0,i+1));
+          q0 = pPower(pCopy(F->m[i]),napGetExpFrom(a0,i+1,r));
           q = pMult(q, q0);
         }

Singular/longalg.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.h,v 1.20 2000-12-08 13:42:07 Singular Exp $ */
+/* $Id: longalg.h,v 1.21 2000-12-08 14:42:37 Singular Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -94 +94 @@
 #define napGetCoeff(p) (p->ko)
 #define napGetExp(p,i) ((p)->e[(i)-1])
+#define napGetExpFrom(p,i,r) ((p)->e[(i)-1])
 #define napSetExp(p,i,ee) ((p)->e[(i)-1]=ee)
 #define napNew() ((alg)omAlloc0(napMonomSize))