From b679a606ca4d328690f17c4c55bd45592656694b Mon Sep 17 00:00:00 2001
From: Joseph Myers <joseph@codesourcery.com>
Date: Fri, 24 May 2013 12:22:04 +0000
Subject: Make libm-test START and END into ordinary macros.

---
 math/gen-libm-test.pl | 28 ----------------------------
 1 file changed, 28 deletions(-)

(limited to 'math/gen-libm-test.pl')

diff --git a/math/gen-libm-test.pl b/math/gen-libm-test.pl
index a6004a8..cdf3eb4 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;
-- 
cgit v1.1