]> 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 0fa45bd478e185317cca2f65a86cf2d1bd7fd18c..be8b420c06ee0e1e1956aa1007787acde2b34593 100644 (file)
@@ -10,6 +10,9 @@
 // Implementation.
 
 #include "cln/number.h"
+
+#if (cl_word_size < 64)
+
 #include "cl_DS.h"
 
 namespace cln {
@@ -21,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;
@@ -104,3 +107,5 @@ cl_private_thing cl_I_constructor_from_UL2 (uint32 wert_hi, uint32 wert_lo)
 }
 
 }  // namespace cln
+
+#endif