Changeset 760b5dc in git for kernel/ideals.cc

Timestamp:

Mar 4, 2008, 4:42:56 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

411ea98eecab97fbeac7f8395433a159d6d03584

Parents:

61d7071a1abe6bd2b06484655f5b1adfe2414425

Message:

*hannes: rCopy0 in idElimination


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

File:

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

kernel/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.48 2008-03-04 15:31:54 Singular Exp $ */
+/* $Id: ideals.cc,v 1.49 2008-03-04 15:42:56 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -2346 +2346 @@
   block0=(int*)omAlloc(ordersize*sizeof(int));
   block1=(int*)omAlloc(ordersize*sizeof(int));
+  wv=(int**) omAlloc0(ordersize*sizeof(int**));
   for (k=0;k<ordersize-1; k++)
   {
@@ -2351 +2352 @@
     block1[k+1] = origR->block1[k];
     ord[k+1] = origR->order[k];
+    if (origR->wvhdl[k]!=NULL) wv[k+1] = (int*) omMemDup(origR->wvhdl[k]);
   }
   block0[0] = 1;
   block1[0] = rVar(origR);
-  wv=(int**) omAlloc0(ordersize*sizeof(int**));
-  memcpy4(wv+1,currRing->wvhdl,(ordersize-1)*sizeof(int**));
   wv[0]=(int*)omAlloc((pVariables+1)*sizeof(int));
   memset(wv[0],0,(pVariables+1)*sizeof(int));