Changeset 3901ebf in git

Timestamp:

Feb 1, 2008, 2:47:10 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

bac8611899a1be9cec75c5869634cba746703b16

Parents:

935bb1bf1fc7cf6828861ed659dcc18157c72dd3

Message:

*hannes: require rAssure_HasComp for rings in interpreter


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.175 2008-01-30 16:10:37 wienand Exp $ */
+/* $Id: ipshell.cc,v 1.176 2008-02-01 13:47:10 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -4136 +4136 @@
   }
 
+  // test for valid "currRing": 
+  if ((rg!=NULL) && (rg->idroot==NULL))
+  {
+    ring old=rg;
+    rg=rAssure_HasComp(rg);
+    if (old!=rg)
+    {
+      rKill(old);
+      IDRING(h)=rg;
+    }
+  }
    /*------------ change the global ring -----------------------*/
   rChangeCurrRing(rg);