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

diff --git a/src/float/misc/cl_F_epsneg.cc b/src/float/misc/cl_F_epsneg.cc
index c480f0f..8a8ba5a 100644
--- a/src/float/misc/cl_F_epsneg.cc
+++ b/src/float/misc/cl_F_epsneg.cc
@@ -6,7 +6,7 @@
 CL_PROVIDE(cl_F_epsneg)
 
 // Specification.
-#include "cl_float.h"
+#include "cln/float.h"
 
 // Implementation.
 
@@ -17,6 +17,8 @@ CL_PROVIDE(cl_F_epsneg)
 #include "cl_LF.h"
 #include "cl_LF_impl.h"
 
+namespace cln {
+
 // Bei Floats mit d Bits (incl. Hiddem Bit, also d = ?F_mant_len+1)
 // ist ?F_negative_epsilon = 2^(-d-1)*(1+2^(1-d)),
 // d.h. Mantisse 10...01, Vorzeichen +.
@@ -36,7 +38,7 @@ static const cl_DF DF_negative_epsilon =
 
 inline const cl_LF LF_negative_epsilon (uintC len)
 {
-	var Lfloat erg = allocate_lfloat(len,LF_exp_mid-intDsize*(uintL)len,0);
+	var Lfloat erg = allocate_lfloat(len,LF_exp_mid-intDsize*len,0);
 	var uintD* ptr = &TheLfloat(erg)->data[0];
 	#if CL_DS_BIG_ENDIAN_P
 	  *ptr++ = bit(intDsize-1);
@@ -50,9 +52,9 @@ inline const cl_LF LF_negative_epsilon (uintC len)
 	return erg;
 }
 
-const cl_F float_negative_epsilon (cl_float_format_t f)
+const cl_F float_negative_epsilon (float_format_t f)
 {
-	floatformatcase((uintL)f
+	floatformatcase((uintC)f
 	,	return SF_negative_epsilon;
 	,	return FF_negative_epsilon;
 	,	return DF_negative_epsilon;
@@ -60,4 +62,6 @@ const cl_F float_negative_epsilon (cl_float_format_t f)
 	);
 }
 
+}  // namespace cln
+
 CL_PROVIDE_END(cl_F_epsneg)