4 #include "base/cl_sysdep.h"
7 #include "float/dfloat/cl_DF.h"
12 #include "cln/integer.h"
13 #include "integer/cl_I.h"
17 const cl_I cl_DF_to_I (const cl_DF& x)
20 // Falls x=0.0, Ergebnis 0.
21 // Sonst (ASH Vorzeichen*Mantisse (e-53)).
22 #if (cl_word_size==64)
27 DF_decode(x, { return 0; }, sign=,exp=,mant=);
28 exp = exp-(DF_mant_len+1);
29 // mant mit Vorzeichen versehen:
30 if (!(sign==0)) { mant = -mant; }
31 // in ein Bignum umwandeln und shiften:
32 return ash( Q_to_I(mant), exp );
39 DF_decode2(x, { return 0; }, sign=,exp=,manthi=,mantlo=);
40 exp = exp-(DF_mant_len+1);
41 // mant mit Vorzeichen versehen:
43 { manthi = -manthi; mantlo = -mantlo; if (!(mantlo==0)) { manthi -= 1; } }
44 // in ein Bignum umwandeln und shiften:
45 return ash( L2_to_I(manthi,mantlo), exp );