Changeset 668249 in git

Timestamp:

Mar 25, 2019, 3:04:19 PM (4 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

d8e89bcc4c0ba52737f27a352c3c7d2c5d4b7a57

Parents:

b84addc1b850ec70a5ac4d6bc62069079b238504

Message:

extend system("cccluster") to R, long_R

File:

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

Singular/extra.cc

@@ -3765 +3765 @@
     if(strcmp(sys_cmd,"ccluster")==0)
     {
-      if ((currRing!=NULL) && rField_is_Q(currRing))
+      if ((currRing!=NULL) 
+      && (rField_is_Q(currRing) || rField_is_R(currRing) || rField_is_long_R(currRing)))
       {
         const short t[]={5,POLY_CMD,NUMBER_CMD,NUMBER_CMD,NUMBER_CMD,NUMBER_CMD};