Changeset f2dff02 in git for Singular/ipshell.cc

Timestamp:

Mar 26, 2001, 9:30:24 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

355f86ae1e09b962323c4d49da60c5aa3a7eb6c5

Parents:

1bd25e34e1c021af2213fdd6edb61b9aa82fa6ca

Message:

*hannes: CleanUp does a memset


git-svn-id: file:///usr/local/Singular/svn/trunk@5342 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.64 2001-03-22 19:11:04 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.65 2001-03-26 19:30:23 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -386 +386 @@
   while (h!=NULL)
   {
-    if ((all && (IDTYP(h)!=PROC_CMD)) || (typ == IDTYP(h))
+    if ((all && (IDTYP(h)!=PROC_CMD) &&(IDTYP(h)!=PACKAGE_CMD))
+    || (typ == IDTYP(h))
     || ((IDTYP(h)==QRING_CMD) && (typ==RING_CMD)))
     {
@@ -1043 +1044 @@
     else
     {
-      if(iiInternalExport(v, toLev)) {
+      if(iiInternalExport(v, toLev))
+      {
         r->CleanUp();
         return TRUE;
@@ -1087 +1089 @@
         }
       }
-      if(iiInternalExport(v, toLev, root)) {
+      if(iiInternalExport(v, toLev, root))
+      {
         rv->CleanUp();
         return TRUE;