Changeset 100025 in git

Timestamp:

Oct 2, 2008, 4:33:15 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'f6c3dc58b0df4bd712574325fe76d0626174ad97')

Children:

c99fd40e0f697a84f33e83be6c9da0914e44f6ee

Parents:

9d7447d8bc6a22cf11238df4f670a1d68d5fc982

Message:

*hannes: 0/0


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

File:

• kernel/modulop.cc (modified) (2 diffs)

kernel/modulop.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: modulop.cc,v 1.12 2008-07-16 12:41:33 wienand Exp $ */
+/* $Id: modulop.cc,v 1.13 2008-10-02 14:33:15 Singular Exp $ */
 /*
 * ABSTRACT: numbers modulo p (<=32003)
@@ -275 +275 @@
     *a = (number)z;
   else
+  {
+    if ((z==0)&&(n==0)) WerrorS(nDivBy0);
+    else
+    {
 #ifdef NV_OPS
-    if (npPrimeM>NV_MAX_PRIME)
-      *a = nvDiv((number)z,(number)n);
-    else
-#endif
-      *a = npDiv((number)z,(number)n);
+      if (npPrimeM>NV_MAX_PRIME)
+        *a = nvDiv((number)z,(number)n);
+      else
+#endif
+        *a = npDiv((number)z,(number)n);
+    }
+  }
   return s;
 }