/dports/math/cln/cln-1.3.6/src/base/digit/ |
H A D | cl_D.h | 75 #if (intDsize==8) 100 #if (intDsize==8) || (intDsize==16) || (intDsize==64) 141 #if (intDsize==8) || (intDsize==16) || (intDsize==64) 154 #if (intDsize==8) 161 #if (intDsize==16) 165 #if (intDsize==32) 168 #if (intDsize==64) 177 #if (intDsize==8) 180 #if (intDsize==16) 183 #if (intDsize==32) [all …]
|
/dports/math/cln/cln-1.3.6/src/integer/conv/ |
H A D | cl_I_from_UQ.cc | 31 || ((uint64)wert < ((uint64)1 << (i*intDsize-1 < 64 ? i*intDsize-1 : 0))) \ in cl_I_constructor_from_UQ() 41 #if (intDsize>=64) in cl_I_constructor_from_UQ() 48 #if (intDsize <= 32) in cl_I_constructor_from_UQ() 53 #if (2*intDsize>=64) in cl_I_constructor_from_UQ() 60 #if (intDsize <= 16) in cl_I_constructor_from_UQ() 66 #if (3*intDsize>=64) in cl_I_constructor_from_UQ() 79 #if (4*intDsize>=64) in cl_I_constructor_from_UQ() 86 #if (intDsize <= 8) in cl_I_constructor_from_UQ() 94 #if (5*intDsize>=64) in cl_I_constructor_from_UQ() 109 #if (6*intDsize>=64) in cl_I_constructor_from_UQ() [all …]
|
H A D | cl_I_from_Q.cc | 30 if ((bn_minlength <= i) && (i*intDsize <= 64) \ in cl_I_constructor_from_Q() 31 && (!((i+1)*intDsize <= 64) \ in cl_I_constructor_from_Q() 40 #if (intDsize <= 32) in cl_I_constructor_from_Q() 45 arrayLSref(ptr->data,2,1) = (uintD)(wert>>intDsize); in cl_I_constructor_from_Q() 48 #if (intDsize <= 16) in cl_I_constructor_from_Q() 66 #if (intDsize <= 8) in cl_I_constructor_from_Q() 119 if ((bn_minlength <= i) && (i*intDsize <= 64) \ in cl_I_constructor_from_Q() 120 && (!((i+1)*intDsize <= 64) \ in cl_I_constructor_from_Q() 125 #if (intDsize <= 32) in cl_I_constructor_from_Q() 128 #if (intDsize <= 16) in cl_I_constructor_from_Q() [all …]
|
H A D | cl_I_from_L.cc | 27 #if (intDsize==64) in cl_I_constructor_from_L() 36 #if (intDsize==8) in cl_I_constructor_from_L() 39 #if (intDsize==16) in cl_I_constructor_from_L() 42 #if (intDsize==32) in cl_I_constructor_from_L() 49 && (!((i+1)*intDsize <= 32) \ in cl_I_constructor_from_L() 52 #if (intDsize <= 32) in cl_I_constructor_from_L() 59 #if (intDsize <= 16) in cl_I_constructor_from_L() 67 #if (intDsize <= 8) in cl_I_constructor_from_L() 95 #if (intDsize <= 32) in cl_I_constructor_from_L() 98 #if (intDsize <= 16) in cl_I_constructor_from_L() [all …]
|
H A D | cl_I_from_L2.cc | 46 #if (intDsize==64) in cl_I_constructor_from_L2() 49 #if (32/intDsize==1) in cl_I_constructor_from_L2() 53 #if (32/intDsize==2) in cl_I_constructor_from_L2() 59 #if (32/intDsize==4) in cl_I_constructor_from_L2() 73 || (i*intDsize-1 < 32 \ in cl_I_constructor_from_L2() 83 #if (intDsize <= 32) in cl_I_constructor_from_L2() 86 #if (intDsize <= 16) in cl_I_constructor_from_L2() 91 #if (intDsize <= 8) in cl_I_constructor_from_L2() 114 #if (intDsize <= 32) in cl_I_constructor_from_L2() 117 #if (intDsize <= 16) in cl_I_constructor_from_L2() [all …]
|
H A D | cl_I_from_Q2.cc | 55 #if (intDsize==64) in cl_I_constructor_from_Q2() 59 #if (32/intDsize==1) in cl_I_constructor_from_Q2() 65 #if (32/intDsize==2) in cl_I_constructor_from_Q2() 75 #if (32/intDsize==4) in cl_I_constructor_from_Q2() 97 || (i*intDsize-1 < 64 \ in cl_I_constructor_from_Q2() 109 #if (intDsize <= 32) in cl_I_constructor_from_Q2() 114 #if (intDsize <= 16) in cl_I_constructor_from_Q2() 123 #if (intDsize <= 8) in cl_I_constructor_from_Q2() 156 #if (intDsize <= 32) in cl_I_constructor_from_Q2() 161 #if (intDsize <= 16) in cl_I_constructor_from_Q2() [all …]
|
H A D | cl_I_from_UL.cc | 28 #define UL_maxlength ceiling(32+1,intDsize) in cl_I_constructor_from_UL() 32 || ((uint32)wert < (uint32)bitc(i*intDsize-1)) \ in cl_I_constructor_from_UL() 39 #if (intDsize <= 32) in cl_I_constructor_from_UL() 43 #if (intDsize>=32) in cl_I_constructor_from_UL() 46 arrayLSref(ptr->data,2,1) = (uintD)(wert>>intDsize); in cl_I_constructor_from_UL() 50 #if (intDsize <= 16) in cl_I_constructor_from_UL() 55 #if (2*intDsize>=32) in cl_I_constructor_from_UL() 58 arrayLSref(ptr->data,3,2) = (uintD)(wert>>intDsize); in cl_I_constructor_from_UL() 62 #if (intDsize <= 8) in cl_I_constructor_from_UL() 68 #if (3*intDsize>=32) in cl_I_constructor_from_UL() [all …]
|
H A D | cl_I_from_UL2.cc | 28 #define UL2_maxlength ceiling(64+1,intDsize) in cl_I_constructor_from_UL2() 33 arrayLSref(ptr->data,l,i+1) = (uintD)(from>>intDsize); in cl_I_constructor_from_UL2() 37 arrayLSref(ptr->data,l,i+2) = (uintD)(from>>intDsize); in cl_I_constructor_from_UL2() 43 #if (intDsize==64) in cl_I_constructor_from_UL2() 47 #if (32/intDsize==1) in cl_I_constructor_from_UL2() 52 #if (32/intDsize==2) in cl_I_constructor_from_UL2() 59 #if (32/intDsize==4) in cl_I_constructor_from_UL2() 73 || (i*intDsize-1 < 32 \ in cl_I_constructor_from_UL2() 85 #if (intDsize <= 32) in cl_I_constructor_from_UL2() 88 #if (intDsize <= 16) in cl_I_constructor_from_UL2() [all …]
|
/dports/math/cln/cln-1.3.6/src/float/dfloat/elem/ |
H A D | cl_DF_div.cc | 56 #if (intDsize<=32) in operator /() 62 #if (intDsize<=32) in operator /() 83 #if (intDsize<=32) in operator /() 93 #if (intDsize==64) in operator /() 97 #elif (intDsize==32) || (intDsize==16) || (intDsize==8) in operator /() 99 set_32_Dptr(arrayMSDptr(mant1,128/intDsize) mspop 32/intDsize,mantlo1); in operator /() 100 set_32_Dptr(arrayMSDptr(mant1,128/intDsize) mspop 2*32/intDsize,0); in operator /() 101 set_32_Dptr(arrayMSDptr(mant1,128/intDsize) mspop 3*32/intDsize,0); in operator /() 103 set_32_Dptr(arrayMSDptr(mant2,64/intDsize) mspop 32/intDsize,mantlo2); in operator /() 127 UDS_divide(arrayMSDptr(mant1,128/intDsize),128/intDsize,arrayLSDptr(mant1,128/intDsize), in operator /() [all …]
|
H A D | cl_DF_mul.cc | 51 #if (intDsize<=32) in operator *() 57 #if (intDsize<=32) in operator *() 64 #if (intDsize<=32) in operator *() 69 #if (intDsize<=32) in operator *() 82 #if (intDsize==64) in operator *() 85 #elif (intDsize==32) || (intDsize==16) || (intDsize==8) in operator *() 87 set_32_Dptr(arrayMSDptr(mant1,64/intDsize) mspop 32/intDsize,mantlo1); in operator *() 89 set_32_Dptr(arrayMSDptr(mant2,64/intDsize) mspop 32/intDsize,mantlo2); in operator *() 102 cl_UDS_mul(arrayLSDptr(mant1,64/intDsize),64/intDsize, in operator *() 103 arrayLSDptr(mant2,64/intDsize),64/intDsize, in operator *() [all …]
|
/dports/math/cln/cln-1.3.6/src/float/dfloat/algebraic/ |
H A D | cl_DF_sqrt.cc | 50 var uintD mant [128/intDsize]; in sqrt() 51 #if (intDsize==64) in sqrt() 56 set_32_Dptr(arrayMSDptr(mant,128/intDsize) mspop 32/intDsize,(uint32)mantx); in sqrt() 57 set_32_Dptr(arrayMSDptr(mant,128/intDsize) mspop 2*32/intDsize,0); in sqrt() 58 set_32_Dptr(arrayMSDptr(mant,128/intDsize) mspop 3*32/intDsize,0); in sqrt() 63 …UDS_sqrt(arrayMSDptr(mant,128/intDsize),128/intDsize,arrayLSDptr(mant,128/intDsize), &wurzel, exac… in sqrt() 105 #if (intDsize==32) || (intDsize==16) || (intDsize==8) in sqrt() 107 set_32_Dptr(arrayMSDptr(mant,128/intDsize) mspop 32/intDsize,mantlo); in sqrt() 108 set_32_Dptr(arrayMSDptr(mant,128/intDsize) mspop 2*32/intDsize,0); in sqrt() 109 set_32_Dptr(arrayMSDptr(mant,128/intDsize) mspop 3*32/intDsize,0); in sqrt() [all …]
|
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/ |
H A D | intelem.d | 15 #if (intDsize==32) 23 #if (intDsize==16) 47 #if (intDsize==32) 53 #if (intDsize==16) 80 #if (intDsize==16) 90 #if (intDsize==32) 486 #if (intDsize==16) in L_to_I() 489 #if (intDsize==32) in L_to_I() 578 #if (intDsize>=32) in UL_to_I() 641 #if (32/intDsize==1) in L2_to_I() [all …]
|
H A D | realrand.d | 17 local var const uintD multiplier[64/intDsize] = { in random_L() 20 var uintD product[128/intDsize]; /* Produkt */ in random_L() 22 mulu_2loop_down(&seedMSDptr[64/intDsize],64/intDsize, in random_L() 23 &multiplier[64/intDsize],64/intDsize, in random_L() 24 &product[128/intDsize]); in random_L() 31 set_32_Dptr(&seedMSDptr[32/intDsize],seed_lo); in random_L() 44 dotimesC(count,floor(len,32/intDsize), { in random_UDS() 46 set_32_Dptr(MSDptr,next); MSDptr += 32/intDsize; in random_UDS() 51 set_max32_Dptr(intDsize*len,MSDptr,next); in random_UDS() 97 var uintL len = ceiling(d,intDsize); in F_random_F() [all …]
|
H A D | intserial.d | 63 count2 = count % (intDsize/8); in LESbvector_to_UI() 163 count2 = count % (intDsize/8); in LESbvector_to_I() 207 if (!((floor(bitsize,intDsize) >= len) in UI_to_LEbytes() 215 len = (intDsize/8)*len; in UI_to_LEbytes() 230 count -= (intDsize/8)*len; in UI_to_LEbytes() 233 doconsttimes(intDsize/8, { in UI_to_LEbytes() 238 doconsttimes(intDsize/8, { in UI_to_LEbytes() 296 len = (intDsize/8)*len; in I_to_LEbytes() 311 count -= (intDsize/8)*len; in I_to_LEbytes() 314 doconsttimes(intDsize/8, { in I_to_LEbytes() [all …]
|
/dports/math/cln/cln-1.3.6/src/integer/ |
H A D | cl_I.h | 322 #if (intDsize < cl_value_len) 324 #elif (intDsize<=32) 326 #elif (intDsize==64) 352 #if (intDsize<=32) 362 …return ((((uintV)lspref(ptr,2)<<intDsize) | (uintV)lspref(ptr,1))<<intDsize) | (uintV)lspref(ptr,0… in pFN_maxlength_digits_at() 364 …return ((((((uintV)lspref(ptr,3)<<intDsize) | (uintV)lspref(ptr,2))<<intDsize) | (uintV)lspref(ptr… in pFN_maxlength_digits_at() 366 …intV)lspref(ptr,4)<<intDsize) | (uintV)lspref(ptr,3))<<intDsize) | (uintV)lspref(ptr,2))<<intDsize… in pFN_maxlength_digits_at() 368 …<<intDsize) | (uintV)lspref(ptr,4))<<intDsize) | (uintV)lspref(ptr,3))<<intDsize) | (uintV)lspref(… in pFN_maxlength_digits_at() 370 …intDsize) | (uintV)lspref(ptr,5))<<intDsize) | (uintV)lspref(ptr,4))<<intDsize) | (uintV)lspref(pt… in pFN_maxlength_digits_at() 372 …intDsize) | (uintV)lspref(ptr,6))<<intDsize) | (uintV)lspref(ptr,5))<<intDsize) | (uintV)lspref(pt… in pFN_maxlength_digits_at() [all …]
|
/dports/math/cln/cln-1.3.6/src/base/digitseq/ |
H A D | cl_DS_trandom.cc | 26 while (bit_pos < intDsize*len) in testrandom_UDS() 29 var uintL n_bits = (ran >> 1) % intDsize + 1; // number of bits in testrandom_UDS() 32 if (bit_pos + n_bits > intDsize*len) in testrandom_UDS() 33 { n_bits = intDsize*len - bit_pos; } in testrandom_UDS() 34 if (bit_pos / intDsize == (bit_pos + n_bits - 1) / intDsize) in testrandom_UDS() 36 lspref(ptr,bit_pos/intDsize) |= (((uintD)1 << n_bits) - 1) << (bit_pos%intDsize); in testrandom_UDS() 40 lspref(ptr,bit_pos/intDsize) |= ((uintD)(-1) << (bit_pos%intDsize)); in testrandom_UDS() 41 lspref(ptr,bit_pos/intDsize+1) |= (((uintD)1 << ((bit_pos+n_bits)%intDsize)) - 1); in testrandom_UDS()
|
/dports/math/cln/cln-1.3.6/src/integer/bitwise/ |
H A D | cl_I_ash_I.cc | 47 if (len > ceiling(log2_intDsize+intCsize+1,intDsize)) in ash() 54 #if (log2_intDsize+intCsize > intDsize) in ash() 56 …<= i && i <= ceiling(log2_intDsize+intCsize+1,intDsize) && (i == ceiling(log2_intDsize+intCsize+1,… in ash() 70 k = k << (intDsize-log2_intDsize); in ash() 77 i = lspref(arrayLSDptr(bn->data,len),0) % intDsize; in ash() 81 i = y_%intDsize; in ash() 82 k = floor(y_,intDsize); in ash() 131 #if (log2_intDsize+intCsize > intDsize) in ash() 147 k = k << (intDsize-log2_intDsize); in ash() 161 i = y_%intDsize; in ash() [all …]
|
/dports/math/cln/cln-1.3.6/src/vector/ |
H A D | cl_GV_I.cc | 163 if (m == intDsize) { \ 192 srcindex = srcindex%intDsize; in bits_copy() 193 destindex = destindex%intDsize; in bits_copy() 205 count -= intDsize-srcindex; in bits_copy() 209 count = floor(count,intDsize); in bits_copy() 229 count -= intDsize-destindex; in bits_copy() 237 i += intDsize; in bits_copy() 242 count = floor(count,intDsize); in bits_copy() 290 index = index%intDsize; in bits1_set_element() 411 #if (intDsize==32) in bits32_element() [all …]
|
/dports/math/cln/cln-1.3.6/src/integer/misc/ |
H A D | cl_I_eqhashcode.cc | 48 #if (intDsize==64) in equal_hashcode() 66 var sintC exp = len * intDsize; in equal_hashcode() 82 if (len >= 64/intDsize) { in equal_hashcode() 85 } elif (len > 32/intDsize) { in equal_hashcode() 87 msd2 = get_max32_Dptr(intDsize*len-32, MSDptr mspop 32/intDsize) in equal_hashcode() 88 << (64-intDsize*len); in equal_hashcode() 89 } elif ((32/intDsize == 1) || (len == 32/intDsize)) { in equal_hashcode() 93 msd = get_max32_Dptr(intDsize*len,MSDptr) << (32-intDsize*len); in equal_hashcode() 101 if ((len <= 64/intDsize) in equal_hashcode() 102 || !test_loop_msp(MSDptr mspop 64/intDsize, len - 64/intDsize) in equal_hashcode() [all …]
|
/dports/math/cln/cln-1.3.6/src/float/lfloat/elem/ |
H A D | cl_LF_1plus.cc | 60 if (expdiff >= intDsize * len + 2) // e1-e2 >= 16n+2 ? in LF_LF_plus_LF() 64 var uintL i = floor(expdiff,intDsize); // e1-e2 div 16 (>=0, <=n) in LF_LF_plus_LF() 65 var uintL j = expdiff % intDsize; // e1-e2 mod 16 (>=0, <16) in LF_LF_plus_LF() 84 { if ((rounding_bits & (bit(intDsize-3)-1)) ==0) in LF_LF_plus_LF() 89 { rounding_bits |= bit(intDsize-3); // Rundungsbit -3 setzen in LF_LF_plus_LF() 90 rounding_bits &= bitm(intDsize)-bit(intDsize-3); // andere Bits löschen in LF_LF_plus_LF() 105 { rounding_bits |= bit(intDsize-3); // Rundungsbit -3 setzen in LF_LF_plus_LF() 106 rounding_bits &= bitm(intDsize)-bit(intDsize-3); // andere Bits löschen in LF_LF_plus_LF() 174 k = intDsize*k; in LF_LF_plus_LF() 191 integerlengthD(mspref(y_mantMSDptr,0), s = intDsize - ); in LF_LF_plus_LF() [all …]
|
/dports/math/cln/cln-1.3.6/src/float/transcendental/ |
H A D | cl_F_exp1_var.h | 3 #if (intDsize==8) 6 #if (intDsize==16) 9 #if (intDsize==32) 12 #if (intDsize==64) 16 #if (intDsize==8) 19 #if (intDsize==16) 22 #if (intDsize==32) 25 #if (intDsize==64)
|
H A D | cl_F_eulerconst_var.h | 3 #if (intDsize==8) 6 #if (intDsize==16) 9 #if (intDsize==32) 12 #if (intDsize==64) 16 #if (intDsize==8) 19 #if (intDsize==16) 22 #if (intDsize==32) 25 #if (intDsize==64)
|
H A D | cl_F_ln2_var.h | 3 #if (intDsize==8) 6 #if (intDsize==16) 9 #if (intDsize==32) 12 #if (intDsize==64) 16 #if (intDsize==8) 19 #if (intDsize==16) 22 #if (intDsize==32) 25 #if (intDsize==64)
|
H A D | cl_F_catalanconst_var.h | 3 #if (intDsize==8) 6 #if (intDsize==16) 9 #if (intDsize==32) 12 #if (intDsize==64) 16 #if (intDsize==8) 19 #if (intDsize==16) 22 #if (intDsize==32) 25 #if (intDsize==64)
|
H A D | cl_F_ln10_var.h | 3 #if (intDsize==8) 6 #if (intDsize==16) 9 #if (intDsize==32) 12 #if (intDsize==64) 16 #if (intDsize==8) 19 #if (intDsize==16) 22 #if (intDsize==32) 25 #if (intDsize==64)
|