Changeset 1aa559b in git for Singular/ipshell.cc

Timestamp:

Feb 23, 2004, 8:04:05 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')

Children:

3ebba4a56769d7784bf8af7c80ff439c6a7b152e

Parents:

a9042d0e9a0cd833346da77996b03bb5379ec4bc

Message:

*hannes: fixes + MPport from 2-0


git-svn-id: file:///usr/local/Singular/svn/trunk@7056 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.85 2004-02-12 09:33:39 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.86 2004-02-23 19:04:02 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1046 +1046 @@
       root=&currRing->idroot;
     }
+    BOOLEAN keepring=FALSE;
     if ((h!=NULL)&&(IDLEV(h)==toLev))
     {
       if (IDTYP(h)==v->Typ())
       {
+        if (((IDTYP(h)==RING_CMD)||(IDTYP(h)==QRING_CMD))
+        && (v->Data()==IDDATA(h)))
+        {
+          IDRING(h)->ref++;
+          keepring=TRUE;
+          IDLEV(h)=toLev;
+          //WarnS("keepring");
+          return FALSE;
+        }
         if (BVERBOSE(V_REDEFINE))
         {
@@ -1055 +1065 @@
         }
 #ifdef USE_IILOCALRING
-        if (iiLocalRing[0]==IDRING(h)) iiLocalRing[0]=NULL;
+        if (iiLocalRing[0]==IDRING(h) && (!keepring)) iiLocalRing[0]=NULL;
 #else
         proclevel *p=procstack;
         while (p->next!=NULL) p=p->next;
-        if (p->cRing==IDRING(h))
+        if ((p->cRing==IDRING(h)) && (!keepring))
         {
           p->cRing=NULL;
@@ -1074 +1084 @@
     h=(idhdl)v->data;
     IDLEV(h)=toLev;
+    if (keepring) IDRING(h)->ref--;
     iiNoKeepRing=FALSE;
     //Print("export %s\n",IDID(h));