diff options
author | Joseph Myers <joseph@codesourcery.com> | 2012-04-28 01:40:38 -0700 |
---|---|---|
committer | Joseph Myers <joseph@codesourcery.com> | 2012-04-28 01:42:06 -0700 |
commit | 0749ff8b81354a8b7a264f4ccf486d473e104bf6 (patch) | |
tree | 0a4ef6d9f797d36f789c22e984d726f6601c20ec /conform/conformtest.pl | |
parent | 8dbd5d7b9074b9312f68c24c12a3fae7e93111fe (diff) | |
download | glibc-0749ff8b81354a8b7a264f4ccf486d473e104bf6.tar.gz glibc-0749ff8b81354a8b7a264f4ccf486d473e104bf6.tar.xz glibc-0749ff8b81354a8b7a264f4ccf486d473e104bf6.zip |
conformtest: Remove duplicate typed-constant handling.
Diffstat (limited to 'conform/conformtest.pl')
-rw-r--r-- | conform/conformtest.pl | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/conform/conformtest.pl b/conform/conformtest.pl index 2962e5552b..8b951867cc 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; |