Home
last modified time | relevance | path

Searched refs:uintDD (Results 1 – 25 of 25) sorted by relevance

/dports/math/cln/cln-1.3.6/src/integer/gcd/
H A Dcl_I_gcd_aux2.cc22 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 Dcl_I_gcd.cc378 {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 Dcl_I_xgcd.cc321 {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 Dcl_D.h43 #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 Dcl_DS.h950 { 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 Dcl_DS_sqrt.cc210 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 Dcl_DS_recip.cc116 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 Dcl_DS_mul.cc104 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 Dcl_DS_div.cc324 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 Dcl_DS_mul_fftcs.h873 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 Dcl_DS_mul_fftc.h817 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 Dcl_DS_mul_fftr.h860 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 Dcl_DS_mul_fftp3.h175 { 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 Dcl_DS_mul_fftp3m.h322 { 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 Darilev1.d12 # 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 Dintsqrt.d225 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 Dintprint.d195 divuD((uintDD)rest,base,rest=,d=); in UDS_to_digits()
H A Dintgcd.d658 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 Dintdiv.d173 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 Dintmal.d86 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 Dlispbibl.d1883 typedef unsigned_int_with_n_bits(intDDsize) uintDD; typedef
H A DChangeLog62350 (sintD, uintD, sintDD, uintDD, tint, aint, saint, cint): Likewise.
/dports/math/cln/cln-1.3.6/include/cln/
H A Dtypes.h165 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 Dcl_I_to_digits.cc145 divuD((uintDD)rest,base,rest=,d=); in I_to_digits()
/dports/math/cln/cln-1.3.6/src/integer/
H A Dcl_I.h669 extern void partial_gcd (uintDD z1, uintDD z2, partial_gcd_result* erg);