Changeset 0d7584 in git for Singular/iparith.cc

Timestamp:

Mar 12, 1999, 11:16:21 AM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'ec94ef7a30b928574c0c3daf41f6804dff5f6b69')

Children:

c56a239d65d152c070411a26481b1ea32dae2bc6

Parents:

e1fb6deecf2002e305a7f34e78491c3ea101a3b2

Message:

*hannes: fixed highcorner


git-svn-id: file:///usr/local/Singular/svn/trunk@2907 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.134 1999-03-11 15:58:05 Singular Exp $ */
+/* $Id: iparith.cc,v 1.135 1999-03-12 10:16:21 Singular Exp $ */
 
 /*
@@ -2515 +2515 @@
 {
   assumeStdFlag(v);
-  intvec *module_w=new intvec(*(intvec*)atGet(v,"isHomog"));
+  intvec *w=(intvec*)atGet(v,"isHomog");
+  intvec *module_w=NULL;
   ideal I=(ideal)v->Data();
   int i;
   poly p=NULL,po=NULL;
   int rk=idRankFreeModule(I);
-  if (module_w==NULL)
+  if (w!=NULL)
+    module_w=new intvec(*w);
+  else
     module_w = new intvec(rk);
   for(i=rk;i>0;i--)
@@ -2536 +2539 @@
     {
       // now po!=NULL, p!=NULL
-      int d=(pFDeg(po)+(*module_w)[pGetComp(po)] - pFDeg(p)+ (*module_w)[i]);
+      int d=(pFDeg(po)+(*module_w)[pGetComp(po)-1] - pFDeg(p)+(*module_w)[i-1]);
       if (d==0)
         d=pComp0(po,p);