X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Finteger%2Fbitwise%2Fcl_I_log_aux.cc;h=7bd6a535bc6e9aab99ccc8f96c6fa96b2f5690f7;hb=HEAD;hp=f6dcaf49b569ccfc9bd33dc4efc865880d6f1cac;hpb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b;p=cln.git

diff --git a/src/integer/bitwise/cl_I_log_aux.cc b/src/integer/bitwise/cl_I_log_aux.cc
index f6dcaf4..7bd6a53 100644
--- a/src/integer/bitwise/cl_I_log_aux.cc
+++ b/src/integer/bitwise/cl_I_log_aux.cc
@@ -1,28 +1,30 @@
 // I_to_DS_n_aux().
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
-#include "cl_I_log.h"
+#include "integer/bitwise/cl_I_log.h"
 
 
 // Implementation.
 
-#include "cl_number.h"
-#include "cl_I.h"
-#include "cl_DS.h"
+#include "cln/number.h"
+#include "integer/cl_I.h"
+#include "base/digitseq/cl_DS.h"
+
+namespace cln {
 
 uintD* I_to_DS_n_aux (const cl_I& obj, uintC n, uintD* destptr)
     { // Nun sind unterhalb von destptr n Digits Platz.
-      // oberen Teil der DS aus obj füllen, dabei destptr erniedrigen:
+      // oberen Teil der DS aus obj füllen, dabei destptr erniedrigen:
       if (fixnump(obj))
         // Fixnum:
         {
           #if (intDsize==64) // && (FN_maxlength==1)
            lsprefnext(destptr) = FN_to_Q(obj);
           #else // (intDsize<=32)
-           var uint32 wert = FN_to_L(obj);
-           #define FN_maxlength_a  (intLsize/intDsize)
+           var uintV wert = FN_to_V(obj);
+           #define FN_maxlength_a  (intVsize/intDsize)
            #define FN_maxlength_b  (FN_maxlength<=FN_maxlength_a ? FN_maxlength : FN_maxlength_a)
            // FN_maxlength Digits ablegen. Davon kann man FN_maxlength_b Digits aus wert nehmen.
            #if (FN_maxlength_b > 1)
@@ -32,9 +34,9 @@ uintD* I_to_DS_n_aux (const cl_I& obj, uintC n, uintD* destptr)
            #endif
            lsprefnext(destptr) = (uintD)wert;
            #if (FN_maxlength > FN_maxlength_b)
-           // Es ist oint_data_len = intLsize, brauche
+           // Es ist cl_value_len-1 = intVsize, brauche
            // noch FN_maxlength-FN_maxlength_b = 1 Digit.
-           lsprefnext(destptr) = (sintD)sign_of(FN_to_L(obj));
+           lsprefnext(destptr) = (sintD)sign_of(FN_to_V(obj));
            #endif
           #endif
           n -= FN_maxlength;
@@ -45,9 +47,12 @@ uintD* I_to_DS_n_aux (const cl_I& obj, uintC n, uintD* destptr)
           n -= len;
           destptr = copy_loop_lsp(BN_LSDptr(obj),destptr,len); // DS kopieren
         }
-      // unteren Teil mit Fülldigits, gebildet aus dem Vorzeichen, füllen:
+      // unteren Teil mit Fülldigits, gebildet aus dem Vorzeichen, füllen:
       if (!(n==0))
         { destptr = fill_loop_lsp(destptr,n,sign_of_sintD(mspref(destptr,0))); }
       // destptr zeigt nun aufs untere Ende der DS.
       return destptr;
     }
+
+}  // namespace cln
+