Changeset 3ec38a in git for kernel

Timestamp:

Feb 26, 2009, 5:34:46 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c5facdfddea2addfd91babd8b9019161dea4b695')

Children:

e080abd680b3a24e92a87f55bce1810d468b80a3

Parents:

c0e2c365e9f081e528f9eb28536ac32e035adb32

Message:

*hannes: red...


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

File:

• kernel/gr_kstd2.cc (modified) (2 diffs)

kernel/gr_kstd2.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: gr_kstd2.cc,v 1.32 2009-02-26 15:57:01 Singular Exp $ */
+/* $Id: gr_kstd2.cc,v 1.33 2009-02-26 16:34:46 Singular Exp $ */
 /*
 *  ABSTRACT -  Kernel: noncomm. alg. of Buchberger
@@ -255 +255 @@
 #endif
         //poly hh = nc_CreateSpoly(strat->S[c_j],(*h).p, currRing);
-        if(c_e==-1)
-          c_p = nc_CreateSpoly(pCopy(strat->S[c_j]),pCopy((*h).p), currRing);
-        else
-          c_p=nc_rat_ReduceSpolyNew(pCopy(strat->S[c_j]),pCopy((*h).p), currRing->real_var_start-1,currRing);
+        Print("vor nc_rat_ReduceSpolyNew (ce:%d) ",c_e);wrp(h->p);PrintLn();
+        //if(c_e==-1)
+        //  c_p = nc_CreateSpoly(pCopy(strat->S[c_j]),pCopy((*h).p), currRing);
+        //else
+          c_p=nc_rat_ReduceSpolyNew(strat->S[c_j],pCopy((*h).p), currRing->real_var_start-1,currRing);
+        Print("nach nc_rat_ReduceSpolyNew ");wrp(c_p);PrintLn();
         pDelete(&((*h).p));
         (*h).p=c_p;