14 #include "cl_LF_impl.h"
17 const cl_LF cl_SF_to_LF (const cl_SF& x, uintC len)
27 SF_decode(x, { return encode_LF0(len); }, sign=,exp=(sintL),mant=);
28 // Long-Float allozieren,
29 // Mantisse mit intDsize*len-SF_mant_len-1 Nullbits auffüllen:
30 var Lfloat y = allocate_lfloat(len,exp+LF_exp_mid,sign);
31 var uintD* ptr = arrayMSDptr(TheLfloat(y)->data,len);
32 // erste k := ceiling(SF_mant_len+1,intDsize) Digits mit mant füllen:
33 mant = mant << (ceiling(SF_mant_len+1,intDsize)*intDsize-(SF_mant_len+1));
35 set_max64_Dptr(SF_mant_len+1,ptr,mant);
37 set_max32_Dptr(SF_mant_len+1,ptr,mant);
39 clear_loop_msp(ptr mspop ceiling(SF_mant_len+1,intDsize),len-ceiling(SF_mant_len+1,intDsize));