13 #include "cl_LF_impl.h"
16 const cl_decoded_lfloat decode_float (const cl_LF& x)
22 var const uintD* mantMSDptr;
23 LF_decode(x, { return cl_decoded_lfloat(x, 0, encode_LF1(mantlen)); },
24 sign=,exp=,mantMSDptr=,mantlen=,);
25 return cl_decoded_lfloat(
26 encode_LFu(0,0+LF_exp_mid,mantMSDptr,mantlen), // (-1)^0 * 2^0 * m erzeugen
27 L_to_I(exp), // e als Fixnum
28 encode_LF1s(sign,mantlen) // (-1)^s erzeugen