Commit 7d1ec26a by Jakub Jelinek Committed by Janis Johnson

compat.exp (compat-get-options-main, [...]): Handle dg-prune-output in source file.

2009-03-19  Jakub Jelinek  <jakub@redhat.com>
	    Janis Johnson  <janis187@us.ibm.com>

	* lib/compat.exp (compat-get-options-main, compat-get-options):
	Handle dg-prune-output in source file.
	* lib/gcc-defs.exp (${tool}_check_compile): Process prune requests.
	* gcc.dg/compat/struct-layout-1_main.c: Use dg-prune for warning.
	* gcc.dg/compat/struct-layout-1_generate.c: Use -Wno-abi, prune
	two warnings.

Co-Authored-By: Janis Johnson <janis187@us.ibm.com>

From-SVN: r144971
parent ea1199ee
2009-03-19 Jakub Jelinek <jakub@redhat.com> 2009-03-19 Jakub Jelinek <jakub@redhat.com>
Janis Johnson <janis187@us.ibm.com>
* lib/compat.exp (compat-get-options-main, compat-get-options):
Handle dg-prune-output in source file.
* lib/gcc-defs.exp (${tool}_check_compile): Process prune requests.
* gcc.dg/compat/struct-layout-1_main.c: Use dg-prune for warning.
* gcc.dg/compat/struct-layout-1_generate.c: Use -Wno-abi, prune
two warnings.
2009-03-19 Jakub Jelinek <jakub@redhat.com>
PR c/39495 PR c/39495
* gcc.dg/gomp/pr39495-1.c: New test. * gcc.dg/gomp/pr39495-1.c: New test.
......
...@@ -44,6 +44,7 @@ along with GCC; see the file COPYING3. If not see ...@@ -44,6 +44,7 @@ along with GCC; see the file COPYING3. If not see
const char *dg_options[] = { const char *dg_options[] = {
"/* { dg-options \"%s-I%s\" } */\n", "/* { dg-options \"%s-I%s\" } */\n",
"/* { dg-options \"%s-I%s -Wno-abi\" } */\n",
"/* { dg-options \"%s-I%s -mno-mmx -Wno-abi\" { target i?86-*-* x86_64-*-* } } */\n", "/* { dg-options \"%s-I%s -mno-mmx -Wno-abi\" { target i?86-*-* x86_64-*-* } } */\n",
"/* { dg-options \"%s-I%s -fno-common\" { target hppa*-*-hpux* powerpc*-*-darwin* *-*-mingw32* *-*-cygwin* } } */\n", "/* { dg-options \"%s-I%s -fno-common\" { target hppa*-*-hpux* powerpc*-*-darwin* *-*-mingw32* *-*-cygwin* } } */\n",
"/* { dg-options \"%s-I%s -mno-mmx -fno-common -Wno-abi\" { target i?86-*-darwin* x86_64-*-darwin* } } */\n", "/* { dg-options \"%s-I%s -mno-mmx -fno-common -Wno-abi\" { target i?86-*-darwin* x86_64-*-darwin* } } */\n",
...@@ -789,6 +790,8 @@ switchfiles (int fields) ...@@ -789,6 +790,8 @@ switchfiles (int fields)
fprintf (outfile, "/* { dg-require-effective-target int32plus } */\n"); fprintf (outfile, "/* { dg-require-effective-target int32plus } */\n");
for (i = 0; i < NDG_OPTIONS; i++) for (i = 0; i < NDG_OPTIONS; i++)
fprintf (outfile, dg_options[i], "", srcdir_safe); fprintf (outfile, dg_options[i], "", srcdir_safe);
fprintf (outfile, "/* { dg-prune-output \".*-Wno-abi.*\" } */\n");
fprintf (outfile, "/* { dg-prune-output \".*Offset of packed bit-field.*\" } */\n");
fprintf (outfile, "\ fprintf (outfile, "\
#include \"struct-layout-1.h\"\n\ #include \"struct-layout-1.h\"\n\
\n\ \n\
......
/* { dg-prune-output ".*-Wno-abi.*" } */
#include "struct-layout-1.h" #include "struct-layout-1.h"
#define TX(n, type, attrs, fields, ops) extern void test##n (void); #define TX(n, type, attrs, fields, ops) extern void test##n (void);
......
...@@ -170,6 +170,7 @@ proc compat-get-options-main { src } { ...@@ -170,6 +170,7 @@ proc compat-get-options-main { src } {
foreach op $tmp { foreach op $tmp {
set cmd [lindex $op 0] set cmd [lindex $op 0]
if { ![string compare "dg-options" $cmd] \ if { ![string compare "dg-options" $cmd] \
|| [string match "dg-prune-output" $cmd] \
|| [string match "dg-skip-if" $cmd] \ || [string match "dg-skip-if" $cmd] \
|| [string match "dg-require-*" $cmd] } { || [string match "dg-require-*" $cmd] } {
set status [catch "$op" errmsg] set status [catch "$op" errmsg]
...@@ -215,6 +216,7 @@ proc compat-get-options { src } { ...@@ -215,6 +216,7 @@ proc compat-get-options { src } {
foreach op $tmp { foreach op $tmp {
set cmd [lindex $op 0] set cmd [lindex $op 0]
if { ![string compare "dg-options" $cmd] \ if { ![string compare "dg-options" $cmd] \
|| ![string compare "dg-prune-output" $cmd] \
|| ![string compare "dg-xfail-if" $cmd] } { || ![string compare "dg-xfail-if" $cmd] } {
set status [catch "$op" errmsg] set status [catch "$op" errmsg]
if { $status != 0 } { if { $status != 0 } {
......
...@@ -49,6 +49,11 @@ proc ${tool}_check_compile {testcase option objname gcc_output} { ...@@ -49,6 +49,11 @@ proc ${tool}_check_compile {testcase option objname gcc_output} {
set gcc_output [prune_warnings $gcc_output] set gcc_output [prune_warnings $gcc_output]
if { [info proc ${tool}-dg-prune] != "" } {
global target_triplet
set gcc_output [${tool}-dg-prune $target_triplet $gcc_output]
}
set unsupported_message [${tool}_check_unsupported_p $gcc_output] set unsupported_message [${tool}_check_unsupported_p $gcc_output]
if { $unsupported_message != "" } { if { $unsupported_message != "" } {
unsupported "$testcase: $unsupported_message" unsupported "$testcase: $unsupported_message"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment