12 #include "cl_number.h"
16 const cl_I NDS_to_I (const uintD* MSDptr, uintC len)
18 // Mehr als bn_minlength Digits -> Bignum.
19 // Weniger als bn_minlength Digits -> Fixnum.
20 // Genau bn_minlength Digits -> Bignum oder Fixnum.
21 if (len < bn_minlength)
22 { // 0..bn_minlength-1 Digits, paßt in ein Fixnum:
23 if (bn_minlength>1 ? (len==0) : TRUE)
26 #if (cl_word_size <= 32)
28 if (bn_minlength>2 ? (len==1) : TRUE)
31 { wert = get_sint1D_Dptr(MSDptr mspop 1); }
32 elif (bn_minlength>3 ? (len==2) : TRUE)
35 { wert = get_sint2D_Dptr(MSDptr mspop 2); }
36 elif (bn_minlength>4 ? (len==3) : TRUE)
39 { wert = get_sint3D_Dptr(MSDptr mspop 3); }
43 { wert = get_sint4D_Dptr(MSDptr mspop 4); }
47 { wert = get_sint4D_Dptr(MSDptr mspop 5); }
48 #else // (cl_word_size==64)
54 { wert = (sint64)(sintD)mspref(MSDptr,0); }
58 { wert = ((sint64)(sintD)mspref(MSDptr,0) << intDsize) | (uint64)(uintD)mspref(MSDptr,1); }
64 { wert = (sintD)mspref(MSDptr,0); }
69 #if (cl_value_len > (bn_minlength-1)*intDsize)
70 if (len == bn_minlength)
71 // bn_minlength Digits, also (incl. Vorzeichen) zwischen
72 // (bn_minlength-1)*intDsize+1 und bn_minlength*intDsize Bits.
73 // Höchstens cl_value_len Bits -> paßt in ein Fixnum:
74 { if ( (mspref(MSDptr,0) <= (uintD)(bit(cl_value_len-1-(bn_minlength-1)*intDsize)-1)) // Fixnum >=0 ?
75 ||(mspref(MSDptr,0) >= (uintD)(-bit(cl_value_len-1-(bn_minlength-1)*intDsize))) // Fixnum <0 ?
94 // mindestens bn_minlength Digits, mache ein Bignum
95 { var Bignum result = allocate_bignum(len);
96 // neues Bignum mit dem Inhalt der NDS füllen:
97 copy_loop_msp(MSDptr,arrayMSDptr(result->data,len),len);