Changeset d12be8 in git

Timestamp:

Jan 13, 2000, 11:33:19 AM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

9a8dfb8e4665fff2143b557401c92ff463bf4daf

Parents:

bd38494045e97134c9bfe60e459dbeeda80f1f13

Message:

*hannes: 0^n:=0 fixed


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

File:

• Singular/iparith.cc (modified) (5 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.198 2000-01-11 17:51:15 Singular Exp $ */
+/* $Id: iparith.cc,v 1.199 2000-01-13 10:33:19 Singular Exp $ */
 
 /*
@@ -571 +571 @@
   int rc = 1;
   BOOLEAN overflow=FALSE;
-  if ((e >= 0)&&(b!=0))
-  {
-    int oldrc;
-    while ((e--)!=0)
-    {
-      oldrc=rc;
-      rc *= b;
-      if (!overflow)
-      {
-        if(rc/b!=oldrc) overflow=TRUE;
-      }
-    }
-    if (overflow)
-      Warn("int overflow(^), result may be wrong");
+  if (e >= 0)
+  {
+    if (b==0)
+    {
+      rc=0;
+    }
+    else
+    {
+      int oldrc;
+      while ((e--)!=0)
+      {
+        oldrc=rc;
+        rc *= b;
+        if (!overflow)
+        {
+          if(rc/b!=oldrc) overflow=TRUE;
+        }
+      }
+      if (overflow)
+        WarnS("int overflow(^), result may be wrong");
+    }
     res->data = (char *)rc;
     if (u!=NULL) return jjOP_REST(res,u,v);
@@ -741 +748 @@
   if (((Sy_bit(31)&a)==(Sy_bit(31)&b))&&((Sy_bit(31)&a)!=(Sy_bit(31)&c)))
   {
-    Warn("int overflow(+), result may be wrong");
+    WarnS("int overflow(+), result may be wrong");
   }
   return jjPLUSMINUS_Gen(res,u,v);
@@ -812 +819 @@
   if (((Sy_bit(31)&a)!=(Sy_bit(31)&b))&&((Sy_bit(31)&a)!=(Sy_bit(31)&c)))
   {
-    Warn("int overflow(-), result may be wrong");
+    WarnS("int overflow(-), result may be wrong");
   }
   res->data = (char *)c;
@@ -853 +860 @@
   int c=a * b;
   if ((b!=0) && (c/b !=a))
-    Warn("int overflow(*), result may be wrong");
+    WarnS("int overflow(*), result may be wrong");
   res->data = (char *)c;
   if ((u->Next()!=NULL) || (v->Next()!=NULL))