1 // most_positive_float().
6 CL_PROVIDE(cl_F_mostpos)
18 #include "cl_LF_impl.h"
22 // Exponent so groß wie möglich, Mantisse 1...1, Vorzeichen +.
24 static const cl_SF most_positive_SF =
25 make_SF(0,SF_exp_high,bit(SF_mant_len+1)-1);
27 static const cl_FF most_positive_FF =
28 encode_FF(0,FF_exp_high-FF_exp_mid,bit(FF_mant_len+1)-1);
30 static const cl_DF most_positive_DF =
31 #if (cl_word_size==64)
32 encode_DF(0,DF_exp_high-DF_exp_mid,bit(DF_mant_len+1)-1);
34 encode_DF(0,DF_exp_high-DF_exp_mid,bit(DF_mant_len-32+1)-1,bitm(32)-1);
37 inline const cl_LF most_positive_LF (uintC len)
39 var Lfloat erg = allocate_lfloat(len,LF_exp_high,0);
40 fill_loop_up(&TheLfloat(erg)->data[0],len,~(uintD)0);
44 const cl_F most_positive_float (float_format_t f)
46 floatformatcase((uintL)f
47 , return most_positive_SF;
48 , return most_positive_FF;
49 , return most_positive_DF;
50 , return most_positive_LF(len);
56 CL_PROVIDE_END(cl_F_mostpos)