Changeset e243f1d in git for Singular/maps_ip.cc

Timestamp:

Jul 17, 2014, 6:13:53 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

33d6103f93e00982d97c8b9987b7d8142775a7cc

Parents:

2a2e433d4416b4a41ad54af2f8b70c037e825787

Message:

fix: tr.#626

File:

• Singular/maps_ip.cc (modified) (1 diff)

Singular/maps_ip.cc

@@ -279 +279 @@
 
     number num = n_GetNumerator(p_GetCoeff(p, currRing), currRing);
-    assume( p_Test((poly)NUM(num), R) );
-
     memset(&tmpW,0,sizeof(sleftv));
     tmpW.rtyp = POLY_CMD;
-    tmpW.data = NUM (num); // a copy of this poly will be used
-
-    p_Normalize(NUM(num),R);
-    if (maApplyFetch(MAP_CMD,theMap,v,&tmpW,R,NULL,NULL,0,nMap))
-    {
-      WerrorS("map failed");
-      v->data=NULL;
-    }
-    n_Delete(&num, currRing);
-
+    if (num==NULL) // minpoly
+    {
+      num=(number)(currRing->cf->extRing->qideal->m[0]);
+      tmpW.data = num;
+      if (maApplyFetch(MAP_CMD,theMap,v,&tmpW,R,NULL,NULL,0,nMap))
+      {
+        WerrorS("map failed");
+        v->data=NULL;
+      }
+    }
+    else
+    {
+      assume( p_Test((poly)NUM(num), R) );
+
+      tmpW.data = NUM (num); // a copy of this poly will be used
+
+      p_Normalize(NUM(num),R);
+      if (maApplyFetch(MAP_CMD,theMap,v,&tmpW,R,NULL,NULL,0,nMap))
+      {
+        WerrorS("map failed");
+        v->data=NULL;
+      }
+      n_Delete(&num, currRing);
+    }
     //TODO check for memory leaks
     poly pp = pHead(p);