Changeset e4ad0e in git for kernel/tgb.cc

Timestamp:

Feb 15, 2007, 12:37:03 PM (17 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

4f8cebe18ed7049e8dd3986035f94b8c10e9cd2d

Parents:

818958fc062bb8e81b91c2a51209ac71667bd2e2

Message:

*bricken: micro tuning


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

File:

• kernel/tgb.cc (modified) (2 diffs)

kernel/tgb.cc

@@ -5 +5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: tgb.cc,v 1.136 2007-02-15 11:13:40 bricken Exp $ */
+/* $Id: tgb.cc,v 1.137 2007-02-15 11:37:03 bricken Exp $ */
 /*
 * ABSTRACT: slimgb and F4 implementation
@@ -2731 +2731 @@
       assume(red.len==pLength(red.p));
       if (red.onlyBorrowed){
+        if (npIsOne(red.coef)){
+          t=p_Copy(red.p,currRing);
+        }else
         t=pp_Mult_nn(red.p,red.coef,currRing);
       } else {
-        t=p_Mult_nn(red.p,red.coef,currRing);
+        if (npIsOne(red.coef))
+        t=red.p;
+        else
+         t=p_Mult_nn(red.p,red.coef,currRing);
       }
       kBucket_Add_q(bucket,t,&red.len);