diff options
author | joseph <joseph@7b3dc134-2b1b-0410-93df-9e9f96275f8d> | 2013-05-18 00:12:09 +0000 |
---|---|---|
committer | joseph <joseph@7b3dc134-2b1b-0410-93df-9e9f96275f8d> | 2013-05-18 00:12:09 +0000 |
commit | f9b341f7c8c64a0df8707b3cf29b425a25a52d12 (patch) | |
tree | 21d8ab56f46e274f911d3af1e34d578b70878f3d /libc/math/gen-libm-test.pl | |
parent | 037ebec6461ad978f9a2f44ca49f1d7d7b858e2d (diff) |
* configure.in, math/Makefile, math/gen-libm-test.pl,
math/libm-test.inc, option-groups.def, option-groups.defaults,
sysdeps/ieee754/ldbl-128/s_erfl.c,
sysdeps/ieee754/ldbl-128/s_log1pl.c,
sysdeps/ieee754/ldbl-128ibm/s_erfl.c,
sysdeps/ieee754/ldbl-128ibm/s_log1pl.c,
sysdeps/ieee754/ldbl-96/s_erfl.c,
sysdeps/ieee754/ldbl-opt/s_atan.c,
sysdeps/ieee754/ldbl-opt/s_sin.c,
sysdeps/ieee754/ldbl-opt/s_tan.c: Revert OPTION_EGLIBC_LIBM_BIG
support.
* configure: Regenerated.
* math/test-dbl-wrap.c, sysdeps/ieee754/dbl-wrap,
sysdeps/ieee754/ldbl-wrap: Remove.
git-svn-id: svn://svn.eglibc.org/trunk@23097 7b3dc134-2b1b-0410-93df-9e9f96275f8d
Diffstat (limited to 'libc/math/gen-libm-test.pl')
-rwxr-xr-x | libc/math/gen-libm-test.pl | 24 |
1 files changed, 9 insertions, 15 deletions
diff --git a/libc/math/gen-libm-test.pl b/libc/math/gen-libm-test.pl index d422770c4..aa60d9dba 100755 --- a/libc/math/gen-libm-test.pl +++ b/libc/math/gen-libm-test.pl @@ -47,7 +47,7 @@ use vars qw (%results); use vars qw (@tests @functions); use vars qw ($count); use vars qw (%beautify @all_floats); -use vars qw ($output_dir $ulps_file $default_ulp); +use vars qw ($output_dir $ulps_file); # all_floats is sorted and contains all recognised float types @all_floats = ('double', 'float', 'idouble', @@ -85,12 +85,11 @@ use vars qw ($output_dir $ulps_file $default_ulp); # h: help # o: output-directory # n: generate new ulps file -use vars qw($opt_u $opt_h $opt_o $opt_n $opt_d); -getopts('u:o:d:nh'); +use vars qw($opt_u $opt_h $opt_o $opt_n); +getopts('u:o:nh'); $ulps_file = 'libm-test-ulps'; $output_dir = ''; -$default_ulp = '0'; if ($opt_h) { print "Usage: gen-libm-test.pl [OPTIONS]\n"; @@ -98,13 +97,11 @@ if ($opt_h) { print " -o DIR directory where generated files will be placed\n"; print " -n only generate sorted file NewUlps from libm-test-ulps\n"; print " -u FILE input file with ulps\n"; - print " -d NUM set the default value for ulp to NUM\n"; exit 0; } $ulps_file = $opt_u if ($opt_u); $output_dir = $opt_o if ($opt_o); -$default_ulp = $opt_d if ($opt_d); $input = "libm-test.inc"; $output = "${output_dir}libm-test.c"; @@ -458,11 +455,7 @@ sub generate_testfile { if (exists $results{$fct}{'has_ulps'}) { $line .= "DELTA$fct"; } else { - if ($type eq 'complex') { - $line .= "BUILD_COMPLEX ($default_ulp, $default_ulp)"; - } else { - $line .= "$default_ulp"; - } + $line .= '0'; } if (exists $results{$fct}{'has_fails'}) { $line .= ", FAIL$fct"; @@ -641,21 +634,22 @@ sub get_ulps { if ($type eq 'complex') { my ($res); + # Return 0 instead of BUILD_COMPLEX (0,0) if (!exists $results{$test}{'real'}{'ulp'}{$float} && !exists $results{$test}{'imag'}{'ulp'}{$float}) { - return "BUILD_COMPLEX ($default_ulp, $default_ulp)"; + return "0"; } $res = 'BUILD_COMPLEX ('; $res .= (exists $results{$test}{'real'}{'ulp'}{$float} - ? $results{$test}{'real'}{'ulp'}{$float} : "$default_ulp"); + ? $results{$test}{'real'}{'ulp'}{$float} : "0"); $res .= ', '; $res .= (exists $results{$test}{'imag'}{'ulp'}{$float} - ? $results{$test}{'imag'}{'ulp'}{$float} : "$default_ulp"); + ? $results{$test}{'imag'}{'ulp'}{$float} : "0"); $res .= ')'; return $res; } return (exists $results{$test}{'normal'}{'ulp'}{$float} - ? $results{$test}{'normal'}{'ulp'}{$float} : "$default_ulp"); + ? $results{$test}{'normal'}{'ulp'}{$float} : "0"); } sub get_failure { |