Changeset 736288b in git for Singular/ipshell.cc

Timestamp:

Aug 12, 2011, 9:14:57 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d8c7a64f3bcb71205b5fc350abe3a065f1b1576b

Parents:

f5bef2f630405aa4f809d8c3e3d981f72f87a74d

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-08-12 21:14:57+02:00

git-committer:

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

Message:

FIX: fixed rInit (GF)...

File:

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

Singular/ipshell.cc

@@ -4954 +4954 @@
       if ((ch!=0) && (ch!=IsPrime(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;
+        param.GFDegree = ch;
+        param.GFChar   = 1;
+        
+        param.GFPar_name=pn->name;
         cf=nInitChar(n_GF,&param);
+        
         if (cf==NULL) goto rInitError;
         else ffChar=TRUE;
+        
       }
       /* parameter -------------------------------------------------------*/