Changeset 57f94a in git

Timestamp:

Oct 10, 2008, 12:18:13 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

53b391ab33ef8bd6a43142b1c54451fca08d1852

Parents:

7f1f2a45aaa4363f5fb9be8996b78121813f7ef5

Message:

*hannes: kill local objects in rings, which are in lists


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.193 2008-09-19 14:15:14 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.194 2008-10-10 10:18:13 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -252 +252 @@
   }
 }
+void killlocals_list(lists l,int v)
+{
+  int i;
+  for(i=l->nr; i>=0; i--)
+  {
+    if (l->m[i].rtyp == LIST_CMD)
+      killlocals_list((lists)l->m[i].data,v);
+    else if ((l->m[i].rtyp == RING_CMD) || (l->m[i].rtyp == QRING_CMD))
+      killlocals0(v,&(((ring)(l->m[i].data))->idroot),currRing);
+  }
+}
 #ifndef HAVE_NS
 void killlocals(int v)
@@ -282 +293 @@
     {
       killlocals0(v,&(IDPACKAGE(h)->idroot),IDRING(h));
+    }
+    else if (IDTYP(h) == LIST_CMD)
+    {
+      killlocals_list(IDLIST(h),v);
     }
     h = IDNEXT(h);