Changeset 379ec2 in git for Singular/iparith.cc

Timestamp:

Nov 28, 2023, 1:36:58 PM (6 months ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

9bfa4dc4755d071a0d1290dd0e3cda52bac9f27e

Parents:

1170388a280084e303867145f98985f03b2af06d

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2023-11-28 13:36:58+01:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2023-11-28 13:42:17+01:00

Message:

stdhilb_w

File:

• Singular/iparith.cc (modified) (1 diff)

Singular/iparith.cc

@@ -7305 +7305 @@
     }
   }
+  bigintmat *vv=(bigintmat*)v->Data();
+  intvec* vvv=new intvec(1,vv->cols());
+  for(int i=0;i<vv->cols();i++)
+  {
+    (*vvv)[i]=n_Int(BIMATELEM(*vv,1,i+1),coeffs_BIGINT);
+  }
   result=kStd(u_id,
               currRing->qideal,
               hom,
-              &ww,                  // module weights
-              (intvec *)v->Data(),  // hilbert series
-              0,0,                  // syzComp, newIdeal
-              vw);                  // weights of vars
+              &ww,  // module weights
+              vvv,  // hilbert series
+              0,0,  // syzComp, newIdeal
+              vw);  // weights of vars
   idSkipZeroes(result);
+  delete vvv;
   res->data = (char *)result;
   setFlag(res,FLAG_STD);