| commit | 2d14501c4714ef2b4ab848d52d22a1c700804197 | |
| author | Samuel Tardieu <sam@rfc1149.net> | |
| Wed, 13 Aug 2008 10:57:43 +0000 (13 10:57 +0000) | ||
| committer | Samuel Tardieu <sam@gcc.gnu.org> | |
| Wed, 13 Aug 2008 10:57:43 +0000 (13 10:57 +0000) | ||
| tree | c41ab659ced89553be1789d5dab8a19dc9465c2f | treesnapshot (tar.gz zip) |
| parent | 85790e667775932ee784b9c1636dafcc66ac32d3 | commitdiff |
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
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