15 float cl_float_approx (const cl_SF& x)
21 SF_decode(x, { return 0.0; }, sign=,exp=,mant=);
22 // Mantisse um 23-16=7 Bits nach links schieben:
23 union { ffloat eksplicit; float machine_float; } u;
24 if (((sintL)(SF_exp_high-SF_exp_mid) > (sintL)(FF_exp_high-FF_exp_mid))
25 && (exp > (sintL)(FF_exp_high-FF_exp_mid)))
26 { u.eksplicit = make_FF_word(sign,bit(FF_exp_len)-1,0); } // Infinity
28 if (((sintL)(SF_exp_low-SF_exp_mid) < (sintL)(FF_exp_low-FF_exp_mid))
29 && (exp < (sintL)(FF_exp_low-FF_exp_mid)))
30 { u.eksplicit = make_FF_word(sign,0,0); } // 0.0
32 { u.eksplicit = make_FF_word(sign,exp+FF_exp_mid,mant<<(FF_mant_len-SF_mant_len)); }
33 return u.machine_float;