Changeset fa98a4 in git

Timestamp:

May 8, 2006, 2:55:12 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

cfbcdce9a4b6526bc3148967251de0357d90401e

Parents:

fda36e719dc9e0838a50e32a6595be7b93efe867

Message:

*hannes: fixed: std-internal structures, debug


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

Location:

kernel

Files:

• kInline.cc (modified) (3 diffs)
• kutil.cc (modified) (2 diffs)
• ring.cc (modified) (3 diffs)

kernel/kInline.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: kInline.cc,v 1.2 2004-08-03 17:33:55 Singular Exp $
+ *  Version: $Id: kInline.cc,v 1.3 2006-05-08 12:55:10 Singular Exp $
  *******************************************************************/
 #ifndef KINLINE_CC
@@ -314 +314 @@
 {
   if (t_p != NULL)
-  { 
+  {
     pNormalize(t_p);
     if (p != NULL) pSetCoeff0(p, pGetCoeff(t_p));
@@ -327 +327 @@
 {
   if (t_p != NULL)
-  { 
+  {
     nNormalize(pGetCoeff(t_p));
     if (p != NULL) pSetCoeff0(p, pGetCoeff(t_p));

kernel/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.21 2006-03-20 20:33:56 wienand Exp $ */
+/* $Id: kutil.cc,v 1.22 2006-05-08 12:55:11 Singular Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -2041 +2041 @@
         h.sev = pGetShortExpVector(h.p);
         h.t_p = k_LmInit_currRing_2_tailRing(h.p, strat->tailRing);
+        if (pNext(p) != NULL)
+        {
+          pShallowCopyDeleteProc p_shallow_copy_delete
+               = pGetShallowCopyDeleteProc(strat->tailRing, new_tailRing);
+          pNext(p) = p_shallow_copy_delete(pNext(p),
+                       currRing, strat->tailRing, strat->tailRing->PolyBin);
+        }
         enterL(&strat->L,&strat->Ll,&strat->Lmax,h,posx);
       }

kernel/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.45 2005-11-28 16:32:34 Singular Exp $ */
+/* $Id: ring.cc,v 1.46 2006-05-08 12:55:12 Singular Exp $ */
 
 /*
@@ -3285 +3285 @@
 }
 
-void pDebugPrintR(poly p, ring r)
+void pDebugPrintR(poly p, const ring r)
 {
   int i,j;
-  pWrite(p);
+  p_Write(p,r);
   j=2;
   while(p!=NULL)
@@ -3294 +3294 @@
     Print("\nexp[0..%d]\n",r->ExpL_Size-1);
     for(i=0;i<r->ExpL_Size;i++)
-      Print("%d ",p->exp[i]);
+      Print("%ld ",p->exp[i]);
     PrintLn();
     Print("v0:%d ",p_GetComp(p, r));