Extend the exponent range from 32 bits to 64 bits on selected platforms.

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

diff --git a/src/integer/conv/cl_I_from_UQ.cc b/src/integer/conv/cl_I_from_UQ.cc
index 5721dcc4fbf183f2b1c424db121d85f139a96222..d8490a5763c3afcfeb13e529a16f155b48bacced 100644 (file)
--- a/src/integer/conv/cl_I_from_UQ.cc
+++ b/src/integer/conv/cl_I_from_UQ.cc
@@ -9,17 +9,19 @@
 
 // Implementation.
 
-#include "cl_number.h"
+#include "cln/number.h"
 
 #ifdef intQsize
 
 #include "cl_DS.h"
 
+namespace cln {
+
 cl_private_thing cl_I_constructor_from_UQ (uint64 wert)
 {
        if ((wert & (sint64)minus_bit(cl_value_len-1)) == 0)
           // Bits, die nicht in den Fixnum-Wert >= 0 reinpassen.
-               return (cl_private_thing)(cl_combine(cl_FN_tag,(uint32)wert));
+               return (cl_private_thing)(cl_combine(cl_FN_tag,wert));
        // Bignum erzeugen:
        // (dessen Länge  bn_minlength <= n <= ceiling((32+1)/intDsize)  erfüllt)
        #define UQ_maxlength  ceiling(64+1,intDsize)
@@ -151,4 +153,6 @@ cl_private_thing cl_I_constructor_from_UQ (uint64 wert)
        #undef UQ_maxlength
 }
 
+}  // namespace cln
+
 #endif