Changeset faa7df in git

Timestamp:

Jan 30, 2008, 3:28:16 PM (15 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

122981d0e106581ee4b7623ee3c76393fef4568a

Parents:

8e56ad409bb871477d7d51804d679aa766da743b

Message:

ipshell.cc:
ring (modpow, number, number) jetzt moeglich


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.173 2008-01-30 08:14:45 wienand Exp $ */
+/* $Id: ipshell.cc,v 1.174 2008-01-30 14:28:16 wienand Exp $ */
 /*
 * ABSTRACT:
@@ -4439 +4439 @@
     ringtype = 2;
     ringflaga = module;
+    ringflagb = 1;
     WarnS("Z/n not yet fully tested");
   }
@@ -4464 +4465 @@
     }
     ch = exp;
-    if (base == 2)
+    if ((base == 2) && (exp + 2 <= 8*sizeof(NATNUMBER)))
     {
       ringtype = 1; // Use Z/2^ch
@@ -4473 +4474 @@
     else
     {
+      if ((base == 2) && (exp + 2 > 8*sizeof(NATNUMBER)))
+      {
+        Print("// exponent+2 is larger then number of bits in 'NATNUMBER' (%d bits)\n", 8*sizeof(NATNUMBER));
+        WarnS("==> using generic gmp implementation (restriction from design and NTL)");
+      }
       ringtype = 3;
       ringflaga = base;
       ringflagb = exp;
-      // ch = base**exp
-      Werror("p^n not yet implemented");
-      goto rInitError;
+      WarnS("Z/p^n not yet fully tested");
     }
   }