aboutsummaryrefslogtreecommitdiff
path: root/math/gen-libm-test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'math/gen-libm-test.pl')
-rwxr-xr-xmath/gen-libm-test.pl28
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;