[Ada] Fix wrong value returned for unconstrained packed array
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 31 May 2018 10:47:14 +0000 (10:47 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Thu, 31 May 2018 10:47:14 +0000 (10:47 +0000)
commit6e03839f3d5a26617da02a5d052451251486ede1
tree73c2559dee0f49f3f4017c3df6e244a7d68c810c
parentfe1db400ad466c7c62a37d89f51ee4474bdba214
[Ada] Fix wrong value returned for unconstrained packed array

2018-05-31  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

* gcc-interface/trans.c (Call_to_gnu): In the by-reference case, if
the type of the parameter is an unconstrained array type, convert
to the type of the actual before the type of the formal only if the
conversion was suppressed earlier.  Use in_param and gnu_actual_type
local variables throughout, and uniform spelling for In Out or Out.
Also remove dead code in the component-by-reference case.

From-SVN: r261011
gcc/ada/ChangeLog
gcc/ada/gcc-interface/trans.c