7 #include "cln/ffloat.h"
16 const cl_FF ftruncate (const cl_FF& x)
19 // x = 0.0 oder e<=0 -> Ergebnis 0.0
20 // 1<=e<=23 -> letzte (24-e) Bits der Mantisse auf 0 setzen,
21 // Exponent und Vorzeichen beibehalten
22 // e>=24 -> Ergebnis x
23 var ffloat x_ = cl_ffloat_value(x);
24 var uintL uexp = FF_uexp(x_); // e + FF_exp_mid
25 if (uexp <= FF_exp_mid) // 0.0 oder e<=0 ?
28 { if (uexp > FF_exp_mid+FF_mant_len) // e > 23 ?
31 { return allocate_ffloat
32 ( x_ & // Bitmaske: Bits 23-e..0 gelöscht, alle anderen gesetzt
33 ~(bit(FF_mant_len+1+FF_exp_mid-uexp)-1)