1 // integer_decode_float().
4 #include "base/cl_sysdep.h"
7 #include "cln/ffloat.h"
12 #include "float/ffloat/cl_FF.h"
13 #include "integer/cl_I.h"
17 CL_INLINE const cl_idecoded_float CL_INLINE_DECL(integer_decode_float) (const cl_FF& x)
23 FF_decode(x, { return cl_idecoded_float(0, 0, 1); },
26 return cl_idecoded_float(
27 (FF_mant_len+1 < cl_value_len
28 ? L_to_FN(mant) // Mantisse als Fixnum
29 : UL_to_I(mant) // oder evtl. als Bignum
31 L_to_FN(exp-(FF_mant_len+1)), // e-24 als Fixnum
32 (sign>=0 ? cl_I(1) : cl_I(-1)) // (-1)^s erzeugen