7 #include "cln/integer.h"
12 #include "cln/number.h"
16 #include "cln/integer_io.h"
17 #include "cln/abort.h"
21 uint32 cl_I_to_UL (const cl_I& obj)
25 var sint32 wert = FN_to_L(obj);
30 var cl_heap_bignum* bn = TheBignum(obj);
31 var uintC len = bn->length;
32 if ((sintD)mspref(arrayMSDptr(bn->data,len),0) < 0)
34 #define IF_LENGTH(i) \
35 if (bn_minlength <= i) /* genau i Digits überhaupt möglich? */\
36 if (len == i) /* genau i Digits? */ \
37 /* 2^((i-1)*intDsize-1) <= obj < 2^(i*intDsize-1) */ \
38 if ( (i*intDsize-1 > 32) \
39 && ( ((i-1)*intDsize-1 >= 32) \
40 || (mspref(arrayMSDptr(bn->data,len),0) >= (uintD)bitc(32-(i-1)*intDsize)) \
45 return get_uint1D_Dptr(arrayLSDptr(bn->data,1));
47 return get_uint2D_Dptr(arrayLSDptr(bn->data,2));
49 return get_uint3D_Dptr(arrayLSDptr(bn->data,3));
51 return get_uint4D_Dptr(arrayLSDptr(bn->data,4));
53 return get_uint4D_Dptr(arrayLSDptr(bn->data,5));
56 bad: // unpassendes Objekt
57 fprint(std::cerr, "Not a 32-bit integer: ");
58 fprint(std::cerr, obj);
59 fprint(std::cerr, "\n");