diff options
| author | Samuel Tardieu <sam@rfc1149.net> | 2008-08-13 10:57:43 +0000 |
|---|---|---|
| committer | Samuel Tardieu <sam@gcc.gnu.org> | 2008-08-13 10:57:43 +0000 |
| commit | 2d14501c4714ef2b4ab848d52d22a1c700804197 (patch) | |
| tree | c41ab659ced89553be1789d5dab8a19dc9465c2f /gcc/gimplify.c | |
| parent | 85790e667775932ee784b9c1636dafcc66ac32d3 (diff) | |
| download | gcc-2d14501c4714ef2b4ab848d52d22a1c700804197.zip gcc-2d14501c4714ef2b4ab848d52d22a1c700804197.tar.gz gcc-2d14501c4714ef2b4ab848d52d22a1c700804197.tar.bz2 | |
re PR ada/36777 (Protected type cannot have access taken from its body.)
gcc/ada/
PR ada/36777
* sem_util.ads, sem_util.adb (Is_Protected_Self_Reference): New.
* sem_attr.adb (Check_Type): The current instance of a protected
object is not a type name.
(Analyze_Access_Attribute): Accept instances of protected objects.
(Analyze_Attribute, Attribute_Address clause): Ditto.
* exp_attr.adb (Expand_N_Attribute_Reference): Rewrite
the prefix as being the current instance if needed.
gcc/testsuite/
PR ada/36777
* gnat.dg/protected_self_ref1.adb, gnat.dg/protected_self_ref2.adb:
New.
From-SVN: r139051
Diffstat (limited to 'gcc/gimplify.c')
0 files changed, 0 insertions, 0 deletions