Changeset cb5cac in git

Timestamp:

Apr 29, 2005, 9:49:55 AM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

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

Children:

4a6242abfaa93ddde9ca7acc95671e425630dfe9

Parents:

9b9c0bb771fb3d647ef04f15446ad8643b2a6dc2

Message:

*hannes: ringlist


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.104 2005-04-26 18:21:26 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.105 2005-04-29 07:49:55 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1592 +1592 @@
 }
 
-lists rDecompose(ring r)
-{
+lists rDecompose(const ring r)
+{
+  // sanity check:
+  if ((r!=currRing) 
+  && ((r->minpoly!=NULL) || (r->qideal!=NULL) || (r->minideal!=NULL))
+  )
+  {
+    WerrorS("ring must be the base ring or compatible");
+    return NULL;
+  }
   // 0: char/ cf - ring
   // 1: list (var)
@@ -1615 +1623 @@
     else
       rDecomposeCF(&(L->m[0]),r->algring,r);
+    if (L->m[0].rtyp==0)
+    {
+      omFreeBin(slists_bin,(void *)L);
+      return NULL;
+    }
   }
   else
@@ -1700 +1713 @@
 }
 
-ring rCompose(lists  L)
+ring rCompose(const lists  L)
 {
   if ((L->nr!=3)