f58573781c
The conform/ tests were using -D_POSIX_C_SOURCE=199912 to test "POSIX"
(1995/6). This patch changes them to use 199506L, the proper value
from the relevant edition of POSIX. (This doesn't make any difference
to features.h, but is the logically correct value to use.) Tested for
x86_64.
* conform/GlibcConform.pm ($CFLAGS{"POSIX"}): Use
-D_POSIX_C_SOURCE=199506L.
75 lines
2.7 KiB
Perl
75 lines
2.7 KiB
Perl
#! /usr/bin/perl
|
|
|
|
# Shared code for glibc conformance tests.
|
|
|
|
# Copyright (C) 2014-2015 Free Software Foundation, Inc.
|
|
# This file is part of the GNU C Library.
|
|
|
|
# The GNU C Library is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU Lesser General Public
|
|
# License as published by the Free Software Foundation; either
|
|
# version 2.1 of the License, or (at your option) any later version.
|
|
|
|
# The GNU C Library is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
# Lesser General Public License for more details.
|
|
|
|
# You should have received a copy of the GNU Lesser General Public
|
|
# License along with the GNU C Library; if not, see
|
|
# <http://www.gnu.org/licenses/>.
|
|
|
|
package GlibcConform;
|
|
require Exporter;
|
|
@ISA = qw(Exporter);
|
|
@EXPORT = qw(%CFLAGS list_exported_functions);
|
|
|
|
# Compiler options for each standard.
|
|
$CFLAGS{"ISO"} = "-ansi";
|
|
$CFLAGS{"ISO99"} = "-std=c99";
|
|
$CFLAGS{"ISO11"} = "-std=c1x -D_ISOC11_SOURCE";
|
|
$CFLAGS{"POSIX"} = "-D_POSIX_C_SOURCE=199506L -ansi";
|
|
$CFLAGS{"XPG3"} = "-ansi -D_XOPEN_SOURCE";
|
|
$CFLAGS{"XPG4"} = "-ansi -D_XOPEN_SOURCE -D_XOPEN_SOURCE_EXTENDED";
|
|
$CFLAGS{"UNIX98"} = "-ansi -D_XOPEN_SOURCE=500";
|
|
$CFLAGS{"XOPEN2K"} = "-std=c99 -D_XOPEN_SOURCE=600";
|
|
$CFLAGS{"XOPEN2K8"} = "-std=c99 -D_XOPEN_SOURCE=700";
|
|
$CFLAGS{"POSIX2008"} = "-std=c99 -D_POSIX_C_SOURCE=200809L";
|
|
|
|
# Return a list of functions exported by a header, empty if an include
|
|
# of the header does not compile.
|
|
sub list_exported_functions {
|
|
my ($cc, $standard, $header, $tmpdir) = @_;
|
|
my ($cc_all) = "$cc -D_ISOMAC $CFLAGS{$standard}";
|
|
my ($tmpfile) = "$tmpdir/list-$$.c";
|
|
my ($auxfile) = "$tmpdir/list-$$.c.aux";
|
|
my ($ret);
|
|
my (%res) = ();
|
|
open (TMPFILE, ">$tmpfile") || die ("open $tmpfile: $!\n");
|
|
print TMPFILE "#include <$header>\n";
|
|
close (TMPFILE) || die ("close $tmpfile: $!\n");
|
|
$ret = system "$cc_all -c $tmpfile -o /dev/null -aux-info $auxfile > /dev/null";
|
|
unlink ($tmpfile) || die ("unlink $tmpfile: $!\n");
|
|
if ($ret != 0) {
|
|
return;
|
|
}
|
|
open (AUXFILE, "<$auxfile") || die ("open $auxfile: $!\n");
|
|
while (<AUXFILE>) {
|
|
s|/\*.*?\*/||g;
|
|
if (/^\s*$/) {
|
|
next;
|
|
}
|
|
# The word before a '(' that isn't '(*' is the function name
|
|
# before the argument list (not fully general, but sufficient for
|
|
# -aux-info output on standard headers).
|
|
if (/(\w+)\s*\([^*]/) {
|
|
$res{$1} = 1;
|
|
} else {
|
|
die ("couldn't parse -aux-info output: $_\n");
|
|
}
|
|
}
|
|
close (AUXFILE) || die ("close $auxfile: $!\n");
|
|
unlink ($auxfile) || die ("unlink $auxfile: $!\n");
|
|
return sort keys %res;
|
|
}
|