15 const cl_decoded_dfloat decode_float (const cl_DF& x)
20 #if (cl_word_size==64)
22 DF_decode(x, { return cl_decoded_dfloat(cl_DF_0, 0, cl_DF_1); },
25 return cl_decoded_dfloat(
26 encode_DF(0,0,mant), // (-1)^0 * 2^0 * m erzeugen
27 L_to_FN(exp), // e als Fixnum
28 encode_DF(sign,1,bit(DF_mant_len)) // (-1)^s erzeugen
33 DF_decode2(x, { return cl_decoded_dfloat(cl_DF_0, 0, cl_DF_1); },
34 sign=,exp=,manthi=,mantlo=
36 return cl_decoded_dfloat(
37 encode_DF(0,0,manthi,mantlo), // (-1)^0 * 2^0 * m erzeugen
38 L_to_FN(exp), // e als Fixnum
39 encode_DF(sign,1,bit(DF_mant_len-32),0) // (-1)^s erzeugen