Changeset fbc7cb in git for kernel/kInline.h

Timestamp:

Nov 28, 2013, 8:17:04 AM (10 years ago)

Author:

Christian Eder

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

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:

• kernel/kInline.h (modified) (1 diff)

kernel/kInline.h

@@ -1074 +1074 @@
 }
 
-KINLINE int ksReducePolyTailSig(LObject* PR, TObject* PW, LObject* Red)
-{
-  BOOLEAN ret;
-  number coef;
-
-  assume(PR->GetLmCurrRing() != PW->GetLmCurrRing());
-  Red->HeadNormalize();
-  /*
-  printf("------------------------\n");
-  pWrite(Red->GetLmCurrRing());
-  */
-  ret = ksReducePolySig(Red, PW, 1, NULL, &coef);
-  if (!ret)
-  {
-    if (! n_IsOne(coef, currRing->cf))
-    {
-      PR->Mult_nn(coef);
-      // HANNES: mark for Normalize
-    }
-    n_Delete(&coef, currRing->cf);
-  }
-  return ret;
-}
-
 /***************************************************************
  *