Changeset 8f509d in git for Singular

Timestamp:

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

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

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))