Changeset 6e0750 in git for Singular

Timestamp:

Jun 10, 2010, 2:55:35 PM (14 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

604d8bb038d7aa985d50d55053096e60b087e614

Parents:

a0d9be8bca240bb2c7f44cf7cac23306fc32fcfd

Message:

pCleardenom, pContent

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

Location:

Singular

Files:

• iparith.cc (modified) (1 diff)
• janet.cc (modified) (4 diffs)

Singular/iparith.cc

@@ -3885 +3885 @@
   // CopyD for POLY_CMD and VECTOR_CMD are identical:
   poly p=(poly)v->CopyD(POLY_CMD);
-  if (p!=NULL) pCleardenom(p);
+  if (p!=NULL) p_Cleardenom(p, currRing);
   res->data = (char *)p;
   return FALSE;

Singular/janet.cc

@@ -107 +107 @@
   x->root=ksOldSpolyRed(y->root,x->root,NULL);
 #endif
-//  if (x->root) pContent(x->root);
+//  if (x->root) p_Content(x->root,currRing);
 //  if (x->root) pSimpleContent(x->root,5);
 
@@ -165 +165 @@
         {
            //pSimpleContent(pp,2);
-           pContent(pp);
+           p_Content(pp,currRing);
            count=0;
          //  old_size=nSize(pGetCoeff(pp));
@@ -176 +176 @@
    }
 
-  if (done) pContent(p->root);
+  if (done) p_Content(p->root,currRing);
   //if (done) pSimpleContent(p->root,-1);
   pTest(p->root);
@@ -287 +287 @@
   p->changed=1;
 
-  pContent(p->root);
+  p_Content(p->root,currRing);
   //pSimpleContent(p->root,-1);
   pTest(p->root);