4 #include "base/cl_sysdep.h"
7 #include "cln/sfloat.h"
12 #include "float/sfloat/cl_SF.h"
13 #include "float/ffloat/cl_FF.h"
17 float float_approx (const cl_SF& x)
23 SF_decode(x, { return 0.0; }, sign=,exp=,mant=);
24 // Mantisse um 23-16=7 Bits nach links schieben:
25 union { ffloat eksplicit; float machine_float; } u;
26 if (((sintL)(SF_exp_high-SF_exp_mid) > (sintL)(FF_exp_high-FF_exp_mid))
27 && (exp > (sintL)(FF_exp_high-FF_exp_mid)))
28 { u.eksplicit = make_FF_word(sign,bit(FF_exp_len)-1,0); } // Infinity
30 if (((sintL)(SF_exp_low-SF_exp_mid) < (sintL)(FF_exp_low-FF_exp_mid))
31 && (exp < (sintL)(FF_exp_low-FF_exp_mid)))
32 { u.eksplicit = make_FF_word(sign,0,0); } // 0.0
34 { u.eksplicit = make_FF_word(sign,exp+FF_exp_mid,mant<<(FF_mant_len-SF_mant_len)); }
35 return u.machine_float;