Changeset cf21dd4 in git for Singular/ipshell.cc

Timestamp:

Jul 21, 2010, 10:35:12 AM (13 years ago)

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

76e50131b2b048f970f871fc09f3ad7fa94fd50f

Parents:

f9f879c1f6d30f79ea772c2280be1b75d3256e46

Message:

extends Z/2^m to m =32 resp. 64 (depending on platform)

git-svn-id: file:///usr/local/Singular/svn/trunk@13035 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

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

Singular/ipshell.cc

@@ -1974 +1974 @@
   {
     R->ch = R->ringflagb;
-    if ((mpz_cmp_ui(R->ringflaga, 2) == 0) && (R->ringflagb < 8*sizeof(NATNUMBER)))
-    {
-      /* this branch should be active for ringflagb = 2..31 resp. 2..63;
-         note that 2^31 resp 2^63 is the largest power of 2 that fits into
-         an unsigned long */
+    if ((mpz_cmp_ui(R->ringflaga, 2) == 0) && (R->ringflagb <= 8*sizeof(NATNUMBER)))
+    {                                          
+      /* this branch should be active for ringflagb = 2..32 resp. 2..64,
+           depending on the size of a long on the respective platform */
       R->ringtype = 1;       // Use Z/2^ch
     }
@@ -4761 +4760 @@
     {
       ch = ringflagb;
-      if ((mpz_cmp_ui(ringflaga, 2) == 0) && (ringflagb < 8*sizeof(NATNUMBER)))
-      {
-        /* this branch should be active for ringflagb = 2..31 resp. 2..63;
-           note that 2^31 resp 2^63 is the largest power of 2 that fits into
-           an unsigned long */
+      if ((mpz_cmp_ui(ringflaga, 2) == 0) && (ringflagb <= 8*sizeof(NATNUMBER)))
+      {                                    
+        /* this branch should be active for ringflagb = 2..32 resp. 2..64,
+           depending on the size of a long on the respective platform */
         ringtype = 1;       // Use Z/2^ch
       }