Changeset d1a99e in git for Singular

Timestamp:

Aug 5, 2004, 11:00:16 AM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'dce4ad324f6e216ae93a99713959b505fb6213d3')

Children:

6635a7ebd7c9484a9baaa900482f90977cd9bfd9

Parents:

15c78e1d685cc70bd014c222122814d14708a9f4

Message:

*hannes: check args for coef


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.326 2004-08-04 19:10:07 levandov Exp $ */
+/* $Id: iparith.cc,v 1.327 2004-08-05 09:00:09 Singular Exp $ */
 
 /*
@@ -1485 +1485 @@
 static BOOLEAN jjCOEF(leftv res, leftv u, leftv v)
 {
-  res->data=(char *)mpCoeffProc((poly)u->Data(),(poly)v->Data());
+  poly p=(poly)v->Data();
+  if ((p==NULL)||(pNext(p)!=NULL)) return TRUE;
+  res->data=(char *)mpCoeffProc((poly)u->Data(),p /*(poly)v->Data()*/);
   return FALSE;
 }
@@ -1508 +1510 @@
     pSetExp(p, i, 1);
   }
+  pSetm(p);
   res->data = (void*)idCoeffOfKBase((ideal)(u->Data()),
                                     (ideal)(v->Data()), p);