Changeset 51922a in git

Timestamp:

Nov 4, 2005, 9:45:01 AM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

f1615ea078bb48981e9be451424a0c4df2016cfe

Parents:

98c629a900848d59b5917745c966c580dab8bd66

Message:

*hannes: facstd debug


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

Files:

• Singular/extra.cc (modified) (2 diffs)
• kernel/kstdfac.cc (modified) (3 diffs)

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.230 2005-10-05 07:23:21 wienand Exp $ */
+/* $Id: extra.cc,v 1.231 2005-11-04 08:45:01 Singular Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -2482 +2482 @@
     else
 #endif
+/*==================== facstd_debug ==================================*/
+#if !defined(NDEBUG)
+    if(strcmp(sys_cmd,"facstd")==0)
+    {
+      extern int strat_nr;
+      extern int strat_fac_debug;
+      strat_fac_debug=(int)h->Data(); 
+      strat_nr=0;
+      return FALSE;
+    }
+    else
+#endif
 /*==================== t-rep-GB ==================================*/
     if (strcmp(sys_cmd, "unifastmult")==0)

kernel/kstdfac.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstdfac.cc,v 1.4 2005-11-02 08:43:57 Singular Exp $ */
+/* $Id: kstdfac.cc,v 1.5 2005-11-04 08:44:00 Singular Exp $ */
 /*
 *  ABSTRACT -  Kernel: factorizing alg. of Buchberger
@@ -409 +409 @@
       {
         int ii;
-        Print("s(%d), set S\n",n->nr);
+        Print("---------------------------------------------------------------\ns(%d), set S\n",n->nr);
         for(ii=0;ii<n->sl;ii++)
-        { Print("s(%d->S[%d]= ",n->nr,ii);pWrite(n->S[i]);}
+        { Print("s(%d->S[%d]= ",n->nr,ii);pWrite(n->S[ii]);}
         Print("s(%d), set D\n",n->nr);
-        for(ii=0;ii<IDELEMS(n->D);ii++)
-        { Print("s(%d->D[%d]= ",n->nr,ii);pWrite(n->D->m[i]);}
+        if (n->D!=NULL)
+        {
+          for(ii=0;ii<IDELEMS(n->D);ii++)
+          { Print("s(%d->D[%d]= ",n->nr,ii);pWrite(n->D->m[ii]);}
+        }
+        else PrintS(" empty\n");
       }
 #endif
@@ -721 +725 @@
         {
           int ii;
-          Print("s(%d), set S\n",n->nr);
+          Print("-------------------------------------------------------------\ns(%d), set S\n",n->nr);
           for(ii=0;ii<n->sl;ii++)
-          { Print("s(%d->S[%d]= ",n->nr,ii);pWrite(n->S[i]);}
+          { Print("s(%d->S[%d]= ",n->nr,ii);pWrite(n->S[ii]);}
           Print("s(%d), set D\n",n->nr);
-          for(ii=0;ii<IDELEMS(n->D);ii++)
-          { Print("s(%d->D[%d]= ",n->nr,ii);pWrite(n->D->m[i]);}
+          if (n->D!=NULL)
+          {
+            for(ii=0;ii<IDELEMS(n->D);ii++)
+            { Print("s(%d->D[%d]= ",n->nr,ii);pWrite(n->D->m[ii]);}
+          }
+          else PrintS(" empty\n");
         }
 #endif