/dports/math/cln/cln-1.3.6/src/integer/gcd/ |
H A D | cl_I_gcd_aux2.cc | 22 static inline uintDD muluDD_unchecked(uintD q, uintDD a) in muluDD_unchecked() 29 static uintD floorDD (uintDD x, uintDD y) in floorDD() 76 void partial_gcd (uintDD z1, uintDD z2, partial_gcd_result* erg) in partial_gcd() 86 var uintDD zaehler = z1 - (uintDD)y1; in partial_gcd() 87 var uintDD nenner = z2 + (uintDD)y2; in partial_gcd() 100 if (qx > (uintDD)(~x1)) { in partial_gcd() 106 if (qy > (uintDD)(~y1)) { in partial_gcd() 130 if (z2 - (uintDD)x2 <= z1 + (uintDD)(x1-1)) goto done; in partial_gcd() 134 var uintDD zaehler = z2 - (uintDD)x2; in partial_gcd() 135 var uintDD nenner = z1 + (uintDD)x1; in partial_gcd() [all …]
|
H A D | cl_I_gcd.cc | 378 {var uintDD b_msdd = // 2 führende Digits von b in gcd() 381 : (uintDD)b_msd in gcd() 390 {var uintDD a_msdd = // 2 führende Digits von a in gcd()
|
H A D | cl_I_xgcd.cc | 321 {var uintDD b_msdd = // 2 führende Digits von b in xgcd() 324 : (uintDD)b_msd in xgcd() 333 {var uintDD a_msdd = // 2 führende Digits von a in xgcd()
|
/dports/math/cln/cln-1.3.6/src/base/digit/ |
H A D | cl_D.h | 43 #define highD(x) ((uintD)((uintDD)(x)>>intDsize)) 50 #define lowD(x) ((uintD)(uintDD)(x)) 55 #define highlowDD(x,y) (((uintDD)(uintD)(x)<<intDsize)|(uintDD)(uintD)(y)) 63 #define highlowDD_0(x) ((uintDD)(uintD)(x)<<intDsize) 77 #define muluD(arg1,arg2) ((uintDD)((uintD)(arg1)*(uintD)(arg2))) 79 #define muluD(arg1,arg2) ((uintDD)(uintD)(arg1)*(uintDD)(uintD)(arg2)) 86 #define muluD(arg1,arg2) ((uintDD)(uintD)(arg1)*(uintDD)(uintD)(arg2))
|
/dports/math/cln/cln-1.3.6/src/base/digitseq/ |
H A D | cl_DS.h | 950 { var uintDD accu = 0; in shift1left_loop_down() 976 { var uintDD accu = (uintDD)carry; in shiftleft_loop_down() 1003 { var uintDD accu = 0; in shiftleftcopy_loop_down() 1056 { var uintDD accu = 0; in shiftright_loop_up() 1192 { var uintDD carry = 0; in mulu_loop_down() 1228 { var uintDD carry = 0; in muluadd_loop_down() 1664 { var uintDD accu = 0; in shift1left_loop_up() 1690 { var uintDD accu = (uintDD)carry; in shiftleft_loop_up() 1717 { var uintDD accu = 0; in shiftleftcopy_loop_up() 1770 { var uintDD accu = 0; in shiftright_loop_down() [all …]
|
H A D | cl_DS_sqrt.cc | 210 var uintDD a_msdd = highlowDD(a_msd,a_2msd); // a[2n-1]*beta+a[2n-2] in cl_UDS_sqrt() 229 x = (uintD)(floor((uintDD)x + (uintDD)d, 2)); in cl_UDS_sqrt() 267 var uintDD a_123dd = highlowDD(a_2d,a_3d); in cl_UDS_sqrt() 303 { var uintDD b_stern_2 = muluD(b_stern,b_stern); in cl_UDS_sqrt() 304 … var uintDD a_12dd = highlowDD(lspref(a_lptr,1),lspref(a_lptr,0)); // a[2n-2j-1]*beta+a[2n-2j-2] in cl_UDS_sqrt() 305 var uintDD a_12dd_new = a_12dd - b_stern_2; in cl_UDS_sqrt()
|
H A D | cl_DS_recip.cc | 116 divuD((uintDD)(-highlowDD(x1,x2)),x1, q=,r=); in cl_UDS_recip() 117 var uintDD c = muluD(q,x2); in cl_UDS_recip()
|
H A D | cl_DS_mul.cc | 104 var uintDD prod = muluD(digit,digit); in mulu_2loop_square() 105 var uintDD accu = highlowDD(lspref(destptr,1),lspref(destptr,0)); in mulu_2loop_square() 513 var uintDD prod = muluD(digit,digit); in cl_UDS_mul_square()
|
H A D | cl_DS_div.cc | 324 var uintDD b_msdd = highlowDD(b_msd,b_2msd); // b[n-1]*beta+b[n-2] in cl_UDS_divide() 357 { var uintDD c2 = highlowDD(c1,mspref(r_MSDptr,2)); // c1*beta+r[j+n-2] in cl_UDS_divide() 358 var uintDD c3 = muluD(b_2msd,q_stern); // b[n-2] * q* in cl_UDS_divide()
|
H A D | cl_DS_mul_fftcs.h | 873 var uintDD carry0 = 0; in unfill_product() 878 var uintDD digit = (uintDD)(z[i] + (fftcs_real)0.5); in unfill_product() 1128 var uintDD cksum = muluD(checksum1,checksum2); in multiply_checksum()
|
H A D | cl_DS_mul_fftc.h | 817 var uintDD carry0 = 0; in unfill_product() 822 var uintDD digit = (uintDD)(z[i].re + (fftc_real)0.5); in unfill_product() 1078 var uintDD cksum = muluD(checksum1,checksum2); in multiply_checksum()
|
H A D | cl_DS_mul_fftr.h | 860 var uintDD carry0 = 0; in unfill_product() 865 var uintDD digit = (uintDD)(z[i] + (fftr_real)0.5); in unfill_product() 1115 var uintDD cksum = muluD(checksum1,checksum2); in multiply_checksum()
|
H A D | cl_DS_mul_fftp3.h | 175 { var uintDD c2 = highlowDD(c1,lspref(sumLSDptr,1)); in combinep3() 176 var uintDD c3 = muluD(lspref(arrayLSDptr(p123,3),1),q_stern); in combinep3()
|
H A D | cl_DS_mul_fftp3m.h | 322 { var uintDD c2 = highlowDD(c1,lspref(sumLSDptr,1)); in combinep3m() 323 var uintDD c3 = muluD(lspref(arrayLSDptr(p123,3),1),q_stern); in combinep3m()
|
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/ |
H A D | arilev1.d | 12 # uintDD,sintDD integer types for a double-digit 35 #define highD(x) ((uintD)((uintDD)(x)>>intDsize)) 44 #define lowD(x) ((uintD)(uintDD)(x)) 51 #define highlowDD(x,y) (((uintDD)(uintD)(x)<<intDsize)|(uintDD)(uintD)(y)) 61 #define highlowDD_0(x) ((uintDD)(uintD)(x)<<intDsize) 68 # (uintDD)hilo = muluD(uintD arg1, uintD arg2) 76 #define muluD(arg1,arg2) ((uintDD)(uintD)(arg1)*(uintDD)(uintD)(arg2)) 95 # divuD(uintDD x, uintD y, uintD q =, uintD r =);
|
H A D | intsqrt.d | 225 var uintDD a_msdd = highlowDD(a_msd,a_2msd); # a[2n-1]*beta+a[2n-2] in UDS_sqrt_() 246 x = (uintD)(floor((uintDD)x + (uintDD)d, 2)); in UDS_sqrt_() 287 var uintDD a_123dd = highlowDD(a_2d,a_3d); in UDS_sqrt_() 327 var uintDD b_star_2 = muluD(b_star,b_star); in UDS_sqrt_() 328 var uintDD a_12dd = highlowDD(a_lptr[-2],a_lptr[-1]); # a[2n-2j-1]*beta+a[2n-2j-2] in UDS_sqrt_() 329 var uintDD a_12dd_new = a_12dd - b_star_2; in UDS_sqrt_()
|
H A D | intprint.d | 195 divuD((uintDD)rest,base,rest=,d=); in UDS_to_digits()
|
H A D | intgcd.d | 658 var uintDD b_msdd = # 2 führende Digits von b in I_I_gcd_I() 661 : (uintDD)b_msd in I_I_gcd_I() 670 var uintDD a_msdd = # 2 führende Digits von a in I_I_gcd_I()
|
H A D | intdiv.d | 173 var uintDD b_msdd = highlowDD(b_msd,b_2msd); # b[n-1]*beta+b[n-2] 208 var uintDD c2 = highlowDD(c1,r_MSDptr[2]); # c1*beta+r[j+n-2] 209 var uintDD c3 = muluD(b_2msd,q_star); # b[n-2] * q*
|
H A D | intmal.d | 86 var uintDD prod = muluD(digit,digit); in square_2loop_down() 123 var uintDD prod = muluD(digit,digit); in square_2loop_down() 124 var uintDD accu = highlowDD(destptr[-2],destptr[-1]); in square_2loop_down()
|
H A D | lispbibl.d | 1883 typedef unsigned_int_with_n_bits(intDDsize) uintDD; typedef
|
H A D | ChangeLog | 62350 (sintD, uintD, sintDD, uintDD, tint, aint, saint, cint): Likewise.
|
/dports/math/cln/cln-1.3.6/include/cln/ |
H A D | types.h | 165 typedef uint16 uintDD; typedef 169 typedef uint32 uintDD; typedef 173 typedef uint64 uintDD; typedef
|
/dports/math/cln/cln-1.3.6/src/integer/conv/ |
H A D | cl_I_to_digits.cc | 145 divuD((uintDD)rest,base,rest=,d=); in I_to_digits()
|
/dports/math/cln/cln-1.3.6/src/integer/ |
H A D | cl_I.h | 669 extern void partial_gcd (uintDD z1, uintDD z2, partial_gcd_result* erg);
|