aboutsummaryrefslogtreecommitdiff
path: root/conform
diff options
context:
space:
mode:
authorJoseph Myers <joseph@codesourcery.com>2012-04-28 01:40:38 -0700
committerJoseph Myers <joseph@codesourcery.com>2012-04-28 01:42:06 -0700
commit0749ff8b81354a8b7a264f4ccf486d473e104bf6 (patch)
tree0a4ef6d9f797d36f789c22e984d726f6601c20ec /conform
parent8dbd5d7b9074b9312f68c24c12a3fae7e93111fe (diff)
downloadglibc-0749ff8b81354a8b7a264f4ccf486d473e104bf6.zip
glibc-0749ff8b81354a8b7a264f4ccf486d473e104bf6.tar.gz
glibc-0749ff8b81354a8b7a264f4ccf486d473e104bf6.tar.bz2
conformtest: Remove duplicate typed-constant handling.
Diffstat (limited to 'conform')
-rw-r--r--conform/conformtest.pl42
1 files changed, 0 insertions, 42 deletions
diff --git a/conform/conformtest.pl b/conform/conformtest.pl
index 2962e55..8b95186 100644
--- a/conform/conformtest.pl
+++ b/conform/conformtest.pl
@@ -620,48 +620,6 @@ while ($#headers >= 0) {
$res = runtest ($fnamebase, "Testing for value of symbol $symbol",
"Symbol \"$symbol\" has not the right value.", $res);
}
- } elsif (/^typed-constant *([a-zA-Z0-9_]*) *({([^}]*)}|([^ ]*)) *([A-Za-z0-9_-]*)?/) {
- my($const) = $1;
- my($type) = "$3$4";
- my($value) = $5;
- my($res) = $missing;
-
- # Remember that this name is allowed.
- push @allow, $const;
-
- # Generate a program to test for the availability of this constant.
- open (TESTFILE, ">$fnamebase.c");
- print TESTFILE "$prepend";
- print TESTFILE "#include <$h>\n";
- print TESTFILE "__typeof__ ($const) a = $const;\n";
- close (TESTFILE);
-
- $res = compiletest ($fnamebase, "Testing for constant $const",
- "Constant \"$const\" not available.", $res, 0);
-
- # Test the types of the members.
- open (TESTFILE, ">$fnamebase.c");
- print TESTFILE "$prepend";
- print TESTFILE "#include <$h>\n";
- print TESTFILE "__typeof__ (($type) 0) a;\n";
- print TESTFILE "extern __typeof__ ($const) a;\n";
- close (TESTFILE);
-
- compiletest ($fnamebase, "Testing for type of constant $const",
- "Constant \"$const\" does not have the correct type.",
- $res, 0);
-
- if ($value ne "") {
- # Generate a program to test for the value of this constant.
- open (TESTFILE, ">$fnamebase.c");
- print TESTFILE "$prepend";
- print TESTFILE "#include <$h>\n";
- print TESTFILE "int main (void) { return $const != $value; }\n";
- close (TESTFILE);
-
- $res = runtest ($fnamebase, "Testing for value of constant $const",
- "Constant \"$const\" has not the right value.", $res);
- }
} elsif (/^optional-type *({([^}]*)|([a-zA-Z0-9_]*))/) {
my($type) = "$2$3";
my($maybe_opaque) = 0;