Changeset 8f509d in git for Singular/ipid.cc

Timestamp:

Mar 14, 2011, 8:03:01 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

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

Children:

aa2a4e7bda99071f7c4636b115e0c2f765522836

Parents:

5b3386fb66d35f1c12a4ae9bea2807b803a78286

Message:

better test in killhdl2

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

File:

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

Singular/ipid.cc

@@ -375 +375 @@
     h->attribute=NULL;
   }
-  if ((IDTYP(h) == PACKAGE_CMD) && (strcmp(IDID(h),"Top")==0))
-  {
-    WarnS("can not kill `Top`");
-    return;
-  }
   // ring / qring  --------------------------------------------------------
   if ((IDTYP(h) == RING_CMD) || (IDTYP(h) == QRING_CMD))
@@ -389 +384 @@
   else if (IDTYP(h) == PACKAGE_CMD)
   {
+    if (strcmp(IDID(h),"Top")==0)
+    {
+      WarnS("can not kill `Top`");
+      return;
+    }
     // any objects defined for this package ?
     if ((IDPACKAGE(h)->ref<=0)  &&  (IDPACKAGE(h)->idroot!=NULL))