Changeset cae6d8 in git

Timestamp:

Jan 21, 2004, 10:10:08 AM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

cfbb3403b7e97a25133a0a9d42e16013b3c1803a

Parents:

0ae61c6dbdc8ee3e150c56f17b9989cada5fd83c

Message:

*hannes: fix for 0-ideal


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

File:

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

kernel/hutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: hutil.cc,v 1.1.1.1 2003-10-06 12:15:53 Singular Exp $ */
+/* $Id: hutil.cc,v 1.2 2004-01-21 09:09:12 Singular Exp $ */
 /*
 * ABSTRACT: Utilities for staircase operations
@@ -138 +138 @@
   int i;
 
-  for (i=0;i<ev_length;i++)
-    omFreeSize(hsecure[i],(pVariables+1)*sizeof(int));
-  omFreeSize(hsecure, ev_length*sizeof(scmon));
-  omFreeSize(ev,  ev_length*sizeof(scmon));
+  if (ev_length>0)
+  {
+    for (i=ev_length-1;i>=0;i--)
+      omFreeSize(hsecure[i],(pVariables+1)*sizeof(Exponent_t));
+    omFreeSize(hsecure, ev_length*sizeof(scmon));
+    omFreeSize(ev,  ev_length*sizeof(scmon));
+  }
 }