git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

* gcc-interface/decl.c (gnat_to_gnu_param): Remove obsolete comment. 

From-SVN: r203499
This commit is contained in:
Eric Botcazou 2013-10-13 14:58:43 +00:00 committed by Eric Botcazou
parent 3246afaa93
commit 2e151b6dbc
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
2013-10-13 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_param): Remove obsolete comment.
2013-10-11 Jakub Jelinek <jakub@redhat.com> 2013-10-11 Jakub Jelinek <jakub@redhat.com>
* gcc-interface/utils.c (DEF_FUNCTION_TYPE_8): Define. * gcc-interface/utils.c (DEF_FUNCTION_TYPE_8): Define.

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

@ -5824,12 +5824,8 @@ gnat_to_gnu_param (Entity_Id gnat_param, Mechanism_Type mech,
ro_param || by_ref || by_component_ptr); ro_param || by_ref || by_component_ptr);
DECL_BY_REF_P (gnu_param) = by_ref; DECL_BY_REF_P (gnu_param) = by_ref;
DECL_BY_COMPONENT_PTR_P (gnu_param) = by_component_ptr; DECL_BY_COMPONENT_PTR_P (gnu_param) = by_component_ptr;
DECL_BY_DESCRIPTOR_P (gnu_param) = (mech == By_Descriptor || DECL_BY_DESCRIPTOR_P (gnu_param)
mech == By_Short_Descriptor); = (mech == By_Descriptor || mech == By_Short_Descriptor);
/* Note that, in case of a parameter passed by double reference, the
DECL_POINTS_TO_READONLY_P flag is meant for the second reference.
The first reference always points to read-only, as it points to
the second reference, i.e. the reference to the actual parameter. */
DECL_POINTS_TO_READONLY_P (gnu_param) DECL_POINTS_TO_READONLY_P (gnu_param)
= (ro_param && (by_ref || by_component_ptr)); = (ro_param && (by_ref || by_component_ptr));
DECL_CAN_NEVER_BE_NULL_P (gnu_param) = Can_Never_Be_Null (gnat_param); DECL_CAN_NEVER_BE_NULL_P (gnu_param) = Can_Never_Be_Null (gnat_param);