Changeset 9c0326 in git for Singular/dyn_modules/gfanlib/bbcone.cc

Timestamp:

Sep 10, 2014, 5:43:31 PM (10 years ago)

Author:

Yue Ren <ren@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b71400abefd0c9c66c0009063f40ddd5b1f1c4c7

Parents:

eacb78146504ca284c1888c739cb1aade67c8520

git-author:

Yue Ren <ren@mathematik.uni-kl.de>2014-09-10 17:43:31+02:00

git-committer:

Yue Ren <ren@mathematik.uni-kl.de>2015-02-06 13:47:04+01:00

Message:

chg: status update 12.09.

File:

• Singular/dyn_modules/gfanlib/bbcone.cc (modified) (2 diffs)

Singular/dyn_modules/gfanlib/bbcone.cc

@@ -1607 +1607 @@
   WerrorS("facetContaining: unexpected parameters");
   return TRUE;
+}
+
+
+BOOLEAN memleaktest(leftv res, leftv args)
+{
+  bigintmat* ineq = NULL;
+  if (args->Typ() == INTMAT_CMD)
+  {
+    intvec* ineq0 = (intvec*) args->Data();
+    ineq = iv2bim(ineq0,coeffs_BIGINT);
+  }
+  else
+    ineq = (bigintmat*) args->Data();
+  gfan::ZMatrix* zm = bigintmatToZMatrix(ineq);
+  gfan::ZCone* zc = new gfan::ZCone(*zm, gfan::ZMatrix(0, zm->getWidth()));
+  delete zm;
+  if (args->Typ() == INTMAT_CMD)
+    delete ineq;
+  res->rtyp = coneID;
+  res->data = (void*) zc;
+  return FALSE;
 }
 
@@ -1664 +1685 @@
   p->iiAddCproc("","listOfFacets",FALSE,listOfFacets);
   p->iiAddCproc("","facetContaining",FALSE,facetContaining);
+  p->iiAddCproc("","memleaktest",FALSE,memleaktest);
   coneID=setBlackboxStuff(b,"cone");
 }