diff options
| author | Linus Nordberg <linus@nordberg.se> | 2000-04-08 11:08:39 +0200 |
|---|---|---|
| committer | Linus Nordberg <linus@nordberg.se> | 2000-04-08 11:08:39 +0200 |
| commit | 01a0cc9bfdc9a77f0b8f444e81f8582154f4eebf (patch) | |
| tree | 436a75087d375aae9ca7a0ec1e5debac98d1153e /tests/rand | |
| parent | 285dd258de800e70e6220a8735add8a2f055cb18 (diff) | |
| download | gmp-01a0cc9bfdc9a77f0b8f444e81f8582154f4eebf.tar.gz | |
*** empty log message ***
Diffstat (limited to 'tests/rand')
| -rw-r--r-- | tests/rand/gen.c | 20 | ||||
| -rw-r--r-- | tests/rand/stat.c | 4 |
2 files changed, 8 insertions, 16 deletions
diff --git a/tests/rand/gen.c b/tests/rand/gen.c index f19f41c76..2ace88706 100644 --- a/tests/rand/gen.c +++ b/tests/rand/gen.c @@ -96,6 +96,7 @@ int main (argc, argv) mpf_init (f1); mpz_init (z1); mpz_init (z_seed); + mpz_init_set_ui (z_mmax, 0); while ((c = getopt (argc, argv, "a:bc:C:f:g:hm:n:ps:z:x:")) != -1) @@ -173,7 +174,7 @@ int main (argc, argv) break; case 'm': /* max for mpz_urandomm() */ - if (mpz_init_set_str (z_mmax, optarg, 0)) + if (mpz_set_str (z_mmax, optarg, 0)) { fprintf (stderr, "gen: bad max value: %s\n", optarg); exit (1); @@ -345,7 +346,7 @@ int main (argc, argv) break; case RFUNC_mpf_urandomb: - mpf_urandomb (f1, s, 0); + mpf_urandomb (f1, s); if (do_exclude) if (mpf_cmp (f1, f_xf) >= 0 && mpf_cmp (f1, f_xt) <= 0) break; @@ -419,16 +420,5 @@ int main (argc, argv) return 0; } -void -debug_foo() -{ - if (0) - { - mpz_dump (0); - mpf_dump (0); - } -} - - - - +static void *debug_dummyz = mpz_dump; +static void *debug_dummyf = mpf_dump; diff --git a/tests/rand/stat.c b/tests/rand/stat.c index dae74c250..5cf60b9b4 100644 --- a/tests/rand/stat.c +++ b/tests/rand/stat.c @@ -360,11 +360,13 @@ main (argc, argv) if (n % l1runs) printf (" (discarding %ld entr%s)", n % l1runs, n % l1runs == 1 ? "y" : "ies"); - puts (""); + puts ("."); n = l1runs; } +#ifndef DONT_FFREQ f_freq (l1runs, l2runs, fvec, n); +#endif #ifdef DO_ZFREQ z_freq (l1runs, l2runs, zvec, n, mpz_get_ui (z_imax)); #endif |