2006-04-25 Bruno Haible <bruno@clisp.org>

[cln.git] / src / real / conv / cl_F_from_R_f.cc

diff --git a/src/real/conv/cl_F_from_R_f.cc b/src/real/conv/cl_F_from_R_f.cc
index a88e05e0fbd3102242105b076c5eba97d10a9d35..4be26ea418084dac36a86f1bf7b27e2973ba5081 100644 (file)
--- 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);