Use paths relative the `src' directory in the #include directives.

[cln.git] / src / integer / elem / cl_I_square.cc

diff --git a/src/integer/elem/cl_I_square.cc b/src/integer/elem/cl_I_square.cc
index 9c8323e4fb1dc1219f3ed771c98c7dfe40a00892..3474a408d839db82d98101ef16aa240ce52c99a3 100644 (file)
--- a/src/integer/elem/cl_I_square.cc
+++ b/src/integer/elem/cl_I_square.cc
@@ -1,7 +1,7 @@
 // square().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
 #include "cln/integer.h"
@@ -9,9 +9,9 @@
 
 // Implementation.
 
-#include "cl_I.h"
-#include "cl_DS.h"
-#include "cl_low.h"
+#include "integer/cl_I.h"
+#include "base/digitseq/cl_DS.h"
+#include "base/cl_low.h"
 
 namespace cln {
 
@@ -23,7 +23,7 @@ const cl_I square (const cl_I& x)
       if (fixnump(x))
         { var sintV x_ = FN_to_V(x);
           #if (cl_value_len > 32)
-          // nur falls x ein Integer mit höchstens 32 Bit ist:
+          // nur falls x ein Integer mit höchstens 32 Bit ist:
           if ((uintV)((sintV)sign_of(x_) ^ x_) < bit(31))
           #endif
             {
@@ -31,7 +31,7 @@ const cl_I square (const cl_I& x)
               var uint32 hi;
               var uint32 lo;
               mulu32((uint32)x_,(uint32)x_,hi=,lo=); // erst unsigned multiplizieren
-              if (x_ < 0) { hi -= 2*(uint32)x_; } // dann Korrektur für Vorzeichen
+              if (x_ < 0) { hi -= 2*(uint32)x_; } // dann Korrektur für Vorzeichen
               return L2_to_I(hi,lo);
             }
         }
@@ -39,7 +39,7 @@ const cl_I square (const cl_I& x)
       var const uintD* xMSDptr;
       var uintC xlen;
       var const uintD* xLSDptr;
-      I_to_NDS_nocopy(x, xMSDptr = , xlen = , xLSDptr = , cl_false,);
+      I_to_NDS_nocopy(x, xMSDptr = , xlen = , xLSDptr = , false,);
       var uintD* ergMSDptr;
       var uintC erglen = 2*xlen;
       var uintD* ergLSDptr;