mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-30 21:41:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

invoke.texi: Document -fada-spec-parent.

Browse Source 
* doc/invoke.texi: Document -fada-spec-parent.
c-family/
	* c.opt (-fada-spec-parent): Define new command line switch.
	* c-ada-spec.c (get_ada_package): When -fada-spec-parent
	is specified, generate binding spec as a child of the specified unit.

From-SVN: r191427
This commit is contained in:
Thomas Quinot 2012-09-18 14:26:06 +00:00 committed by Arnaud Charlet
parent ecfce0b850
commit da5182be67
5 changed files with 35 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ChangeLog
View File

@ -1,3 +1,7 @@
2012-09-18 Thomas Quinot <quinot@adacore.com>
* doc/invoke.texi: Document -fada-spec-parent.
2012-09-18 Jakub Jelinek <jakub@redhat.com>
PR tree-optimization/54610

6
gcc/c-family/ChangeLog
View File

@ -1,3 +1,9 @@
2012-09-18 Thomas Quinot <quinot@adacore.com>
* c.opt (-fada-spec-parent): Define new command line switch.
* c-ada-spec.c (get_ada_package): When -fada-spec-parent
is specified, generate binding spec as a child of the specified unit.
2012-09-13 Paolo Carlini <paolo.carlini@oracle.com>
Manuel López-Ibáñez <manu@gcc.gnu.org>

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

@ -817,15 +817,26 @@ get_ada_package (const char *file)
char *res;
const char *s;
int i;
size_t plen;
s = strstr (file, "/include/");
if (s)
base = s + 9;
else
base = lbasename (file);
res = XNEWVEC (char, strlen (base) + 1);
for (i = 0; *base; base++, i++)
if (ada_specs_parent == NULL)
plen = 0;
else
plen = strlen (ada_specs_parent) + 1;
res = XNEWVEC (char, plen + strlen (base) + 1);
if (ada_specs_parent != NULL) {
strcpy (res, ada_specs_parent);
res[plen - 1] = '.';
}
for (i = plen; *base; base++, i++)
switch (*base)
{
case '+':
@ -837,14 +848,14 @@ get_ada_package (const char *file)
case '_':
case '/':
case '\\':
res [i] = (i == 0 || res [i - 1] == '_') ? 'u' : '_';
res[i] = (i == 0 || res[i - 1] == '.' || res[i - 1] == '_') ? 'u' : '_';
break;
default:
res [i] = *base;
res[i] = *base;
break;
}
res [i] = '\0';
res[i] = '\0';
return res;
}
@ -3250,7 +3261,10 @@ dump_ads (const char *source_file,
ads_name = xstrdup (pkg_name);
for (s = ads_name; *s; s++)
*s = TOLOWER (*s);
if (*s == '.')
*s = '-';
else
*s = TOLOWER (*s);
ads_name = reconcat (ads_name, ads_name, ".ads", NULL);

4
gcc/c-family/c.opt
View File

@ -729,6 +729,10 @@ faccess-control
C++ ObjC++ Var(flag_access_control) Init(1)
Enforce class member access control semantics
fada-spec-parent=
C ObjC C++ ObjC++ RejectNegative Joined Var(ada_specs_parent)
-fada-spec-parent=unit Dump Ada specs as child units of given parent
fall-virtual
C++ ObjC++ Ignore Warn(switch %qs is no longer supported)

2
gcc/doc/invoke.texi
View File

@ -166,7 +166,7 @@ in the following sections.
-pipe -pass-exit-codes @gol
-x @var{language} -v -### --help@r{[}=@var{class}@r{[},@dots{}@r{]]} --target-help @gol
--version -wrapper @@@var{file} -fplugin=@var{file} -fplugin-arg-@var{name}=@var{arg} @gol
-fdump-ada-spec@r{[}-slim@r{]} -fdump-go-spec=@var{file}}
-fdump-ada-spec@r{[}-slim@r{]} -fada-spec-parent=@var{arg} -fdump-go-spec=@var{file}}
@item C Language Options
@xref{C Dialect Options,,Options Controlling C Dialect}.