]> www.ginac.de Git - cln.git/blobdiff - src/float/lfloat/misc/cl_LF_idecode.cc
Use paths relative the `src' directory in the #include directives.
[cln.git] / src / float / lfloat / misc / cl_LF_idecode.cc
index b21490c3b0cdebca140fa3b6b3fc589c39497f04..3eeb5e651dd995d95a41935362f2426f9b2fca61 100644 (file)
@@ -1,7 +1,7 @@
 // integer_decode_float().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
 #include "cln/lfloat.h"
@@ -9,23 +9,22 @@
 
 // Implementation.
 
-#include "cl_LF.h"
-#include "cl_I.h"
-#include "cl_DS.h"
+#include "float/lfloat/cl_LF.h"
+#include "integer/cl_I.h"
+#include "base/digitseq/cl_DS.h"
 
 namespace cln {
 
-MAYBE_INLINE
-const cl_idecoded_float integer_decode_float (const cl_LF& x)
+CL_INLINE const cl_idecoded_float CL_INLINE_DECL(integer_decode_float) (const cl_LF& x)
 {
        // x entpacken:
-       var uintL uexp = TheLfloat(x)->expo;
+       var uintE uexp = TheLfloat(x)->expo;
        if (uexp == 0)
                { return cl_idecoded_float(0, 0, 1); }
        var cl_signean sign = TheLfloat(x)->sign;
        var uintC len = TheLfloat(x)->len;
        // intDsize*len >= 53 >= 33 >= cl_value_len, also len >= bn_minlength.
-       // Baue Integer für die Mantisse.
+       // Baue Integer für die Mantisse.
        // Vorne 1 Nulldigit, damit es eine NDS wird.
        var Bignum mant = allocate_bignum(1+len);
        mspref(arrayMSDptr(TheBignum(mant)->data,1+len),0) = 0;