From a23460d397ddfc98a8156a736e52aa30d9a7a305 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Sat, 2 Aug 2008 14:33:54 +0000
Subject: [PATCH] SIN and SINH, when applied on long doubles, used only float
 accuracy.

---
 src/c/num_sfun.d | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/c/num_sfun.d b/src/c/num_sfun.d
index 30c51459e..f0f462757 100644
--- a/src/c/num_sfun.d
+++ b/src/c/num_sfun.d
@@ -481,7 +481,7 @@ cl_sin(cl_object x)
 		output = ecl_make_doublefloat(sin(df(x))); break;
 #ifdef ECL_LONG_FLOAT
 	case t_longfloat:
-		output = make_longfloat(sinf(ecl_long_float(x))); break;
+		output = make_longfloat(sinl(ecl_long_float(x))); break;
 #endif
 	case t_complex: {
 		/*
@@ -609,7 +609,7 @@ cl_sinh(cl_object x)
 		output = ecl_make_doublefloat(sinh(df(x))); break;
 #ifdef ECL_LONG_FLOAT
 	case t_longfloat:
-		output = make_longfloat(sinhf(ecl_long_float(x))); break;
+		output = make_longfloat(sinhl(ecl_long_float(x))); break;
 #endif
 	case t_complex: {
 		/*