]> www.ginac.de Git - cln.git/blobdiff - src/float/misc/cl_F_epsneg.cc
Cater to the fact that g++ 4.3 will use a different naming for
[cln.git] / src / float / misc / cl_F_epsneg.cc
index c480f0f4a2c1e985724ec9cb975184128992e1cb..8a8ba5a5440f5ecb7ef0ed5d17ef298b00ac20fe 100644 (file)
@@ -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)