Changeset 122981 in git

Timestamp:

Jan 30, 2008, 5:10:37 PM (15 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a657104b677b4c461d018cbf3204d72d34ad66a9')

Children:

12ea9df042d8c883f3d3c722b2388c0424347a88

Parents:

faa7df853a3237b63560a72ed208619df8d26215

Message:

ipshell.cc:
usigned long long ringflaga fuer modul


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.174 2008-01-30 14:28:16 wienand Exp $ */
+/* $Id: ipshell.cc,v 1.175 2008-01-30 16:10:37 wienand Exp $ */
 /*
 * ABSTRACT:
@@ -4371 +4371 @@
   int ch;
 #ifdef HAVE_RINGS
-  int ringtype = 0;
-  unsigned long ringflaga = 0;
+  unsigned int ringtype = 0;
+  unsigned long long ringflaga = 0;
   unsigned int ringflagb = 0;
 #endif
@@ -4425 +4425 @@
   && (strcmp(pn->name,"modnat")==0))
   {
-    long module = 0;
-    if ((pn->next!=NULL) && (pn->next->Typ()==INT_CMD))
-    {
-      module =(unsigned long) pn->next->Data();
+    unsigned long long module = 1;
+    while ((pn->next!=NULL) && (pn->next->Typ()==INT_CMD))
+    {
+      module *= (unsigned long long) pn->next->Data();
       pn=pn->next;
     }
     if ((module < 2))
     {
-      Werror("Wrong ground ring specification");
+      Werror("Wrong ground ring specification (modnat)");
       goto rInitError;
     }