Changeset fbc7cb in git for kernel/kInline.h


Ignore:
Timestamp:
Nov 28, 2013, 8:17:04 AM (9 years ago)
Author:
Christian Eder
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'cbf866d4f8c3861325311c042cb2033c053453b2')
Children:
f1cef21d1357296b505525dc298415759bdb20c8
Parents:
c91ffe336985180edd91ef17bf401793443ccb4d
git-author:
Christian Eder <ederc@mathematik.uni-kl.de>2013-11-28 08:17:04+01:00
git-committer:
Christian Eder <ederc@mathematik.uni-kl.de>2013-12-12 13:51:25+01:00
Message:
moves sba tail reduction stuff to kstd2
File:
1 edited

Legend:

Unmodified
Added
Removed
  • kernel/kInline.h

    rc91ffe3 rfbc7cb  
    10741074}
    10751075
    1076 KINLINE int ksReducePolyTailSig(LObject* PR, TObject* PW, LObject* Red)
    1077 {
    1078   BOOLEAN ret;
    1079   number coef;
    1080 
    1081   assume(PR->GetLmCurrRing() != PW->GetLmCurrRing());
    1082   Red->HeadNormalize();
    1083   /*
    1084   printf("------------------------\n");
    1085   pWrite(Red->GetLmCurrRing());
    1086   */
    1087   ret = ksReducePolySig(Red, PW, 1, NULL, &coef);
    1088   if (!ret)
    1089   {
    1090     if (! n_IsOne(coef, currRing->cf))
    1091     {
    1092       PR->Mult_nn(coef);
    1093       // HANNES: mark for Normalize
    1094     }
    1095     n_Delete(&coef, currRing->cf);
    1096   }
    1097   return ret;
    1098 }
    1099 
    11001076/***************************************************************
    11011077 *
Note: See TracChangeset for help on using the changeset viewer.