Changeset 6f1610 in git for Singular/kstdfac.cc

Timestamp:

Nov 17, 1999, 1:09:27 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d6b035db0aca74c2dfaa450b41b81d9ef4adfe0b

Parents:

59f0d2fa7d5c7132b992bffd6be3a4a07eeb4b9b

Message:

* ideals: fix in idModulo
* k* fix initSSpecial
* mmbt: don't track on new


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

File:

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

Singular/kstdfac.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstdfac.cc,v 1.30 1999-11-15 17:20:15 obachman Exp $ */
+/* $Id: kstdfac.cc,v 1.31 1999-11-17 12:09:25 obachman Exp $ */
 /*
 *  ABSTRACT -  Kernel: factorizing alg. of Buchberger
@@ -102 +102 @@
       if(i>o->tl)
       {
-        PrintS("poly p1 not found in T:");wrp(p);PrintLn();
+        Warn("poly p1 not found in T:");wrp(p);PrintLn();
         l[j].p1=pCopy(p);
         break;
@@ -122 +122 @@
       if(i>o->tl)
       {
-        PrintS("poly p2 not found in T:");wrp(p);PrintLn();
+        Warn("poly p2 not found in T:");wrp(p);PrintLn();
         l[j].p2=pCopy(p);
         break;
@@ -149 +149 @@
 kStrategy kStratCopy(kStrategy o)
 {
+  kTest_TS(o);
   kStrategy s=(kStrategy)Alloc0SizeOf(skStrategy);
   s->next=NULL;
@@ -220 +221 @@
   s->fromT=o->fromT;
   s->noetherSet=o->noetherSet;
+  kTest_TS(s);
   return s;
 }
@@ -251 +253 @@
     int facdeg=pFDeg(strat->S[si]);
 
-    kTest(strat);
     ideal fac=singclap_factorize(strat->S[si],NULL,1);
-    kTest(strat);
 #ifndef HAVE_LIBFAC_P
     if (fac==NULL)
@@ -462 +462 @@
     if (TEST_OPT_REDSB) completeReduceFac(strat,FL);
   }
+  kTest_TS(strat);
   while (strat->Ll >= 0)
   {
@@ -484 +485 @@
     strat->P = strat->L[strat->Ll];
     strat->Ll--;
-    kTest(strat);
     if (pNext(strat->P.p) == strat->tail)
     {
@@ -741 +741 @@
         }
       } /* for */
-    kTest(strat);
       for(i=0;i<IDELEMS(fac);i++) fac->m[i]=NULL;
       idDelete(&fac);
@@ -753 +752 @@
       if (TEST_OPT_REDSB) completeReduceFac(strat,FL);
     }
-    kTest(strat);
+    kTest_TS(strat);
   }
   if (TEST_OPT_DEBUG) messageSets(strat);