Fix integer input with leading zeros in power-of-two base.

[cln.git] / src / integer / conv / cl_I_to_L.cc

diff --git a/src/integer/conv/cl_I_to_L.cc b/src/integer/conv/cl_I_to_L.cc
index 52d59c9d3e53cc4ebdee32331b9d247e89961d4b..d67e185083927bdc38cfb49060ea4924aa186cac 100644 (file)
--- a/src/integer/conv/cl_I_to_L.cc
+++ b/src/integer/conv/cl_I_to_L.cc
@@ -1,7 +1,7 @@
 // cl_I_to_L().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
 #include "cln/integer.h"
@@ -10,8 +10,8 @@
 // Implementation.
 
 #include "cln/number.h"
-#include "cl_I.h"
-#include "cl_DS.h"
+#include "integer/cl_I.h"
+#include "base/digitseq/cl_DS.h"
 #include "cln/io.h"
 #include "cln/integer_io.h"
 #include "cln/exception.h"
@@ -35,7 +35,7 @@ sint32 cl_I_to_L (const cl_I& obj)
                if ((sintD)mspref(arrayMSDptr(bn->data,len),0) >= 0) {
                        // Bignum > 0
                        #define IF_LENGTH(i)  \
-                         if (bn_minlength <= i) /* genau i Digits überhaupt möglich? */\
+                         if (bn_minlength <= i) /* genau i Digits überhaupt möglich? */\
                            if (len == i) /* genau i Digits? */                         \
                              /* 2^((i-1)*intDsize-1) <= obj < 2^(i*intDsize-1) */      \
                              if ( (i*intDsize > 32)                                    \
@@ -56,7 +56,7 @@ sint32 cl_I_to_L (const cl_I& obj)
                } else {
                        // Bignum < 0
                        #define IF_LENGTH(i)  \
-                         if (bn_minlength <= i) /* genau i Digits überhaupt möglich? */\
+                         if (bn_minlength <= i) /* genau i Digits überhaupt möglich? */\
                            if (len == i) /* genau i Digits? */                         \
                              /* - 2^(i*intDsize-1) <= obj < - 2^((i-1)*intDsize-1) */  \
                              if ( (i*intDsize > 32)                                    \