Changeset 6179c1 in git

Timestamp:

Sep 24, 2011, 9:35:59 AM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '98550b669234b32be762076c32b3be2c35188ac4')

Children:

46008c3216d8f61c9ebca33908df859effe9e989

Parents:

4fc80288a76122a5eefe73be2b02b699ff7caf63

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-09-24 09:35:59+02:00

git-committer:

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

Message:

fix rInit: ch must be prime (Tst/Old/ch.tst)

File:

• Singular/ipshell.cc (modified) (2 diffs)

Singular/ipshell.cc

@@ -4958 +4958 @@
   if (pn->Typ()==INT_CMD)
   {
-    const int ch = (int)(long)pn->Data();
+    int ch = (int)(long)pn->Data();
     
     /* parameter? -------------------------------------------------------*/
@@ -4964 +4964 @@
     
     if (pn == NULL) // no params!?
-      cf = nInitChar(ch==0 ? n_Q : n_Zp, (void*)(long)ch);
+    {
+      if (ch!=0)
+      {
+        ch=IsPrime(ch);
+        cf = nInitChar(n_Zp, (void*)(long)ch);
+      }
+      else
+        cf = nInitChar(n_Q, (void*)(long)ch);
+    }
     else
     {