7 #include "cln/lfloat.h"
13 #include "cl_LF_impl.h"
18 const decoded_lfloat decode_float (const cl_LF& x)
24 var const uintD* mantMSDptr;
25 LF_decode(x, { return decoded_lfloat(x, 0, encode_LF1(mantlen)); },
26 sign=,exp=,mantMSDptr=,mantlen=,);
27 return decoded_lfloat(
28 encode_LFu(0,0+LF_exp_mid,mantMSDptr,mantlen), // (-1)^0 * 2^0 * m erzeugen
29 E_to_I(exp), // e als Fixnum
30 encode_LF1s(sign,mantlen) // (-1)^s erzeugen