Changeset 922962 in git for libpolys/polys/nc/old.gring.cc

Timestamp:

Sep 24, 2012, 3:30:48 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

095dee7384980b4721524a28443756f110c5faa7

Parents:

f224d8590b63be01aff8b548ab4f2f5dea43b095

Message:

chg: p_Minus_mm_Mult_qq optim.

File:

• libpolys/polys/nc/old.gring.cc (modified) (3 diffs)

libpolys/polys/nc/old.gring.cc

@@ -195 +195 @@
 
 ///////////////////////////////////////////////////////////////////////////////
-poly nc_p_Minus_mm_Mult_qq(poly p, const poly m, const poly q, int &lp,
-                                    const int, const poly, const ring r)
+poly nc_p_Minus_mm_Mult_qq(poly p, const poly m, const poly q, int &shorter,
+                                    const poly, const ring r)
 {
   poly mc  = p_Neg( p_Copy(m, r), r );
@@ -202 +202 @@
   p_Delete(&mc, r);
 
+  int org_p=pLength(p);
+  int org_q=pLength(q);
+
   p = p_Add_q(p, mmc, r);
 
-  lp = pLength(p); // ring independent!
+  shorter = pLength(p)-org_p-org_q; // ring independent!
 
   return(p);
@@ -3179 +3182 @@
   p_Procs->p_Mult_mm  = rGR->p_Procs->p_Mult_mm  = gnc_p_Mult_mm;
   p_Procs->pp_Mult_mm = rGR->p_Procs->pp_Mult_mm = gnc_pp_Mult_mm;
-  p_Procs->p_Minus_mm_Mult_qq = rGR->p_Procs->p_Minus_mm_Mult_qq = NULL;
-  // gnc_p_Minus_mm_Mult_qq_ign; // should not be used!!!???
-
-
+  p_Procs->p_Minus_mm_Mult_qq = rGR->p_Procs->p_Minus_mm_Mult_qq = nc_p_Minus_mm_Mult_qq;
 
   // non-commutaitve multiplication by monomial from the left