Changeset 737b2b4 in git

Timestamp:

Mar 23, 1998, 3:07:54 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

e1fc2d0c27c83083d3659ec4904f339c71a94fa7

Parents:

18255d9ac71af356d5f2f1ae0cd213ab439c90ca

Message:

1998-03-23  Olaf Bachmann  <obachman@mathematik.uni-kl.de>

	* kstdfac.cc (kStratCopy): kModW iv is not copied, but just the
	pointer is set


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

File:

• Singular/kstdfac.cc (modified) (7 diffs)

Singular/kstdfac.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstdfac.cc,v 1.12 1998-03-16 14:56:34 obachman Exp $ */
+/* $Id: kstdfac.cc,v 1.13 1998-03-23 14:07:54 obachman Exp $ */
 /*
 *  ABSTRACT -  Kernel: factorizing alg. of Buchberger
@@ -28 +28 @@
 #include "lists.h"
 #include "ideals.h"
-#ifdef COMP_FAST
 #include "spSpolyLoop.h"
-#endif
 #include "timer.h"
 #include "kstdfac.h"
@@ -178 +176 @@
   s->update=o->update;
   s->posInLOldFlag=o->posInLOldFlag;
-  if (o->kModW!=NULL)
-    s->kModW=ivCopy(o->kModW);
-  else
-    s->kModW=NULL;
+  s->kModW = o->kModW;
+//   if (o->kModW!=NULL)
+//     s->kModW=ivCopy(o->kModW);
+//   else
+//     s->kModW=NULL;
   s->pairtest=NULL;
   s->sl=o->sl;
@@ -208 +207 @@
   s->fromT=o->fromT;
   s->noetherSet=o->noetherSet;
-#ifdef COMP_FAST
   s->spSpolyLoop = o->spSpolyLoop;
-#endif  
   return s;
 }
@@ -731 +728 @@
   if ((h==testHomog))
   {
-    if (idRankFreeModule(F)==0)
+    strat->ak = idRankFreeModule(F);
+    if (strat->ak==0)
     {
       h = (tHomog)idHomIdeal(F,Q);
@@ -744 +742 @@
     {
       kModW = *w;
+      strat->kModW = *w;
       pOldFDeg = pFDeg;
       pFDeg = kModDeg;
@@ -753 +752 @@
   strat->homog=h;
   spSet(currRing);
-#ifdef COMP_FAST
   strat->spSpolyLoop = spGetSpolyLoop(currRing, strat);
-#endif  
   initBuchMoraCrit(strat); /*set Gebauer, honey, sugarCrit*/
   initBuchMoraPos(strat);