/cln-1.3.2/src/float/dfloat/misc/cl_DF_exponent.cc

 1// float_exponent().
 2
 3// General includes.
 4#include "base/cl_sysdep.h"
 5
 6// Specification.
 7#include "cln/dfloat.h"
 8
 9
10// Implementation.
11
12#include "float/dfloat/cl_DF.h"
13
14namespace cln {
15
16CL_INLINE sintE CL_INLINE_DECL(float_exponent) (const cl_DF& x)
17{
18	var uintL uexp = DF_uexp(TheDfloat(x)->dfloat_value_semhi);
19	if (uexp==0) { return 0; }
20	return (sintL)(uexp - DF_exp_mid);
21}
22
23}  // namespace cln