Changeset 00f47b in git

Timestamp:

Mar 11, 1999, 5:32:55 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

e1fb6deecf2002e305a7f34e78491c3ea101a3b2

Parents:

f99917fc47a2b22bde5ec1bddc687567f3cd4dba

Message:

*hannes: fixed mpCoefProc


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

File:

• Singular/matpol.cc (modified) (2 diffs)

Singular/matpol.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: matpol.cc,v 1.22 1999-03-11 15:58:08 Singular Exp $ */
+/* $Id: matpol.cc,v 1.23 1999-03-11 16:32:55 Singular Exp $ */
 
 /*
@@ -831 +831 @@
         }
       }
-      if (i == l) 
+      if (i == l)
       {
         // check monom 1 last:
-        h = mpExdiv(f, MATELEM(co,1,pos_of_1));
-        if (h!=NULL)
+        if (pos_of_1 != -1)
         {
-          MATELEM(co,2,pos_of_1) = pAdd(MATELEM(co,2,pos_of_1), h);
-          break;
+          h = mpExdiv(f, MATELEM(co,1,pos_of_1));
+          if (h!=NULL)
+          {
+            MATELEM(co,2,pos_of_1) = pAdd(MATELEM(co,2,pos_of_1), h);
+          }
         }
         break;
-      } 
+      }
       i ++;
     }