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

[cln.git] / src / float / conv / cl_F_from_RA_f.cc

diff --git a/src/float/conv/cl_F_from_RA_f.cc b/src/float/conv/cl_F_from_RA_f.cc
index f83ba3c60da3a6d5d7fff85c500738e9a9db7093..213db2a84684e3b0643cef76a5b0fa43772cbf27 100644 (file)
--- a/src/float/conv/cl_F_from_RA_f.cc
+++ b/src/float/conv/cl_F_from_RA_f.cc
@@ -19,7 +19,7 @@ namespace cln {
 
 const cl_F cl_float (const cl_RA& x, float_format_t f)
 {
-       floatformatcase((uintL)f
+       floatformatcase((uintC)f
        ,       return cl_RA_to_SF(x);
        ,       return cl_RA_to_FF(x);
        ,       return cl_RA_to_DF(x);