Changeset 7c63a9a in git

Timestamp:

Apr 22, 2005, 6:32:15 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')

Children:

f199efd636b59f8aa4ff88fbd3601bb4aea53870

Parents:

12c67735b2c54b98ba55c114912fcfa7f43218ef

Message:

*hannes; fixed types


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

File:

• kernel/hutil.cc (modified) (4 diffs)

kernel/hutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: hutil.cc,v 1.3 2004-10-28 14:16:27 Singular Exp $ */
+/* $Id: hutil.cc,v 1.4 2005-04-22 16:32:15 Singular Exp $ */
 /*
 * ABSTRACT: Utilities for staircase operations
@@ -28 +28 @@
 // "security" copy as well. But then, all the relevant data is held in
 // global variables, so we might do that here, as well.
-static int **hsecure= NULL;
+static scfmon hsecure= NULL;
 
 scfmon hInit(ideal S, ideal Q, int *Nexist, ring tailRing)
@@ -84 +84 @@
     return NULL;
   ek = ex = (scfmon)omAlloc(k * sizeof(scmon));
-  hsecure = (int**) omAlloc(k * sizeof(scmon));
+  hsecure = (scfmon) omAlloc(k * sizeof(scmon));
   for (i = sl; i>0; i--)
   {
@@ -141 +141 @@
   {
     for (i=ev_length-1;i>=0;i--)
-      omFreeSize(hsecure[i],(pVariables+1)*sizeof(int));
+      omFreeSize(hsecure[i],(pVariables+1)*sizeof(scmon));
     omFreeSize(hsecure, ev_length*sizeof(scmon));
     omFreeSize(ev,  ev_length*sizeof(scmon));