// cl_SF_to_LF().
// General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
// Specification.
-#include "cl_F.h"
+#include "float/cl_F.h"
// Implementation.
-#include "cl_SF.h"
-#include "cl_LF.h"
-#include "cl_LF_impl.h"
-#include "cl_DS.h"
+#include "float/sfloat/cl_SF.h"
+#include "float/lfloat/cl_LF.h"
+#include "float/lfloat/cl_LF_impl.h"
+#include "base/digitseq/cl_DS.h"
namespace cln {
#endif
SF_decode(x, { return encode_LF0(len); }, sign=,exp=(sintL),mant=);
// Long-Float allozieren,
- // Mantisse mit intDsize*len-SF_mant_len-1 Nullbits auffüllen:
+ // Mantisse mit intDsize*len-SF_mant_len-1 Nullbits auffüllen:
var Lfloat y = allocate_lfloat(len,exp+LF_exp_mid,sign);
var uintD* ptr = arrayMSDptr(TheLfloat(y)->data,len);
- // erste k := ceiling(SF_mant_len+1,intDsize) Digits mit mant füllen:
+ // erste k := ceiling(SF_mant_len+1,intDsize) Digits mit mant füllen:
mant = mant << (ceiling(SF_mant_len+1,intDsize)*intDsize-(SF_mant_len+1));
#if (intDsize==64)
set_max64_Dptr(SF_mant_len+1,ptr,mant);