Changeset e12050 in git

Timestamp:

Jul 25, 2012, 5:48:15 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

7920d2520df02c16094e91bd37b2087f8ec58ab6

Parents:

6779bb431ba1eced98b7cb0e1fed5fbfef1f0244

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-07-25 17:48:15+02:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-07-25 17:51:00+02:00

Message:

fixing bugs due to rChangeCurrRing(0)

TODO: why all of this was commented out???!

File:

• kernel/polys.cc (modified) (1 diff)

kernel/polys.cc

@@ -13 +13 @@
 void rChangeCurrRing(ring r)
 {
-   currRing = r;
-   currQuotient = r->qideal;
-   //------------ global variables related to coefficients ------------
-   nSetChar(r->cf);
-   //------------ global variables related to polys -------------------
+  if( r != NULL )
+  {
+    rTest(r);    
+
+    //------------ set global ring vars --------------------------------
+    currRing = r;
+    currQuotient = r->qideal;
+    //------------ global variables related to coefficients ------------
+    assume( r->cf!= NULL );
+    nSetChar(r->cf);
+    //------------ global variables related to polys
+    p_SetGlobals(r);
+    //------------ global variables related to factory -----------------
+  } else
+  {
+    currRing = NULL;
+    currQuotient = NULL;
+  }
 }
 /*
-
 /// internally changes the gloabl ring and resets the relevant
 /// global variables: