Changeset 794463 in git for kernel/longrat.cc

Timestamp:

Mar 14, 2011, 5:01:43 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

1cf7b9bbd183bcd5847750fc6d151b0c10cd0b98

Parents:

60dcbbcf58b25703c21825b7ca27f49816799c04

Message:

nlGcd for -2^28

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

File:

• kernel/longrat.cc (modified) (3 diffs)

kernel/longrat.cc

@@ -1038 +1038 @@
       j=l;
     } while (l!=0L);
-    return INT_TO_SR(i);
+    if (i==POW_2_28)
+      result=nlRInit(POW_2_28);
+    else
+     result=INT_TO_SR(i);
+    nlTest(result);
+    return result;
   }
   if (((!(SR_HDL(a) & SR_INT))&&(a->s<2))
@@ -1044 +1049 @@
   if (SR_HDL(a) & SR_INT)
   {
-    unsigned long t=mpz_gcd_ui(NULL,b->z,ABS(SR_TO_INT(a)));
-    return INT_TO_SR(t);
+    LONG aa=ABS(SR_TO_INT(a));
+    unsigned long t=mpz_gcd_ui(NULL,b->z,(long)aa);
+    if (t==POW_2_28)
+      result=nlRInit(POW_2_28);
+    else
+     result=INT_TO_SR(t);
+    nlTest(result);
   }
   else
   if (SR_HDL(b) & SR_INT)
   {
-    unsigned long t=mpz_gcd_ui(NULL,a->z,ABS(SR_TO_INT(b)));
-    return INT_TO_SR(t);
+    LONG bb=ABS(SR_TO_INT(b));
+    unsigned long t=mpz_gcd_ui(NULL,a->z,(long)bb);
+    if (t==POW_2_28)
+      result=nlRInit(POW_2_28);
+    else
+     result=INT_TO_SR(t);
+    nlTest(result);
   }
   else
@@ -1063 +1078 @@
   #endif
     result=nlShort3(result);
-  }
-  nlTest(result);
+    nlTest(result);
+  }
   return result;
 }