source: git/kernel/polys.cc @ c8b907

fieker-DuValspielwiese
Last change on this file since c8b907 was c8b907, checked in by Martin Lee <martinlee84@…>, 10 years ago
chg: deleted unnecessary '#include "mod2.h"'
  • Property mode set to 100644
File size: 1.4 KB
Line 
1
2#include <kernel/mod2.h>
3
4#include <omalloc/omalloc.h>
5#include <misc/auxiliary.h>
6#include <misc/options.h>
7
8#include "polys.h"
9
10ring  currRing = NULL;
11
12void rChangeCurrRing(ring r)
13{
14  #if 0
15  if ((currRing!=NULL)&&(currRing!=r))
16  {
17    currRing->options=si_opt_1 & TEST_RINGDEP_OPTS;
18  }
19  #endif
20  if( r != NULL )
21  {
22    rTest(r);   
23
24    //------------ set global ring vars --------------------------------
25    currRing = r;
26    //------------ global variables related to coefficients ------------
27    assume( r->cf!= NULL );
28    nSetChar(r->cf);
29    //------------ global variables related to polys
30    p_SetGlobals(r);
31    //------------ global variables related to factory -----------------
32  }
33  else
34  {
35    currRing = NULL;
36  }
37}
38/*
39/// internally changes the gloabl ring and resets the relevant
40/// global variables:
41/// SHOULD BE DEPRECATED NOW...?
42void rChangeCurrRing(ring r)
43{
44 // if (!rMinpolyIsNULL(currRing))
45 // {
46 //   omCheckAddr(currRing->cf->minpoly);
47 // }
48  //------------ set global ring vars --------------------------------
49  //currRing = r;
50  if (r != NULL)
51  {
52    rTest(r);
53    //------------ set global ring vars --------------------------------
54
55    //------------ global variables related to coefficients ------------
56    nSetChar(r->cf);
57
58    //------------ global variables related to polys -------------------
59    p_SetGlobals(r);
60    //------------ global variables related to factory -----------------
61  }
62}
63*/
Note: See TracBrowser for help on using the repository browser.