x-cvsweb-markup(60)

软件浮点数计算功能

                                              gen_special_double(j));
                }
                break;

              case 0:
                if (ac < 7) abort();
                test_double_arith(t, r, build_double(av[1], av[2], av[3]),
                                  build_double(av[4], av[5], av[6]));
                break;
            }
        }
        break;

      case 'c':
        switch (*(*av)++)
        {
          case 'n':
            {
                int count = (ac > 1 ? atoi(av[1]) : 100);
                while (count--)
                    test_float_double_conv(rand_float());
            }
            break;

          case 's':
            {
                int i;
                for (i = 0; i < NSPECIALS; i++)
                    test_float_double_conv(gen_special_float(i));
            }
            break;

          case 0:
            if (ac < 4) abort();
            test_float_double_conv(build_float(av[1], av[2], av[3]));
            break;
        }
        break;

      case 'C':
        switch (*(*av)++)
        {
          case 'n':
            {
                int count = (ac > 1 ? atoi(av[1]) : 100);
                while (count--)
                    test_double_float_conv(rand_double());
            }
            break;

          case 's':
            {
                int i;
                for (i = 0; i < NSPECIALS; i++)
                    test_double_float_conv(gen_special_double(i));
            }
            break;

          case 0:
            if (ac < 4) abort();
            test_double_float_conv(build_double(av[1], av[2], av[3]));
            break;
        }
        break;

      case 'i':
        switch (*(*av)++)
        {
          case 'n':
            {
                int count = (ac > 1 ? atoi(av[1]) : 100);
                while (count--)
                    test_int_float_conv(lrand48() << 1);
            }
            break;

          case 0:
            if (ac < 2) abort();
            test_int_float_conv(strtol(av[1], 0, 0));
            break;
        }
        break;

      case 'I':
        switch (*(*av)++)
        {
          case 'n':
            {
                int count = (ac > 1 ? atoi(av[1]) : 100);
                while (count--)
                    test_int_double_conv(lrand48() << 1);
            }
            break;

          case 0:
            if (ac < 2) abort();
            test_int_double_conv(strtol(av[1], 0, 0));
            break;
        }
        break;

      case 'f':
        switch (*(*av)++)
        {
          case 'n':
            {
                int count = (ac > 1 ? atoi(av[1]) : 100);
                while (count--)
                    test_float_int_conv(rand_float());
            }
            break;

          case 's':
            {
                int i;
                for (i = 0; i < NSPECIALS; i++)
                    test_float_int_conv(gen_special_float(i));
            }
            break;

          case 0:
            if (ac < 4) abort();
            test_float_int_conv(build_float(av[1], av[2], av[3]));
            break;
        }
        break;

      case 'F':
        switch (*(*av)++)
        {
          case 'n':
            {
                int count = (ac > 1 ? atoi(av[1]) : 100);
                while (count--)
                    test_double_int_conv(rand_double());
            }
            break;

          case 's':
            {
                int i;
                for (i = 0; i < NSPECIALS; i++)
                    test_double_int_conv(gen_special_double(i));
            }
            break;

          case 0:
            if (ac < 4) abort();
            test_double_int_conv(build_double(av[1], av[2], av[3]));
            break;
        }
        break;

        {
            int (*r)(float, float);
            int (*t)(float, float);
            int (*c)(int);

            do {
              case 'e': r = r_eqsf2; t = __eqsf2; c = eq0; break;
              case 'n': r = r_nesf2; t = __nesf2; c = ne0; break;
              case 'l':
                switch (*(*av)++)
                {
                  case 'e': r = r_lesf2; t = __lesf2; c = le0; break;
                  case 't': r = r_ltsf2; t = __ltsf2; c = lt0; break;
                }
                break;
              case 'g':
                switch (*(*av)++)
                {
                  case 'e': r = r_gesf2; t = __gesf2; c = ge0; break;
                  case 't': r = r_gtsf2; t = __gtsf2; c = gt0; break;
                }
                break;
            } while (0);

            switch (*(*av)++)
            {
              case 'n':
                {
                    int count = (ac > 1 ? atoi(av[1]) : 100);
                    while (count--)
                        test_float_cmp(t, r, c, rand_float(), rand_float());
                }
                break;

              case 's':
                {
                    int i, j;
                    for (i = 0; i < NSPECIALS; i++)
                        for (j = 0; j < NSPECIALS; j++)
                            test_float_cmp(t, r, c, gen_special_float(i),
                                           gen_special_float(j));
                }
                break;

              case 0:
                if (ac < 7) abort();
                test_float_cmp(t, r, c, build_float(av[1], av[2], av[3]),
                                build_float(av[4], av[5], av[6]));
                break;
            }
        }
        break;

        {
            int (*r)(double, double);
            int (*t)(double, double);
            int (*c)(int);

            do {
              case 'E': r = r_eqdf2; t = __eqdf2; c = eq0; break;
              case 'N': r = r_nedf2; t = __nedf2; c = ne0; break;
              case 'L':
                switch (*(*av)++)
                {
                  case 'E': r = r_ledf2; t = __ledf2; c = le0; break;
                  case 'T': r = r_ltdf2; t = __ltdf2; c = lt0; break;
                }
                break;
              case 'G':
                switch (*(*av)++)
                {
                  case 'E': r = r_gedf2; t = __gedf2; c = ge0; break;
                  case 'T': r = r_gtdf2; t = __gtdf2; c = gt0; break;
                }
                break;
            } while (0);

            switch (*(*av)++)
            {
              case 'n':
                {
                    int count = (ac > 1 ? atoi(av[1]) : 100);
                    while (count--)
                        test_double_cmp(t, r, c, rand_double(), rand_double());
                }
                break;

              case 's':
                {
                    int i, j;
                    for (i = 0; i < NSPECIALS; i++)
                        for (j = 0; j < NSPECIALS; j++)
                            test_double_cmp(t, r, c, gen_special_double(i),
                                            gen_special_double(j));
                }
                break;

              case 0:
                if (ac < 7) abort();
                test_double_cmp(t, r, c, build_double(av[1], av[2], av[3]),
                                build_double(av[4], av[5], av[6]));
                break;
            }
        }
        break;

      default:
        abort();
    }

    return 0;
}
</PRE>