Changeset e78cce in git for Singular/hilb.cc

Timestamp:

Dec 15, 1997, 11:46:43 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

74eea4ee278a222b9c9e93f5041d06fdec86d467

Parents:

3bc8cd5aedd9efcc75f287571cd2f05f49911c72

Message:

Mon Dec 15 23:31:56 1997  Olaf Bachmann
<obachman@mathematik.uni-kl.de>

	* polys-impl.h: Various small bug - fixes and changes in
	  preparation of COMP_FAST merge: hilbert series, maps are
	  ok; sres and syz are still buggy; small things still need to
	  be checked;


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

File:

• Singular/hilb.cc (modified) (6 diffs)

Singular/hilb.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: hilb.cc,v 1.6 1997-11-25 15:29:21 pohl Exp $ */
+/* $Id: hilb.cc,v 1.7 1997-12-15 22:46:24 obachman Exp $ */
 /*
 *  ABSTRACT -  Hilbert series
@@ -125 +125 @@
 {
   int  iv = Nvar -1, ln, a, a0, a1, b, i;
-  short  x, x0;
+  Exponent_t  x, x0;
   scmon pn;
   scfmon sn;
@@ -193 +193 @@
 {
   intvec *work, *hseries1=NULL;
-  short  mc;
+  Exponent_t  mc;
   int  *p0;
   int  i, j, k, l, ii, mw;
@@ -208 +208 @@
   hwork = (scfmon)Alloc(hNexist * sizeof(scmon));
   hvar = (varset)Alloc((pVariables + 1) * sizeof(int));
-  hpure = (scmon)Alloc((1 + (pVariables * pVariables)) * sizeof(short));
+  hpure = (scmon)Alloc((1 + (pVariables * pVariables)) * sizeof(Exponent_t));
   stcmem = hCreate(pVariables - 1);
   Qpol = (int **)Alloc((pVariables + 1) * sizeof(int *));
@@ -248 +248 @@
           hOrdSupp(hstc, hNstc, hvar, hNvar);
         hHilbEst(hstc, hNstc, hvar, hNvar);
-        memset(hpure, 0, (pVariables + 1) * sizeof(short));
+        memset(hpure, 0, (pVariables + 1) * sizeof(Exponent_t));
         hPure(hstc, 0, &hNstc, hvar, hNvar, hpure, &hNpure);
         hLexS(hstc, hNstc, hvar, hNvar);
@@ -324 +324 @@
   Free((ADDRESS)Qpol, (pVariables + 1) * sizeof(int *));
   hKill(stcmem, pVariables - 1);
-  Free((ADDRESS)hpure, (1 + (pVariables * pVariables)) * sizeof(short));
+  Free((ADDRESS)hpure, (1 + (pVariables * pVariables)) * sizeof(Exponent_t));
   Free((ADDRESS)hvar, (pVariables + 1) * sizeof(int));
   Free((ADDRESS)hwork, hNexist * sizeof(scmon));
-  Free((ADDRESS)hexist, hNexist * sizeof(scmon));
+  hDelete(hexist, hNexist);
   Free((ADDRESS)p0, sizeof(int));
   if (hisModule!=0)