Changeset cf3ff4 in git

Timestamp:

Apr 7, 1998, 7:51:02 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

052b762fb74d3c99536888b7d6250477c17e97e6

Parents:

49025e845fcf09ebb03e204de70d06ec1b8149f5

Message:

* hannes: cleanup in hutil.cc


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

File:

• Singular/hutil.cc (modified) (3 diffs)

Singular/hutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: hutil.cc,v 1.5 1997-12-15 22:46:24 obachman Exp $ */
+/* $Id: hutil.cc,v 1.6 1998-04-07 17:51:02 Singular Exp $ */
 /*
 * ABSTRACT: Utilities for staircase operations
@@ -83 +83 @@
   ek = ex = (scfmon)Alloc(k * sizeof(scmon));
   hsecure = (Exponent_t**) Alloc(k * sizeof(scmon));
-  for (i = sl; i; i--)
-  {
-    if (*si)
+  for (i = sl; i>0; i--)
+  {
+    if (*si!=NULL)
     {
       *ek = (Exponent_t*) Alloc((pVariables+1)*sizeof(Exponent_t));
@@ -957 +957 @@
   int  i;
   xmem = (monf)Alloc((Nvar + 1) * sizeof(monp));
-  for (i = Nvar; i; i--)
+  for (i = Nvar; i>0; i--)
   {
     xmem[i] = (monp)Alloc(LEN_MON);