X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Ffloat%2Fmisc%2Fcl_F_leastneg.cc;h=918db47305b24b18d233e69ae01edc142769ee5b;hb=8b3d91dec77438c0fe679b10869ab29e6cdeba58;hp=5f31488f0e9f1f0943f2dae04f05d02badc91bcd;hpb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b;p=cln.git

diff --git a/src/float/misc/cl_F_leastneg.cc b/src/float/misc/cl_F_leastneg.cc
index 5f31488..918db47 100644
--- a/src/float/misc/cl_F_leastneg.cc
+++ b/src/float/misc/cl_F_leastneg.cc
@@ -6,7 +6,7 @@
 CL_PROVIDE(cl_F_leastneg)
 
 // Specification.
-#include "cl_float.h"
+#include "cln/float.h"
 
 // Implementation.
 
@@ -17,7 +17,9 @@ CL_PROVIDE(cl_F_leastneg)
 #include "cl_LF.h"
 #include "cl_LF_impl.h"
 
-// Exponent so klein wie möglich, Mantisse 10...0, Vorzeichen -.
+namespace cln {
+
+// Exponent so klein wie möglich, Mantisse 10...0, Vorzeichen -.
 
 static const cl_SF least_negative_SF =
 	make_SF(-1,SF_exp_low,bit(SF_mant_len));
@@ -45,9 +47,9 @@ inline const cl_LF least_negative_LF (uintC len)
 	return erg;
 }
 
-const cl_F least_negative_float (cl_float_format_t f)
+const cl_F least_negative_float (float_format_t f)
 {
-	floatformatcase((uintL)f
+	floatformatcase((uintC)f
 	,	return least_negative_SF;
 	,	return least_negative_FF;
 	,	return least_negative_DF;
@@ -55,4 +57,6 @@ const cl_F least_negative_float (cl_float_format_t f)
 	);
 }
 
+}  // namespace cln
+
 CL_PROVIDE_END(cl_F_leastneg)