Changeset 6ce260 in git for Singular/syz1.cc

Timestamp:

Apr 1, 1998, 9:01:42 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

36ff0ee47861d9c243c573d5f915206fde045c9b

Parents:

9917052fb66734c3cc2e6270ba510557c9250002

Message:

* hannes: syz1.cc fixed bug in conversion (list<->res.):
          handling "empty" case


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

File:

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

Singular/syz1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: syz1.cc,v 1.22 1998-03-27 11:41:00 obachman Exp $ */
+/* $Id: syz1.cc,v 1.23 1998-04-01 19:01:42 Singular Exp $ */
 /*
 * ABSTRACT: resolutions
@@ -2230 +2230 @@
   }
   resolvente tr;
-  int typ0;
+  int typ0=IDEAL_CMD;
   if (syzstr->minres!=NULL)
     tr = syzstr->minres;
   else
     tr = syzstr->fullres;
-  resolvente trueres=(resolvente)Alloc0((syzstr->length)*sizeof(ideal));
-  for (int i=(syzstr->length)-1;i>=0;i--)
-  {
-    if (tr[i]!=NULL)
-    {
-      trueres[i] = idCopy(tr[i]);
-    }
-  }
-  if (idRankFreeModule(trueres[0])==0)
-    typ0 = IDEAL_CMD;
-  else
-    typ0 = MODUL_CMD;
+  resolvente trueres=NULL;
+  if (syzstr->length>0)
+  {
+    trueres=(resolvente)Alloc0((syzstr->length)*sizeof(ideal));
+    for (int i=(syzstr->length)-1;i>=0;i--)
+    {
+      if (tr[i]!=NULL)
+      {
+        trueres[i] = idCopy(tr[i]);
+      }
+    }
+    if (idRankFreeModule(trueres[0])>0)
+      typ0 = MODUL_CMD;
+  }    
   return liMakeResolv(trueres,syzstr->length,-1,typ0,NULL);
 }