diff options
Diffstat (limited to 'math/gen-libm-test.pl')
-rwxr-xr-x | math/gen-libm-test.pl | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/math/gen-libm-test.pl b/math/gen-libm-test.pl index a6004a8e4d..cdf3eb471a 100755 --- a/math/gen-libm-test.pl +++ b/math/gen-libm-test.pl @@ -41,7 +41,6 @@ use strict; use vars qw ($input $output); use vars qw (%results); -use vars qw (@functions); use vars qw (%beautify @all_floats); use vars qw ($output_dir $ulps_file); @@ -305,37 +304,10 @@ sub generate_testfile { if (/START_DATA/) { next; } - # START (function) - if (/START/) { - my ($thisfct); - ($thisfct) = ($_ =~ /START\s*\((.*)\)/); - print OUTPUT " const char *this_func = \"$thisfct\";\n"; - print OUTPUT " init_max_error ();\n"; - next; - } # END_DATA (function) if (/END_DATA/) { next; } - # END (function) - if (/END/) { - my ($fct, $line, $type); - if (/complex/) { - s/,\s*complex\s*//; - $type = 'complex'; - } else { - $type = 'normal'; - } - ($fct) = ($_ =~ /END\s*\((.*)\)/); - if ($type eq 'complex') { - $line = " print_complex_max_error (\"$fct\");\n"; - } else { - $line = " print_max_error (\"$fct\");\n"; - } - print OUTPUT $line; - push @functions, $fct; - next; - } print OUTPUT; } close INPUT; |