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 5c1d07efc71f9c0c26c8f0dfd05ee6416cd71f5c..d8490a5763c3afcfeb13e529a16f155b48bacced 100644 (file)
--- a/src/integer/conv/cl_I_from_UQ.cc
+++ b/src/integer/conv/cl_I_from_UQ.cc
@@ -21,7 +21,7 @@ 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)