16 #include "cl_LF_impl.h"
20 static inline const cl_LF LF_epsilon (uintC len)
22 var Lfloat erg = allocate_lfloat(len,LF_exp_mid+1-intDsize*len,0);
23 var uintD* ptr = &TheLfloat(erg)->data[0];
24 #if CL_DS_BIG_ENDIAN_P
25 *ptr++ = bit(intDsize-1);
26 ptr = clear_loop_up(ptr,len-2);
30 ptr = clear_loop_up(ptr,len-2);
31 *ptr = bit(intDsize-1);
36 const cl_F float_epsilon (float_format_t f)
38 // Bei Floats mit d Bits (incl. Hiddem Bit, also d = ?F_mant_len+1)
39 // ist ?F_epsilon = 2^-d*(1+2^(1-d)), d.h. Mantisse 10...01, Vorzeichen +.
41 static const cl_SF SF_epsilon =
42 make_SF(0,SF_exp_mid-SF_mant_len,bit(SF_mant_len)+1);
44 static const cl_FF FF_epsilon =
45 encode_FF(0,-FF_mant_len,bit(FF_mant_len)+1);
47 static const cl_DF DF_epsilon =
48 #if (cl_word_size==64)
49 encode_DF(0,-DF_mant_len,bit(DF_mant_len)+1);
51 encode_DF(0,-DF_mant_len,bit(DF_mant_len-32),1);
54 floatformatcase((uintC)f
58 , return LF_epsilon(len);