1 // integer_decode_float().
16 const cl_idecoded_float integer_decode_float (const cl_DF& x)
21 #if (cl_word_size==64)
23 DF_decode(x, { return cl_idecoded_float(0, 0, 1); },
26 return cl_idecoded_float(
27 Q_to_I(mant), // Mantisse (>0, <2^53) als Bignum
28 L_to_FN(exp-(DF_mant_len+1)), // e-53 als Fixnum
29 (sign>=0 ? cl_I(1) : cl_I(-1)) // (-1)^s erzeugen
34 DF_decode2(x, { return cl_idecoded_float(0, 0, 1); },
35 sign=,exp=,manthi=,mantlo=
37 return cl_idecoded_float(
38 L2_to_I(manthi,mantlo), // Mantisse (>0, <2^53) als Bignum
39 L_to_FN(exp-(DF_mant_len+1)), // e als Fixnum
40 (sign>=0 ? cl_I(1) : cl_I(-1)) // (-1)^s erzeugen