Changeset c59d88e in git for Singular/ideals.cc

Timestamp:

May 6, 1999, 6:56:16 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

0e12840d8e98b957353e63f5ec9b2142b333ba75

Parents:

ad4bc9784e00443a3eeb0624c1a50525dd42041e

Message:

* hannes: ideals.cc - reverted back to version 1.41, because Long/bug_4 fails
  (may others too)


git-svn-id: file:///usr/local/Singular/svn/trunk@3029 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.42 1999-04-28 09:48:41 siebert Exp $ */
+/* $Id: ideals.cc,v 1.43 1999-05-06 16:56:16 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -468 +468 @@
       }
       if (newpos<0) newpos = 0;
-      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;
+      if (newpos>=actpos)
+      {
+        (*result)[actpos] = i;
+      }
+      else
+      {
+        for (j=actpos;j>newpos;j--)
+        {
+          (*result)[j] = (*result)[j-1];
+        }
+        (*result)[newpos] = i;
+      }
       actpos++;
     }