Changeset df542e1 in git for Singular/ideals.cc

Timestamp:

Jan 27, 2000, 7:50:15 PM (24 years ago)

Author:

Thomas Siebert <siebert@…>

Branches:

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

Children:

ca043f5e911a6cfffaf265f0ec889f6a767e2ab4

Parents:

1bf317c89085ef09163635ecfe77c4da1ebc1045

Message:

idLift corrected


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

File:

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

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.84 2000-01-27 16:53:46 Singular Exp $ */
+/* $Id: ideals.cc,v 1.85 2000-01-27 18:50:15 siebert Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -75 +75 @@
   Print("Module of rank %d,real rank %d and %d generators.\n",
          id->rank,idRankFreeModule(id),IDELEMS(id));
-  for (int i=0;i<IDELEMS(id);i++)
+  for (int i=0;i<id->ncols*id->nrows;i++)
   {
     if (id->m[i]!=NULL)
@@ -1758 +1758 @@
   else
     idDelete(&s_rest);
+idPrint(s_result);
   if (unit!=NULL)
   {
@@ -1769 +1770 @@
       while(p!=NULL)
       {
-        if(pGetComp(p)<=comps)
+        if(pGetComp(p)<comps)
         {
           pSetComp(p,0);
@@ -1778 +1779 @@
           else
           {
-            if(p!=s_result->m[i])
-              PrintS("wrong q\n"); 
             pIter(s_result->m[i]);
           }
@@ -1793 +1792 @@
         }
       }
+      pShift(&s_result->m[i],-comps_to_add);
     }
   }