diff options
Diffstat (limited to 'manual/libm-err-tab.pl')
| -rwxr-xr-x | manual/libm-err-tab.pl | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/manual/libm-err-tab.pl b/manual/libm-err-tab.pl index 7ac9af2..5cd0d1c 100755 --- a/manual/libm-err-tab.pl +++ b/manual/libm-err-tab.pl @@ -104,7 +104,7 @@ sub find_files { # Parse ulps file sub parse_ulps { my ($file, $platform) = @_; - my ($test, $type, $float, $eps, $kind); + my ($test, $type, $float, $eps); # $type has the following values: # "normal": No complex variable @@ -116,10 +116,6 @@ sub parse_ulps { # ignore comments and empty lines next if /^#/; next if /^\s*$/; - if (/^Test/) { - $kind = 'test'; - next; - } if (/^Function: /) { if (/Real part of/) { s/Real part of //; @@ -131,11 +127,8 @@ sub parse_ulps { $type = 'normal'; } ($test) = ($_ =~ /^Function:\s*\"([a-zA-Z0-9_]+)\"/); - $kind = 'fct'; next; } - # Only handle maximal errors of functions - next if ($kind eq 'test'); if (/^i?(float|double|ldouble):/) { ($float, $eps) = split /\s*:\s*/,$_,2; if ($eps eq 'fail') { |