]> www.ginac.de Git - cln.git/blobdiff - src/float/lfloat/elem/cl_LF_to_I.cc
Use paths relative the `src' directory in the #include directives.
[cln.git] / src / float / lfloat / elem / cl_LF_to_I.cc
index fb5655c3e58e1f63e224912c41d7197b59bceec5..6716fcd8e59314aa89c88399ac7f61698b3f642d 100644 (file)
@@ -1,21 +1,20 @@
 // 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 {
 
@@ -34,13 +33,13 @@ const cl_I cl_LF_to_I (const cl_LF& x)
       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)
                 );