Changeset 64345a4 in git for kernel/longalg.cc

Timestamp:

Apr 27, 2005, 4:55:33 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

22f6bc952f5b3bd1af1938ea8eb57b9710821dc8

Parents:

c01577b9269d33a2e140644f2888687cda7bb211

Message:

*hannes: map 1/a into Q


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

File:

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

kernel/longalg.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.cc,v 1.8 2005-04-18 13:01:39 Singular Exp $ */
+/* $Id: longalg.cc,v 1.9 2005-04-27 14:55:33 Singular Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -2310 +2310 @@
       if (zb!=NULL)
       {
-        pan->n=napPerm(zb,par_perm,oldRing,nMap);
-        if(pan->n==NULL) /* error in mapping or mapping to variable */
+        if  (currRing->P>0)
+        {
+          pan->n=napPerm(zb,par_perm,oldRing,nMap);
+          if(pan->n==NULL) /* error in mapping or mapping to variable */
+            pDelete(&p);
+        }
+        else
           pDelete(&p);
       }