4 #include "base/cl_sysdep.h"
7 #include "cln/dfloat.h"
12 #include "float/dfloat/cl_DF.h"
16 CL_INLINE sintE CL_INLINE_DECL(float_exponent) (const cl_DF& x)
18 var uintL uexp = DF_uexp(TheDfloat(x)->dfloat_value_semhi);
19 if (uexp==0) { return 0; }
20 return (sintL)(uexp - DF_exp_mid);