Changeset 3da9f4 in git for Singular/ipshell.cc

Timestamp:

Aug 12, 2011, 8:37:14 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

2b7f4e1c2533023f1826c2b3ff11a6470249af65

Parents:

3373e328c65970d120c33a699dee0a561bb7b0d2

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-08-12 20:37:14+02:00

git-committer:

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

Message:

fix n_GF in rInit

File:

• Singular/ipshell.cc (modified) (1 diff)

Singular/ipshell.cc

@@ -4961 +4961 @@
       if ((ch!=0) && (ch!=IsPrime(ch)))
       {
-        cf=nInitChar(n_GF,(void*)(long)ch);
+        int cc=ch;
+        // finding the prime
+        int p=2;
+        int i=0;
+        if ((ch%p!=0)  p=3;
+        else p=5;
+        loop
+        {
+          if (cc%p==0) break;
+          p+=2;
+        }
+        while(cc>=1) { cc/=p; i++)
+        GFInfo param;
+        param.GFDegree=i;
+        param.GFChar=p;
+        param.GFPar_name=pn->name;
+        cf=nInitChar(n_GF,&param);
         if (cf==NULL) goto rInitError;
         else ffChar=TRUE;