]> www.ginac.de Git - cln.git/blobdiff - src/integer/conv/cl_I_from_UL2.cc
Replace CL_REQUIRE/CL_PROVIDE(cl_C_ring) with portable code.
[cln.git] / src / integer / conv / cl_I_from_UL2.cc
index 4409b657ad35f6ea31cad84f8026bb85ed8bf305..be8b420c06ee0e1e1956aa1007787acde2b34593 100644 (file)
@@ -9,9 +9,14 @@
 
 // Implementation.
 
-#include "cl_number.h"
+#include "cln/number.h"
+
+#if (cl_word_size < 64)
+
 #include "cl_DS.h"
 
+namespace cln {
+
 cl_private_thing cl_I_constructor_from_UL2 (uint32 wert_hi, uint32 wert_lo)
 {
        if ((wert_hi == 0)
@@ -19,7 +24,7 @@ cl_private_thing cl_I_constructor_from_UL2 (uint32 wert_hi, uint32 wert_lo)
           )
                return (cl_private_thing)(cl_combine(cl_FN_tag,wert_lo));
        // Bignum erzeugen:
-       // (dessen Länge  bn_minlength <= n <= ceiling((64+1)/intDsize)  erfüllt)
+       // (dessen Länge  bn_minlength <= n <= ceiling((64+1)/intDsize)  erfüllt)
        #define UL2_maxlength  ceiling(64+1,intDsize)
        #define FILL_1_DIGIT(l,i,from) \
                arrayLSref(ptr->data,l,i) = (uintD)from;
@@ -100,3 +105,7 @@ cl_private_thing cl_I_constructor_from_UL2 (uint32 wert_hi, uint32 wert_lo)
        #undef IF_LENGTH
        #undef UL2_maxlength
 }
+
+}  // namespace cln
+
+#endif