CL_PROVIDE(cl_F_epsneg)
// Specification.
-#include "cl_float.h"
+#include "cln/float.h"
// Implementation.
#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 +.
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);
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;
);
}
+} // namespace cln
+
CL_PROVIDE_END(cl_F_epsneg)