Changeset ec7055 in git

Timestamp:

Jan 29, 2007, 5:57:59 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

45ce3a4794f36f429c3c3083420266cba17d32de

Parents:

0a7bf59115a2b11bac5fca4b91ed6c784c2f6146

Message:

*hannes: never delete minpoly


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

File:

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

kernel/longalg.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.cc,v 1.19 2007-01-15 17:12:09 Singular Exp $ */
+/* $Id: longalg.cc,v 1.20 2007-01-29 16:57:59 Singular Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -87 +87 @@
 
   if (r->minpoly!=NULL)
+  {
     naMinimalPoly=((lnumber)r->minpoly)->z;
+    omCheckAddr(naMinimalPoly);
+  }
   else
     naMinimalPoly = NULL;
@@ -934 +937 @@
 void naDelete(number *p, const ring r)
 {
-  lnumber l = (lnumber) * p;
-  if (l==NULL) return;
-  nap_Delete(&(l->z),r);
-  nap_Delete(&(l->n),r);
-  omFreeBin((ADDRESS)l,  rnumber_bin);
+  if ((*p)!=r->minpoly)
+  {
+    lnumber l = (lnumber) * p;
+    if (l==NULL) return;
+    nap_Delete(&(l->z),r);
+    nap_Delete(&(l->n),r);
+    omFreeBin((ADDRESS)l,  rnumber_bin);
+  }
   *p = NULL;
 }