X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Freal%2Fconv%2Fcl_F_from_R_f.cc;h=4be26ea418084dac36a86f1bf7b27e2973ba5081;hb=c84c6db5d56829d69083c819688a973867694a2a;hp=a88e05e0fbd3102242105b076c5eba97d10a9d35;hpb=976a13157ca8d274a5bcbdac662cac538091e92c;p=cln.git

diff --git a/src/real/conv/cl_F_from_R_f.cc b/src/real/conv/cl_F_from_R_f.cc
index a88e05e..4be26ea 100644
--- a/src/real/conv/cl_F_from_R_f.cc
+++ b/src/real/conv/cl_F_from_R_f.cc
@@ -17,7 +17,7 @@ namespace cln {
 
 const cl_F cl_float (const cl_R& x, float_format_t f)
 {
-	floatformatcase((uintL)f
+	floatformatcase((uintC)f
 	,	return cl_R_to_SF(x);
 	,	return cl_R_to_FF(x);
 	,	return cl_R_to_DF(x);