/haiku-buildtools/gcc/gmp/mpz/ |
H A D | aorsmul_i.c | 63 mp_ptr wp; local 79 wp = PTR (w); 80 cy = mpn_mul_1 (wp, PTR(x), xsize, y); 81 wp[xsize] = cy; 92 wp = PTR (w); 100 cy = mpn_addmul_1 (wp, xp, min_size, y); 101 wp += min_size; 107 cy = mpn_mul_1c (wp, xp, dsize, y, cy); 111 cy = mpn_add_1 (wp, wp, dsiz [all...] |
H A D | cfdiv_q_2exp.c | 35 mp_ptr wp; local 62 wp = PTR(w); 66 round |= rmask & mpn_rshift (wp, up + limb_cnt, wsize, cnt); 67 wsize -= (wp[wsize - 1] == 0); 70 MPN_COPY_INCR (wp, up + limb_cnt, wsize); 77 cy = mpn_add_1 (wp, wp, wsize, CNST_LIMB(1)); 78 wp[wsize] = cy; 84 wp[0] = 1;
|
H A D | set.c | 39 mp_ptr wp, up; local 48 wp = w->_mp_d; 51 MPN_COPY (wp, up, size);
|
H A D | cfdiv_r_2exp.c | 38 mp_ptr wp; local 65 wp = PTR(w); 71 wp = PTR(w); 72 MPN_COPY (wp, up, i); 108 wp = PTR(w); 112 mpn_com (wp, up, i); 114 wp[i] = GMP_NUMB_MAX; 118 MPN_INCR_U (wp, limb_cnt+1, CNST_LIMB(1)); 124 high = wp[limb_cnt]; 126 wp[limb_cn [all...] |
H A D | aorsmul.c | 44 mp_ptr wp, tp; local 80 wp = PTR(w); 86 high = mpn_mul (wp, PTR(x),xsize, PTR(y),ysize); 100 mp_srcptr up = wp; 107 tp = wp; 113 c = mpn_add (wp, up,usize, tp,tsize); 114 wp[wsize] = c; 119 mp_srcptr up = wp; 126 tp = wp; 133 ASSERT_NOCARRY (mpn_sub (wp, u [all...] |
/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | fmt_cache_3.f90 | 9 integer, parameter, private :: wp = kind(0.0) variable in module:hsl_mc73_single 32 real (kind = wp) :: tol 33 real (kind = wp) :: tol1 34 real (kind = wp) :: rtol 40 real (kind = wp), intent (in) :: tol,tol1,rtol 67 integer, parameter :: wp = kind(0.0) variable in program:test
|
H A D | whole_file_33.f90 | 16 USE la_precision, ONLY: wp => dp 26 USE la_precision, ONLY: wp => dp
|
H A D | minmax_char_1.f90 | 6 character(len=6), parameter :: tp = "crunch", wp = "flunch" variable in program:test 46 if (.not. equal(min(u,v,wp), "az ")) call abort 47 if (.not. equal(max(u,v,wp), "flunch")) call abort
|
/haiku-buildtools/gcc/gmp/tune/ |
H A D | speed-ext.c | 74 wp,size is set to (xp,size + yp,size) / 2. The return value is the 78 mean_calls (mp_ptr wp, mp_srcptr xp, mp_srcptr yp, mp_size_t size) argument 84 c = mpn_add_n (wp, xp, yp, size); 85 ret = mpn_rshift (wp, wp, size, 1) >> (GMP_LIMB_BITS-1); 86 wp[size-1] |= (c << (GMP_LIMB_BITS-1)); 96 mean_open (mp_ptr wp, mp_srcptr xp, mp_srcptr yp, mp_size_t size) argument 122 wp[i-1] = RSHIFT (w, wprev); 126 wp[i-1] = RSHIFT (c, wprev); 137 mean_open2 (mp_ptr wp, mp_srcpt argument [all...] |
H A D | speed.h | 107 mp_size_t align_wp; /* intended alignment of wp */ 554 mp_ptr wp; \ 562 SPEED_TMP_ALLOC_LIMBS (wp, s->size, s->align_wp); \ 565 speed_operand_dst (s, wp, s->size); \ 571 function (wp, s->xp, s->size); \ 581 mp_ptr wp; \ 589 SPEED_TMP_ALLOC_LIMBS (wp, s->size, s->align_wp); \ 592 speed_operand_dst (s, wp, s->size); \ 598 function (wp, s->xp, s->size, 0); \ 610 mp_ptr wp; \ [all...] |
H A D | common.c | 959 SPEED_ROUTINE_MPN_BINARY_N_CALL (mpn_and_n (wp, s->xp, s->yp, s->size)); 964 SPEED_ROUTINE_MPN_BINARY_N_CALL (mpn_andn_n (wp, s->xp, s->yp, s->size)); 969 SPEED_ROUTINE_MPN_BINARY_N_CALL (mpn_nand_n (wp, s->xp, s->yp, s->size)); 974 SPEED_ROUTINE_MPN_BINARY_N_CALL (mpn_ior_n (wp, s->xp, s->yp, s->size)); 979 SPEED_ROUTINE_MPN_BINARY_N_CALL (mpn_iorn_n (wp, s->xp, s->yp, s->size)); 984 SPEED_ROUTINE_MPN_BINARY_N_CALL (mpn_nior_n (wp, s->xp, s->yp, s->size)); 989 SPEED_ROUTINE_MPN_BINARY_N_CALL (mpn_xor_n (wp, s->xp, s->yp, s->size)); 994 SPEED_ROUTINE_MPN_BINARY_N_CALL (mpn_xnor_n (wp, s->xp, s->yp, s->size)); 1011 SPEED_ROUTINE_MPN_SQR_CALL (mpn_mul_n (wp, s->xp, s->xp, s->size)); 1145 (mpn_nussbaumer_mul (wp, 1327 mp_ptr wp; local 1372 mp_ptr wp; local 1583 mp_ptr wp; local 1605 mp_ptr wp; local [all...] |
/haiku-buildtools/gcc/gmp/tests/mpf/ |
H A D | t-mul_ui.c | 31 mp_ptr wp; local 40 wp = refmpn_malloc_limbs (usize + 1); 41 wp[usize] = mpn_mul_1 (wp, PTR(u), usize, (mp_limb_t) v); 43 PTR(want) = wp; 57 free (wp);
|
/haiku-buildtools/gcc/gmp/mpn/generic/ |
H A D | rootrem.c | 91 mp_ptr sp, wp; local 96 wp = TMP_ALLOC_LIMBS (wn); /* will contain the padded input */ 99 MPN_COPY (wp + k, up, un); 100 MPN_ZERO (wp, k); 101 rn = mpn_rootrem_internal (sp, NULL, wp, wn, k, 1); 122 mp_ptr qp, rp, sp, wp, scratch; local 137 /* qp and wp need enough space to store S'^k where S' is an approximate 158 wp = TMP_ALLOC_LIMBS (un + EXTRA); /* will contain S^(k-1), k*S^(k-1), 220 wp[0] = 1; /* {sp,sn}^(k-1) = 1 */ 228 {wp, w [all...] |
H A D | divexact.c | 41 mp_ptr tp, wp; local 78 wp = TMP_ALLOC_LIMBS (qn + 1); 79 mpn_rshift (wp, np, qn + 1, shift); 83 wp = TMP_ALLOC_LIMBS (qn); 84 MPN_COPY (wp, np, qn); 91 mpn_bdiv_q (qp, wp, qn, dp, dn, tp);
|
/haiku-buildtools/gcc/mpfr/src/ |
H A D | rec_sqrt.c | 442 mpfr_prec_t rp, up, wp; local 495 wp = rp + 11; /* initial working precision */ 511 wp = rp + 11; 512 if (wp < rn * GMP_NUMB_BITS) 513 wp = rn * GMP_NUMB_BITS; 517 wn = LIMB_SIZE(wp); 522 mpfr_mpn_rec_sqrt (x, wp, MPFR_MANT(u), up, s); 526 if (MPFR_LIKELY (mpfr_round_p (x, wn, wp - (wp < up), 535 mpfr_prec_t pl = wn * GMP_NUMB_BITS - wp; [all...] |
/haiku-buildtools/gcc/gmp/tests/ |
H A D | tests.h | 180 mp_limb_t refmpn_add_n __GMP_PROTO ((mp_ptr wp, mp_srcptr xp, mp_srcptr yp, 182 mp_limb_t refmpn_add_nc __GMP_PROTO ((mp_ptr wp, mp_srcptr xp, mp_srcptr yp, 184 mp_limb_t refmpn_addlsh1_n __GMP_PROTO ((mp_ptr wp, mp_srcptr xp, mp_srcptr yp, 186 mp_limb_t refmpn_addlsh2_n __GMP_PROTO ((mp_ptr wp, mp_srcptr xp, mp_srcptr yp, 188 mp_limb_t refmpn_addlsh_n __GMP_PROTO ((mp_ptr wp, mp_srcptr xp, mp_srcptr yp, 190 mp_limb_t refmpn_addmul_1 __GMP_PROTO ((mp_ptr wp, mp_srcptr xp, mp_size_t size, 192 mp_limb_t refmpn_addmul_1c __GMP_PROTO ((mp_ptr wp, mp_srcptr xp, mp_size_t size, 216 void refmpn_and_n __GMP_PROTO ((mp_ptr wp, mp_srcptr xp, mp_srcptr yp, 218 void refmpn_andn_n __GMP_PROTO ((mp_ptr wp, mp_srcptr xp, mp_srcptr yp, 234 void refmpn_copy_extend __GMP_PROTO ((mp_ptr wp, mp_size_ [all...] |
/haiku-buildtools/gcc/gmp/tests/mpz/ |
H A D | t-mul.c | 147 mp_ptr wp; local 165 wp = __GMP_ALLOCATE_FUNC_LIMBS (talloc); 168 refmpn_mul (wp, up, usize, vp, vsize); 170 refmpn_mul (wp, vp, vsize, up, usize); 172 wsize -= wp[wsize - 1] == 0; 174 MPN_COPY (PTR(w), wp, wsize); local 177 __GMP_FREE_FUNC_LIMBS (wp, talloc);
|
/haiku-buildtools/gcc/mpfr/tune/ |
H A D | speed.c | 50 mpfr_limb_ptr wp; \ 65 MPFR_TMP_INIT (wp, w, s->size, size); \ 68 speed_operand_dst (s, wp, size); \ 84 mpfr_limb_ptr wp; \ 102 MPFR_TMP_INIT (wp, w, s->size, size); \ 106 speed_operand_dst (s, wp, size); \
|
/haiku-buildtools/gcc/gmp/mpn/x86/pentium/ |
H A D | mul_basecase.asm | 26 C void mpn_mul_basecase (mp_ptr wp, 54 movl %eax,(%edi) C store to wp[0] 64 leal (%edi,%eax,4),%edi C offset wp by xsize 81 addl $4,%edi C increment wp 124 movl %edx,4(%edi) C store to wp[1]
|
/haiku-buildtools/gcc/gmp/mpn/x86/p6/ |
H A D | mul_basecase.asm | 35 C void mpn_mul_basecase (mp_ptr wp, 106 C ebx wp 138 C ebx wp 151 movl %edx, %edi C carry, for wp[1] 166 movl %edx, %edi C carry, for wp[2] 174 movl %edx, %esi C carry, for wp[3] 240 leal (%edi,%ecx,4), %edi C wp end of mul1 250 C edi wp end of mul1 287 C edi wp end of mul1 315 addl $4, %edi C next position in wp [all...] |
/haiku-buildtools/gcc/gmp/mpn/x86/k7/ |
H A D | mul_basecase.asm | 41 C void mpn_mul_basecase (mp_ptr wp, 46 C wp,xsize+ysize. 137 C ebx wp 149 movl %edx, %edi C carry, for wp[1] 164 movl %edx, %edi C carry, for wp[2] 173 movl %edx, %esi C carry, for wp[3] 232 leal (%edi,%ecx,4), %edi C wp end of mul1 242 C edi wp end of mul1 292 C edi wp end of mul1 320 addl $4, %edi C next position in wp [all...] |
/haiku-buildtools/binutils/intl/ |
H A D | l10nflist.c | 405 char *wp; 422 wp = stpcpy (retval, "iso"); 424 wp = retval; 428 *wp++ = tolower ((unsigned char) codeset[cnt]); 430 *wp++ = codeset[cnt]; 432 *wp = '\0'; 403 char *wp; local
|
/haiku-buildtools/gcc/intl/ |
H A D | l10nflist.c | 405 char *wp; 422 wp = stpcpy (retval, "iso"); 424 wp = retval; 428 *wp++ = tolower ((unsigned char) codeset[cnt]); 430 *wp++ = codeset[cnt]; 432 *wp = '\0'; 403 char *wp; local
|
/haiku-buildtools/legacy/binutils/intl/ |
H A D | l10nflist.c | 363 char *wp; 380 wp = stpcpy (retval, "iso"); 382 wp = retval; 386 *wp++ = tolower (codeset[cnt]); 388 *wp++ = codeset[cnt]; 390 *wp = '\0'; 361 char *wp; local
|
/haiku-buildtools/legacy/gcc/gcc/intl/ |
H A D | l10nflist.c | 363 char *wp; 380 wp = stpcpy (retval, "iso"); 382 wp = retval; 386 *wp++ = tolower (codeset[cnt]); 388 *wp++ = codeset[cnt]; 390 *wp = '\0'; 361 char *wp; local
|