Changeset 45ce3a4 in git

Timestamp:

Jan 29, 2007, 5:58:32 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

1616fde9aae1fd31241ff2e5303290708fda07d6

Parents:

ec7055abfd61047c42a1d4ee6e39e735fac26073

Message:

*hannes: cleanup minpoly


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

File:

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

kernel/numbers.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: numbers.cc,v 1.4 2006-11-29 16:48:41 Singular Exp $ */
+/* $Id: numbers.cc,v 1.5 2007-01-29 16:58:32 Singular Exp $ */
 
 /*
@@ -569 +569 @@
                  #endif
                  break;
+            case n_Zp_a:
+            case n_Q_a:
+                 {
+                   number n=r->minpoly;
+                   if (n!=NULL)
+                   {
+                     r->minpoly=NULL;
+                     if (r==currRing) naMinimalPoly=NULL;
+                     naDelete(&n,r);
+                   }
+                 }
+                 break;
 
             default: