Changeset 6e3cab in git

Timestamp:

Jul 26, 2006, 3:49:29 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')

Children:

9f7370680fe1fcdd4b1f7d54b568d74bb239e6fe

Parents:

f3c6e5cf695bf90001021f22fdfc176f564b03fb

Message:

*hannes: ringlist


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

Location:

Singular

Files:

• iparith.cc (modified) (2 diffs)
• ipshell.cc (modified) (2 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.406 2006-07-18 16:09:18 Singular Exp $ */
+/* $Id: iparith.cc,v 1.407 2006-07-26 13:49:29 Singular Exp $ */
 
 /*
@@ -3954 +3954 @@
   if (r!=NULL)
     res->data = (char *)rDecompose((ring)v->Data());
-  return (r==NULL);
+  return (r==NULL)||(res->data==NULL);
 }
 static BOOLEAN jjROWS(leftv res, leftv v)

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.141 2006-07-21 12:36:26 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.142 2006-07-26 13:49:28 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1676 +1676 @@
   else if (rIsExtension(r))
   {
-    rDecomposeCF(&(L->m[0]),r->algring,r);
+    if (r->algring!=NULL)
+      rDecomposeCF(&(L->m[0]),r->algring,r);
     if (L->m[0].rtyp==0)
     {
-      omFreeBin(slists_bin,(void *)L);
+      //omFreeBin(slists_bin,(void *)L);
       return NULL;
     }