Changeset 4be737 in git

Timestamp:

Apr 28, 1999, 11:48:41 AM (25 years ago)

Author:

Thomas Siebert <siebert@…>

Branches:

(u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')

Children:

8a150bd0cc056d6ee7b5a939d234a9e13287d42b

Parents:

3f61910de18bc045238af10985b42d15a1b15081

Message:

idSort changed for equal leading terms


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

File:

• Singular/ideals.cc (modified) (2 diffs)

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.41 1998-11-12 14:44:34 siebert Exp $ */
+/* $Id: ideals.cc,v 1.42 1999-04-28 09:48:41 siebert Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -468 +468 @@
       }
       if (newpos<0) newpos = 0;
-      if (newpos>=actpos)
-      {
-        (*result)[actpos] = i;
-      }
-      else
-      {
-        for (j=actpos;j>newpos;j--)
-        {
-          (*result)[j] = (*result)[j-1];
-        }
-        (*result)[newpos] = i;
-      }
+      while ((newpos<actpos) && (pComp0(id->m[i],id->m[(*result)[newpos]])==0))
+        newpos++;
+      for (j=actpos;j>newpos;j--)
+      {
+        (*result)[j] = (*result)[j-1];
+      }
+      (*result)[newpos] = i;
       actpos++;
     }