Changeset b34096 in git for kernel/ideals.cc

Timestamp:

May 18, 2005, 5:42:57 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

f43a748a3efbe2dca88a3a3642859497e497923e

Parents:

5fe545a76fa698e9fbf6c3bfdbbe9a52002911e4

Message:

*hannes: fix weights for 0-module


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

File:

• kernel/ideals.cc (modified) (2 diffs)

kernel/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.12 2005-05-13 15:18:52 Singular Exp $ */
+/* $Id: ideals.cc,v 1.13 2005-05-18 15:42:57 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -3604 +3604 @@
     if ((w !=NULL)&&(*w!=NULL))
     {
-      intvec *wtmp=new intvec((*w)->length()-1);
-      int i;
-      for(i=0;i<next_comp-1;i++) (*wtmp)[i]=(**w)[i];
-      for(i=next_comp;i<(*w)->length();i++) (*wtmp)[i-1]=(**w)[i];
+      intvec *wtmp;
+      if ((*w)->length()==1)
+      {
+        wtmp=new intvec(1);
+        // (*wtmp)[0]=0;
+      }
+      else
+      {
+        wtmp=new intvec((*w)->length()-1);
+        int i;
+        for(i=0;i<next_comp-1;i++) (*wtmp)[i]=(**w)[i];
+        for(i=next_comp;i<(*w)->length();i++) (*wtmp)[i-1]=(**w)[i];
+      }
       delete *w;
       *w=wtmp;