Changeset 51922a in git for kernel/kstdfac.cc

Timestamp:

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

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

f1615ea078bb48981e9be451424a0c4df2016cfe

Parents:

98c629a900848d59b5917745c966c580dab8bd66

Message:

*hannes: facstd debug


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

File:

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

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