From 8f3cb8455217339257ce8324b2e75e5bbfac0d8e Mon Sep 17 00:00:00 2001
From: Richard Kreckel <kreckel@ginac.de>
Date: Fri, 11 Jan 2008 23:17:04 +0000
Subject: [PATCH] 	* Fix missing templatization of truncated series.

---
 src/float/transcendental/cl_LF_ratseries.cc   | 112 ------------------
 .../transcendental/cl_LF_ratseries_pqb.cc     |   3 +-
 2 files changed, 2 insertions(+), 113 deletions(-)
 delete mode 100644 src/float/transcendental/cl_LF_ratseries.cc

diff --git a/src/float/transcendental/cl_LF_ratseries.cc b/src/float/transcendental/cl_LF_ratseries.cc
deleted file mode 100644
index 7dbcbc8..0000000
--- a/src/float/transcendental/cl_LF_ratseries.cc
+++ /dev/null
@@ -1,112 +0,0 @@
-// eval_rational_series().
-
-// General includes.
-#include "cl_sysdep.h"
-
-// Specification.
-#include "cl_LF_tran.h"
-
-
-// Implementation.
-
-namespace cln {
-
-// Subroutine.
-// Evaluates S = sum(N1 <= n < N2, a(n)/b(n) * (p(N1)...p(n))/(q(N1)...q(n)))
-// and returns P = p(N1)...p(N2-1), Q = q(N1)...q(N2-1), B = B(N1)...B(N2-1)
-// and T = B*Q*S (all integers). On entry N1 < N2.
-// P will not be computed if a NULL pointer is passed.
-
-const cl_LF eval_rational_series (uintC N, const cl_rational_series& args, uintC len)
-{
-	if (args.pv)
-		if (args.qv)
-			if (args.bv)
-				if (args.av) {
-					var cl_pqab_series series =
-					  { args.pv, args.qv, args.av, args.bv, args.qsv };
-					return eval_rational_series(N,series,len);
-				} else {
-					var cl_pqb_series series =
-					  { args.pv, args.qv, args.bv, args.qsv };
-					return eval_rational_series(N,series,len);
-				}
-			else
-				if (args.av) {
-					var cl_pqa_series series =
-					  { args.pv, args.qv, args.av, args.qsv };
-					return eval_rational_series(N,series,len);
-				} else {
-					var cl_pq_series series =
-					  { args.pv, args.qv, args.qsv };
-					return eval_rational_series(N,series,len);
-				}
-		else
-			if (args.bv)
-				if (args.av) {
-					var cl_pab_series series =
-					  { args.pv, args.av, args.bv };
-					return eval_rational_series(N,series,len);
-				} else {
-					var cl_pb_series series =
-					  { args.pv, args.bv };
-					return eval_rational_series(N,series,len);
-				}
-			else
-				if (args.av) {
-					var cl_pa_series series =
-					  { args.pv, args.av };
-					return eval_rational_series(N,series,len);
-				} else {
-					var cl_p_series series =
-					  { args.pv };
-					return eval_rational_series(N,series,len);
-				}
-	else
-		if (args.qv)
-			if (args.bv)
-				if (args.av) {
-					var cl_qab_series series =
-					  { args.qv, args.av, args.bv, args.qsv };
-					return eval_rational_series(N,series,len);
-				} else {
-					var cl_qb_series series =
-					  { args.qv, args.bv, args.qsv };
-					return eval_rational_series(N,series,len);
-				}
-			else
-				if (args.av) {
-					var cl_qa_series series =
-					  { args.qv, args.av, args.qsv };
-					return eval_rational_series(N,series,len);
-				} else {
-					var cl_q_series series =
-					  { args.qv, args.qsv };
-					return eval_rational_series(N,series,len);
-				}
-		else
-			if (args.bv)
-				if (args.av) {
-					var cl_ab_series series =
-					  { args.av, args.bv };
-					return eval_rational_series(N,series,len);
-				} else {
-					var cl_b_series series =
-					  { args.bv };
-					return eval_rational_series(N,series,len);
-				}
-			else
-				if (args.av) {
-					var cl_a_series series =
-					  { args.av };
-					return eval_rational_series(N,series,len);
-				} else {
-					var cl__series series =
-					  { };
-					return eval_rational_series(N,series,len);
-				}
-}
-// Bit complexity (if p(n), q(n), a(n), b(n) have length O(log(n))):
-// O(log(N)^2*M(N)).
-
-}  // namespace cln
diff --git a/src/float/transcendental/cl_LF_ratseries_pqb.cc b/src/float/transcendental/cl_LF_ratseries_pqb.cc
index a65c2f7..f14d460 100644
--- a/src/float/transcendental/cl_LF_ratseries_pqb.cc
+++ b/src/float/transcendental/cl_LF_ratseries_pqb.cc
@@ -385,7 +385,8 @@ static void eval_pqb_series_aux (uintC N1, uintC N2,
 	}
 }
 
-const cl_LF eval_rational_series (uintC N, cl_pqb_series_stream& args, uintC len, uintC trunclen)
+template<>
+const cl_LF eval_rational_series<false> (uintC N, cl_pqb_series_stream& args, uintC len, uintC trunclen)
 {
 	if (N==0)
 		return cl_I_to_LF(0,len);