tests/devel/try.c

72    Make tr->size==SIZE_2 work, for the benefit of find_a which wants just 2
290 #define SRC_SIZE(n)  ((n) == 1 && tr->size2 ? size2 : size)
377 struct try_t  *tr;
1723   ((tr->carry == CARRY_BIT) ? 2                                 \
1724    : tr->carry == CARRY_3   ? 3                                 \
1725    : tr->carry == CARRY_4   ? 4                                 \
1726    : (tr->carry == CARRY_LIMB || tr->carry == CARRY_DIVISOR)    \
1740 	 (tr->carry == CARRY_DIVISOR ? carry %= divisor : 0),           \
1781   (tr->multiplier                                       \
1790   (tr->divisor                                  \
1820   (tr->overlap & OVERLAP_NONE       ? 1 \
1821    : tr->overlap & OVERLAP_NOT_SRCS ? 3 \
1822    : tr->overlap & OVERLAP_NOT_SRC2 ? 2 \
1823    : tr->dst[1]                     ? 9 \
1824    : tr->src[1]                     ? 4 \
1825    : tr->dst[0]                     ? 2 \
1890   printf ("%s %s\n", e->name, e == &ref ? tr->reference_name : choice->name);
1891   if (tr->retval)
1896       if (tr->dst[i])
1898 	  if (tr->dst_bytes[i])
1907     if (tr->src[i])
1919   if (tr->size2)
1926   if (tr->multiplier)
1928   if (tr->divisor)
1930   if (tr->shift)
1932   if (tr->carry)
1934   if (tr->msize)
1935     mpn_trace ("   multiplier_N", multiplier_N, tr->msize);
1938     if (tr->dst[i])
1945       if (tr->src[i])
1956 		    tr->overlap == OVERLAP_LOW_TO_HIGH ? "+a"
1957 		    : tr->overlap == OVERLAP_HIGH_TO_LOW ? "-a"
1962 	  if (tr->carry_sign && (carry & (1 << i)))
1968   if (tr->dst0_from_src1)
1971   if (tr->reference)
1982   if (tr->retval && ref.retval != fun.retval)
1991       switch (tr->dst_size[i]) {
2001       if (! tr->dst[i])
2004       if (tr->dst_bytes[i])
2418       switch (tr->dst_size[i]) {
2438 	d[i].size = size + tr->msize - 1;
2442 	if (tr->size2)
2472 	printf ("Unrecognised dst_size type %d\n", tr->dst_size[i]);
2489 	  if (tr->dst_bytes[i])
2499 	      if (tr->overlap == OVERLAP_LOW_TO_HIGH)
2505 	  if (tr->dst_bytes[i])
2512 	      if (tr->overlap == OVERLAP_HIGH_TO_LOW)
2530 	if (tr->overlap == OVERLAP_HIGH_TO_LOW)
2532 	else if (tr->overlap == OVERLAP_LOW_TO_HIGH)
2534 	else if (tr->size2 == SIZE_FRACTION)
2550   if (tr->reference)
2553       call (&ref, tr->reference);
2573   if (tr->divisor == DIVISOR_NORM)
2575   if (tr->divisor == DIVISOR_ODD)
2592   t_random (multiplier_N, tr->msize);
2596       if (! tr->src[i])
2602       switch (tr->data) {
2640 	    if (tr->size2)
2664       if (! tr->dst[i])
2667       if (tr->dst0_from_src1 && i==0)
2676       else if (tr->dst_bytes[i])
2690       if (! tr->src[i])
2703   if (tr->validate != NULL)
2715       (*tr->validate) ();
2720       call (&ref, tr->reference);
2739 		    (tr->size == SIZE_ALLOW_ZERO) ? 0 : 1);     \
2744   (tr->size2 == SIZE_2 ? 2                              \
2745    : tr->size2 == SIZE_FRACTION ? option_firstsize2     \
2746    : tr->size2 ?                                        \
2752   (tr->size2 == SIZE_2 ? 2                              \
2753    : tr->size2 == SIZE_FRACTION ? FRACTION_COUNT-1      \
2754    : tr->size2 ? size                                   \
2770   ((unsigned long) (tr->shift ? GMP_NUMB_BITS -1 : 1))
2786     if (tr->size2 == SIZE_FRACTION) total *= FRACTION_COUNT;
2787     else if (tr->size2)             total *= (option_lastsize+1)/2;
2795     total *= HIGH_COUNT (tr->dst[0]);
2796     total *= HIGH_COUNT (tr->dst[1]);
2797     total *= HIGH_COUNT (tr->src[0]);
2798     total *= HIGH_COUNT (tr->src[1]);
2800     total *= ALIGN_COUNT (tr->dst[0]);
2801     total *= ALIGN_COUNT (tr->dst[1]);
2802     total *= ALIGN_COUNT (tr->src[0]);
2803     total *= ALIGN_COUNT (tr->src[1]);
2822       HIGH_ITERATION(d,0, tr->dst[0])
2823       HIGH_ITERATION(d,1, tr->dst[1])
2824       HIGH_ITERATION(s,0, tr->src[0])
2825       HIGH_ITERATION(s,1, tr->src[1])
2827       ALIGN_ITERATION(d,0, tr->dst[0])
2828       ALIGN_ITERATION(d,1, tr->dst[1])
2829       ALIGN_ITERATION(s,0, tr->src[0])
2830       ALIGN_ITERATION(s,1, tr->src[1])
2859     printf ("  in reference function: %s\n", tr->reference_name);
2968 	  tr = &param[choice->type];