Changeset 573da6 in git for Singular/ipshell.cc

Timestamp:

Dec 13, 2002, 5:20:06 PM (21 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

8529a453cec7b7b85f5b168b7d8aa88ef808a957

Parents:

ec335c4b9af3e050a019c0bdd58492ac2083b20d

Message:

*hannes: procstack changed


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.77 2002-07-02 13:26:04 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.78 2002-12-13 16:20:06 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -974 +974 @@
         }
 #ifdef USE_IILOCALRING
-            if (iiLocalRing[0]==IDRING(h)) iiLocalRing[0]=NULL;
+        if (iiLocalRing[0]==IDRING(h)) iiLocalRing[0]=NULL;
 #else
-            proclevel *p=procstack;
-            while (p->next!=NULL) p=p->next;
-            if (p->currRing==IDRING(h))
-            {
-              p->currRing=NULL;
-              p->currRingHdl=NULL;
-            }
+        proclevel *p=procstack;
+        while (p->next!=NULL) p=p->next;
+        if (p->cRing==IDRING(h))
+        {
+          p->cRing=NULL;
+          p->cRingHdl=NULL;
+        }
 #endif
         killhdl2(h,root,currRing);
@@ -1011 +1011 @@
   if (frompack==NULL) frompack=currPack;
   package rootpack = IDPACKAGE(roothdl);
-  Print("iiInternalExport('%s',%d,%s) typ:%d\n", v->name, toLev, IDID(roothdl),v->Typ());
+//  Print("iiInternalExport('%s',%d,%s->%s) typ:%d\n", v->name, toLev, IDID(currPackHdl),IDID(roothdl),v->Typ());
   if (RingDependend(IDTYP(h)))
   {
@@ -1019 +1019 @@
   else
   {
+    IDLEV(h)=toLev;
+    v->req_packhdl=rootpack;
     if (h==frompack->idroot)
     {
@@ -1039 +1041 @@
     rootpack->idroot=h;
   }
-  IDLEV(h)=toLev;
   return FALSE;
 }