Changeset 85fd90 in git for kernel/polys.cc

Timestamp:

Sep 28, 2011, 5:48:27 PM (11 years ago)

Author:

Burcin Erocal <burcin@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

d56ad872d739d42e59b1beb8ccc89be2a204530d

Parents:

32cc7e437ee85bf7d555756eb824eadce50d50c7

git-author:

Burcin Erocal <burcin@erocal.org>2011-09-28 17:48:27+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 16:13:41+01:00

Message:

Fix rChangeCurrRing and make the interpreter pass precision info to real/complex coeffs constructor.

File:

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

kernel/polys.cc

@@ -10 +10 @@
 ideal currQuotient = NULL;
 
+/* -------------------------------------------------------- */
+/*2
+* change all global variables to fit the description of the new ring
+*/
+
+void p_SetGlobals(const ring r, BOOLEAN complete)
+{
+// // //  if (r->ppNoether!=NULL) p_Delete(&r->ppNoether,r); // ???
+
+  if (complete)
+  {
+    test &= ~ TEST_RINGDEP_OPTS;
+    test |= r->options;
+  }
+}
+
 void rChangeCurrRing(ring r)
 {
    currRing = r;
    currQuotient = r->qideal;
-   test &= ~ TEST_RINGDEP_OPTS;
-   test |= r->options;
+   //------------ global variables related to coefficients ------------
+   nSetChar(r->cf);
+   //------------ global variables related to polys -------------------
+   p_SetGlobals(r);
 }
+/*
+
+/// internally changes the gloabl ring and resets the relevant
+/// global variables:
+/// SHOULD BE DEPRECATED NOW...?
+void rChangeCurrRing(ring r)
+{
+ // if (!rMinpolyIsNULL(currRing))
+ // {
+ //   omCheckAddr(currRing->cf->minpoly);
+ // }
+  //------------ set global ring vars --------------------------------
+  //currRing = r;
+  //currQuotient=NULL;
+  if (r != NULL)
+  {
+    rTest(r);
+    //------------ set global ring vars --------------------------------
+    //currQuotient=r->qideal;
+
+    //------------ global variables related to coefficients ------------
+    nSetChar(r->cf);
+
+    //------------ global variables related to polys -------------------
+    p_SetGlobals(r);
+    //------------ global variables related to factory -----------------
+  }
+}
+*/