r264606 - in /trunk/gcc: ada/ChangeLog ada/gcc-...

[pmderodat@gcc.gnu.org]

Author: pmderodat
Date: Wed Sep 26 09:16:49 2018
New Revision: 264606

URL: https://gcc.gnu.org/viewcvs?rev=264606&root=gcc&view=rev
Log:
[Ada] Wrong handling of address clause for limited record type

2018-09-26  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Variable>: Adjust
	code retrieving the address when a clause has already been
	processed.
	* gcc-interface/trans.c (gnat_to_gnu)
	<N_Attribute_Definition_Clause>: For an object with a Freeze
	node, build a meaningful expression.

gcc/testsuite/

	* gnat.dg/addr12.adb, gnat.dg/addr12_a.adb,
	gnat.dg/addr12_a.ads, gnat.dg/addr12_b.adb,
	gnat.dg/addr12_b.ads, gnat.dg/addr12_c.ads: New testcase.

Added:
    trunk/gcc/testsuite/gnat.dg/addr12.adb
    trunk/gcc/testsuite/gnat.dg/addr12_a.adb
    trunk/gcc/testsuite/gnat.dg/addr12_a.ads
    trunk/gcc/testsuite/gnat.dg/addr12_b.adb
    trunk/gcc/testsuite/gnat.dg/addr12_b.ads
    trunk/gcc/testsuite/gnat.dg/addr12_c.ads
Modified:
    trunk/gcc/ada/ChangeLog
    trunk/gcc/ada/gcc-interface/decl.c
    trunk/gcc/ada/gcc-interface/trans.c
    trunk/gcc/testsuite/ChangeLog