procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

c-ada-spec.c (dump_ada_declaration): Generate a forward declaration for a typedef independently of whether the...

Browse source 
* c-ada-spec.c (dump_ada_declaration) <TYPE_DECL>: Generate a forward
	declaration for a typedef independently of whether the declaration of
	the subtype is generated.

From-SVN: r261058
This commit is contained in:
Eric Botcazou 2018-06-01 08:36:20 +00:00 • committed by Eric Botcazou
parent 67e5c59afb
commit abc24d932c
2 changed files with 16 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/c-family/ChangeLog
View file

@ -1,3 +1,9 @@
2018-06-01 Eric Botcazou <ebotcazou@adacore.com>
* c-ada-spec.c (dump_ada_declaration) <TYPE_DECL>: Generate a forward
declaration for a typedef independently of whether the declaration of
the subtype is generated.
2018-05-31 Martin Sebor <msebor@redhat.com>
PR c/82063

14
gcc/c-family/c-ada-spec.c
View file

@ -2734,19 +2734,25 @@ dump_ada_declaration (pretty_printer *buffer, tree t, tree type, int spc)
if (TYPE_NAME (typ))
{
/* If types have same representation, and same name (ignoring
casing), then ignore the second type. */
/* If the types have the same name (ignoring casing), then ignore
the second type, but forward declare the first if need be. */
if (type_name (typ) == type_name (TREE_TYPE (t))
|| !strcasecmp (type_name (typ), type_name (TREE_TYPE (t))))
{
if (RECORD_OR_UNION_TYPE_P (typ) && !TREE_VISITED (stub))
{
INDENT (spc);
dump_forward_type (buffer, typ, t, 0);
}
TREE_VISITED (t) = 1;
return 0;
}
INDENT (spc);
if (RECORD_OR_UNION_TYPE_P (typ))
dump_forward_type (buffer, stub, t, spc);
if (RECORD_OR_UNION_TYPE_P (typ) && !TREE_VISITED (stub))
dump_forward_type (buffer, typ, t, spc);
pp_string (buffer, "subtype ");
dump_ada_node (buffer, t, type, spc, false, true);