Changeset 9f6cc0 in git

Timestamp:

Sep 27, 2012, 7:38:18 PM (10 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

dc79bd7d1e331302a1fc20150a37e81890e6300a

Parents:

f7a3f2c3bd5758d1e77832d52f4959f79e8c7768

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-09-27 19:38:18+02:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-10-05 18:15:05+02:00

Message:

Fix wrong doings at "minpoly = _par_poly_;" for switching to alg. ext.

File:

• Singular/ipassign.cc (modified) (2 diffs)

Singular/ipassign.cc

@@ -256 +256 @@
   ideal q = idInit(1,1);
 
-  assume( DEN((fractionObject *)(p)) == NULL ); // minpoly must be a poly...!?
-
-  q->m[0] = NUM((fractionObject *)p);
+  assume( DEN((fraction)(p)) == NULL ); // minpoly must be a fraction with poly numerator...!!
+
+  q->m[0] = NUM((fraction)p);
   A.r->qideal = q;
 
@@ -269 +269 @@
 #endif
 
-  NUM((fractionObject *)p) = NULL; n_Delete(&p, currRing->cf);
+  // :( 
+//  NUM((fractionObject *)p) = NULL; // makes 0/ NULL fraction - which should not happen!
+//  n_Delete(&p, currRing->cf); // doesn't expect 0/ NULL :(
+  if(true)
+  {
+    extern omBin fractionObjectBin;
+    NUM((fractionObject *)p) = NULL; // not necessary, but still...
+    omFreeBin((ADDRESS)p, fractionObjectBin);
+  }
+
 
   coeffs new_cf = nInitChar(n_algExt, &A);