OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Improve compatibility of -fdump-ada-spec with warnings

Browse Source 
This makes sure that the style and warning settings used in the
C/C++ bindings generated by -fdump-ada-spec do not leak into the
units that use them.

gcc/c-family/
	* c-ada-spec.c (dump_ads): Generate pragmas to disable style checks
	and -gnatwu warning for the package specification.
This commit is contained in:
Eric Botcazou 2021-09-03 11:18:01 +02:00
parent 090f0d78f1
commit 8d34ffb4e8
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/c-family/c-ada-spec.c
View File

@ -3440,11 +3440,12 @@ dump_ads (const char *source_file,
dump_ada_nodes (&pp, source_file);
/* We require Ada 2012 syntax, so generate corresponding pragma. */
fputs ("pragma Ada_2012;\n", f);
fputs ("pragma Ada_2012;\n\n", f);
/* Disable style checks and warnings on unused entities since this file
is auto-generated and always has a with clause for Interfaces.C. */
fputs ("pragma Style_Checks (Off);\npragma Warnings (\"U\");\n\n", f);
fputs ("pragma Style_Checks (Off);\n", f);
fputs ("pragma Warnings (Off, \"-gnatwu\");\n\n", f);
/* Dump withs. */
dump_ada_withs (f);
@ -3452,7 +3453,10 @@ dump_ads (const char *source_file,
fprintf (f, "\npackage %s is\n\n", pkg_name);
pp_write_text_to_stream (&pp);
/* ??? need to free pp */
fprintf (f, "end %s;\n", pkg_name);
fprintf (f, "end %s;\n\n", pkg_name);
fputs ("pragma Style_Checks (On);\n", f);
fputs ("pragma Warnings (On, \"-gnatwu\");\n", f);
fclose (f);
}