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

decl.c (gnat_to_gnu_entity): Replace pointer types with references ones for functions that return references. 

* gcc-interface/decl.c (gnat_to_gnu_entity): Replace pointer types with
	references ones for functions that return references.

From-SVN: r223920
This commit is contained in:
Pierre-Marie de Rodat 2015-06-01 08:49:46 +00:00 committed by Eric Botcazou
parent bd769c8325
commit 66dc4b9540
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2015-06-01 Pierre-Marie de Rodat <derodat@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity): Replace pointer types with
references ones for functions that return references.
2015-06-01 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Incomplete_Type>: For a

4
gcc/ada/gcc-interface/decl.c
View File

@ -4198,7 +4198,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
type the pointer type and make a note of that. */
if (Returns_By_Ref (gnat_entity))
{
gnu_return_type = build_pointer_type (gnu_return_type);
gnu_return_type = build_reference_type (gnu_return_type);
return_by_direct_ref_p = true;
}
@ -4216,7 +4216,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
the actual return type is the pointer type. */
else if (Requires_Transient_Scope (gnat_return_type))
{
gnu_return_type = build_pointer_type (gnu_return_type);
gnu_return_type = build_reference_type (gnu_return_type);
return_unconstrained_p = true;
}