Changeset 0e1284 in git

Timestamp:

May 7, 1999, 12:11:08 PM (25 years ago)

Author:

Thomas Siebert <siebert@…>

Branches:

(u'spielwiese', 'a719bcf0b8dbc648b128303a49777a094b57592c')

Children:

473707b9775f04fb08c29447d508f18d294cbd31

Parents:

c59d88ee06883f262adb708e6846ac13d54018e3

Message:

Berichtigung zu bug_4 - idSort problem


git-svn-id: file:///usr/local/Singular/svn/trunk@3030 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.43 1999-05-06 16:56:16 Singular Exp $ */
+/* $Id: ideals.cc,v 1.44 1999-05-07 10:11:08 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;
-      }
+      if (newpos>actpos) newpos = actpos;
+      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++;
     }