Changeset 0a8ee5 in git for kernel/kspoly.cc

Timestamp:

Mar 19, 2010, 3:38:41 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

2937222b4a61df047ac996df75f1a6bfe245af2c

Parents:

18871b8b1489681d13f6dadcbc2940b541da2be2

Message:

sca-std optimization

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

File:

• kernel/kspoly.cc (modified) (1 diff)

kernel/kspoly.cc

@@ -76 +76 @@
     // no exp-bound checking needed 
     // (only needed if exp-bound(tailring)<exp-b(currRing))
-    number c;
-    if (PR->bucket!=NULL)  nc_kBucketPolyRed(PR->bucket, p2,&c);
+    if (PR->bucket!=NULL)  nc_kBucketPolyRed(PR->bucket, p2,coef);
     else 
     {
       poly _p = (PR->t_p != NULL ? PR->t_p : PR->p);
       assume(_p != NULL);
-      nc_PolyPolyRed(_p, p2,&c);
+      nc_PolyPolyRed(_p, p2,coef);
       if (PR->t_p!=NULL) PR->t_p=_p; else PR->p=_p;
-      PR->pLength=pLength(_p);
-    }
-    if (coef!=NULL) *coef=c;
-    else nDelete(&c);
+      PR->pLength=0; // usaully not used, GetpLength re-comoutes it if needed
+    }
     return 0;
   }