Changeset ff4e847 in git for Singular/ideals.cc

Timestamp:

Aug 2, 2000, 9:06:29 PM (24 years ago)

Author:

Thomas Siebert <siebert@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

00760988f8ad6cfed0c0f25ea37e4355e87a3c66

Parents:

dc089843ab44e1609c3728250cda299c475b238d

Message:

TS: correct a bug (from MS) for 0-modules in division


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

File:

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

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.96 2000-07-06 13:30:01 pohl Exp $ */
+/* $Id: ideals.cc,v 1.97 2000-08-02 19:06:29 siebert Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -1628 +1628 @@
   poly p;
 
-  if (idIs0(mod))
+  if (idIs0(submod))
   {
     if (unit!=NULL)
@@ -1638 +1638 @@
     {
       *rest=idInit(1,mod->rank);
+    }
+    return idInit(1,mod->rank);
+  }
+  if (idIs0(mod))
+  {
+    if (unit!=NULL)
+    {
+      i=IDELEMS(submod);
+      *unit=mpNew(i,i);
+      for (j=i;j>0;j--)
+      {
+        MATELEM(*unit,j,j)=pOne();
+      }
+    }
+    if (rest!=NULL)
+    {
+      *rest=idCopy(submod);
     }
     return idInit(1,mod->rank);