4 #include "base/cl_sysdep.h"
7 #include "cln/sfloat.h"
12 #include "float/sfloat/cl_SF.h"
13 #include "integer/cl_I.h"
17 const decoded_sfloat decode_float (const cl_SF& x)
23 SF_decode(x, { return decoded_sfloat(SF_0, 0, SF_1); },
26 return decoded_sfloat(
27 encode_SF(0,0,mant), // (-1)^0 * 2^0 * m erzeugen
28 L_to_FN(exp), // e als Fixnum
29 encode_SF(sign,1,bit(SF_mant_len)) // (-1)^s erzeugen