Changeset 40cb86 in git for kernel/kutil.cc

Timestamp:

Oct 7, 2008, 9:57:10 AM (15 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

308a0757edf86cbca3ae246494ed4e685ee172cb

Parents:

b3ea61fa4f7f34c5422d4cc9cd380f3eceb8997c

Message:

zeroSpoly Fehler bei Moduln korrigiert


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

File:

• kernel/kutil.cc (modified) (5 diffs)

kernel/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.109 2008-09-26 08:09:09 Singular Exp $ */
+/* $Id: kutil.cc,v 1.110 2008-10-07 07:57:10 wienand Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -2903 +2903 @@
           {
             new_pair=TRUE;
-            Print("TODO Oliver --- j:%d, Ll:%d\n",j,strat->Ll);
+            Print("TODO Oliver 1 --- j:%d, Ll:%d\n",j,strat->Ll);
             enterOnePairRing(j,h,ecart,isFromQ,strat, atR);
           }
@@ -2925 +2925 @@
         {
           new_pair=TRUE;
-          Print("TODO Oliver --- j:%d, Ll:%d\n",j,strat->Ll);
+          Print("TODO Oliver 2 --- j:%d, Ll:%d\n",j,strat->Ll);
           enterOnePairRing(j,h,ecart,isFromQ,strat, atR);
         }
@@ -3017 +3017 @@
         pSetExp(tmp, i, p_GetExp(p, i, strat->tailRing));
       }
+      if (rRing_has_Comp(currRing))
+        p_SetComp(tmp, p_GetComp(p, strat->tailRing), currRing);
       p_Setm(tmp, currRing);
       p = p_LmFreeAndNext(p, strat->tailRing);
@@ -3041 +3043 @@
           posx = strat->posInL(strat->L,strat->Ll,&h,strat);
         h.sev = pGetShortExpVector(h.p);
-        h.t_p = k_LmInit_currRing_2_tailRing(h.p, strat->tailRing);
+        if (strat->tailRing != currRing)
+          h.t_p = k_LmInit_currRing_2_tailRing(h.p, strat->tailRing);
         if (pNext(p) != NULL)
         {