// cl_LF_to_I().
// General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
// Specification.
-#include "cl_LF.h"
+#include "float/lfloat/cl_LF.h"
// Implementation.
#include "cln/integer.h"
-#include "cl_I.h"
-#include "cl_DS.h"
+#include "integer/cl_I.h"
+#include "base/digitseq/cl_DS.h"
-#undef MAYBE_INLINE
-#define MAYBE_INLINE inline
-#include "cl_LF_minusp.cc"
+#include "base/cl_inline.h"
+#include "float/lfloat/elem/cl_LF_minusp.cc"
namespace cln {
var uintC len1 = len+1; // brauche 1 Digit mehr
num_stack_alloc(len1, MSDptr=,LSDptr=);
copy_loop_msp(arrayMSDptr(TheLfloat(x)->data,len),MSDptr mspop 1,len); // Mantisse kopieren
- mspref(MSDptr,0) = 0; // und zusätzliches Nulldigit
+ mspref(MSDptr,0) = 0; // und zusätzliches Nulldigit
// Mantisse ist die UDS MSDptr/len1/LSDptr.
- if (minusp(x))
+ if (minusp_inline(x))
// x<0 -> Mantisse negieren:
{ neg_loop_lsp(LSDptr,len1); }
// Vorzeichen*Mantisse ist die DS MSDptr/len1/LSDptr.
- // (ASH Vorzeichen*Mantisse (- e 16n)) durchführen:
+ // (ASH Vorzeichen*Mantisse (- e 16n)) durchführen:
return ash(DS_to_I(MSDptr,len1),
minus(uexp, LF_exp_mid + intDsize*len)
);