diff options
| author | Ulrich Drepper <drepper@redhat.com> | 2001-01-27 19:45:21 +0000 |
|---|---|---|
| committer | Ulrich Drepper <drepper@redhat.com> | 2001-01-27 19:45:21 +0000 |
| commit | 257abbe2e31a500ee871075e3c8c486c4289c375 (patch) | |
| tree | c45d1987ab8ae0c57ee11d3d6a11b8be00fcecbf /conform | |
| parent | 2ff458ebe647b5aba45d3b8f49ea76d2d993d5db (diff) | |
| download | glibc-257abbe2e31a500ee871075e3c8c486c4289c375.tar.gz glibc-257abbe2e31a500ee871075e3c8c486c4289c375.tar.xz glibc-257abbe2e31a500ee871075e3c8c486c4289c375.zip | |
Update.
* conform/data/sys/shm.h-data: SHMLBA is not required to by a constant. * conform/conformtest.pl: Implement handling of symbol.
Diffstat (limited to 'conform')
| -rw-r--r-- | conform/conformtest.pl | 31 | ||||
| -rw-r--r-- | conform/data/sys/shm.h-data | 2 |
2 files changed, 32 insertions, 1 deletions
diff --git a/conform/conformtest.pl b/conform/conformtest.pl index b0220f5991..f7c5368c3d 100644 --- a/conform/conformtest.pl +++ b/conform/conformtest.pl @@ -546,6 +546,37 @@ while ($#headers >= 0) { $res = runtest ($fnamebase, "Testing for value of constant $const", "Constant \"$const\" has not the right value.", $res); } + } elsif (/^symbol *([a-zA-Z0-9_]*) *([A-Za-z0-9_]*)?/) { + my($symbol) = $1; + my($value) = $2; + my($res) = $missing; + + # Remember that this name is allowed. + push @allow, $symbol; + + # 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 "void foobarbaz (void) {\n"; + print TESTFILE "__typeof__ ($symbol) a = $symbol;\n"; + print TESTFILE "}\n"; + close (TESTFILE); + + $res = compiletest ($fnamebase, "Testing for symbol $symbol", + "Symbol \"$symbol\" not available.", $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 $symbol != $value; }\n"; + close (TESTFILE); + + $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"; diff --git a/conform/data/sys/shm.h-data b/conform/data/sys/shm.h-data index a08d6f5596..cac0163406 100644 --- a/conform/data/sys/shm.h-data +++ b/conform/data/sys/shm.h-data @@ -1,5 +1,5 @@ constant SHM_RDONLY -constant SHMLBA +symbol SHMLBA constant SHM_RND type shmatt_t |