4 #include "base/cl_sysdep.h"
7 #include "float/ffloat/cl_FF.h"
12 #include "cln/integer.h"
13 #include "integer/cl_I.h"
17 const cl_I cl_FF_to_I (const cl_FF& x)
20 // Falls x=0.0, Ergebnis 0.
21 // Sonst (ASH Vorzeichen*Mantisse (e-24)).
26 FF_decode(x, { return 0; }, sign=,exp=,mant=);
27 exp = exp-(FF_mant_len+1);
29 // mant >0, <2^(FF_mant_len+1) in ein Fixnum umwandeln:
30 #if (FF_mant_len+1 < cl_value_len)
31 L_to_FN(sign==0 ? (sintL)mant : -(sintL)mant)
33 L_to_I(sign==0 ? (sintL)mant : -(sintL)mant)