Changeset cfa930 in git for Singular/ipshell.cc

Timestamp:

Apr 18, 2005, 2:22:09 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '00e2e9c41af3fde1273eb3633f4c0c7c3db2579d')

Children:

36e9c354d299283920e498516f0f8a0f1b1541af

Parents:

31bf3a449e9947bffce595d935b0842c66737568

Message:

*hannes: ringlist bug fixed


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.97 2005-02-17 09:49:20 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.98 2005-04-18 12:22:09 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1727 +1727 @@
       goto rCompose_err;
     }
-    R->ch=R->algring->ch;
+    if (R->algring->ch>0)
+       R->ch= -R->algring->ch;
+    else
+       R->ch=1;
     R->parameter=R->algring->names;
     R->P=R->algring->N;
+    if (R->algring->qideal!=NULL)
+    {
+      R->minpoly=pGetCoeff(R->algring->qideal->m[0]);
+    }
   }
   else