Changeset aa74213 in git for kernel/longalg.cc

Timestamp:

Oct 9, 2009, 2:24:16 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

70f63ab39d1a6a435e42e041336a21e13c1269d9

Parents:

6094f40a4b25fd0a3a901bd854053d0df6b84df3

Message:

*hannes: removed napDelete1


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

File:

• kernel/longalg.cc (modified) (8 diffs)

kernel/longalg.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.cc,v 1.57 2009-10-09 12:21:25 Singular Exp $ */
+/* $Id: longalg.cc,v 1.58 2009-10-09 12:24:16 Singular Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -165 +165 @@
 
 #define napSetCoeff(p,n) {n_Delete(&pGetCoeff(p),nacRing);pGetCoeff(p)=n;}
-#define napDelete1(p)    p_LmDelete((poly *)p, nacRing)
 #define napComp(p,q)     p_LmCmp((poly)p,(poly)q, nacRing)
 #define napMultT(A,E)    A=(napoly)p_Mult_mm((poly)A,(poly)E,nacRing)
@@ -516 +515 @@
     if (nacIsZero(pGetCoeff(a)))
     {
-      napDelete1(&a);
+      p_LmDelete(&a,nacRing);
       *b = NULL;
       return s;
@@ -748 +747 @@
         if (!nacIsOne(pGetCoeff(g)))
           napMultN(y, pGetCoeff(g));
-        napDelete1(&g);
+        p_LmDelete(&g,nacRing);
         return y;
       }
@@ -757 +756 @@
     }
     p_Delete(&y,nacRing);
-    napDelete1(&h);
+    p_LmDelete(&h,nacRing);
     napSetExp(g,1, napExp(a, b));
     p_Setm(g,nacRing);
@@ -1834 +1833 @@
     if (nacIsOne(pGetCoeff(y)))
     {
-      napDelete1(&y);
+      p_LmDelete(&y,nacRing);
       p->n = NULL;
       naTest(pp);
@@ -1843 +1842 @@
     napMultN(x, h1);
     n_Delete(&h1,nacRing);
-    napDelete1(&y);
+    p_LmDelete(&y,nacRing);
     p->n = NULL;
     naTest(pp);
@@ -1909 +1908 @@
         if (p_GetExp(y,1,nacRing)==0)
         {
-          napDelete1(&y);
+          p_LmDelete(&y,nacRing);
           p->n = NULL;
         }