sem_ch13.adb (Add_Invariants, [...]): Do not perform the replacement on the expressio...
authorEd Schonberg <schonberg@adacore.com>
Fri, 17 Oct 2014 09:14:42 +0000 (09:14 +0000)
committerArnaud Charlet <charlet@gcc.gnu.org>
Fri, 17 Oct 2014 09:14:42 +0000 (11:14 +0200)
commitc3ba8ed0bcf3ba41eb94de209b8ad742215ca70d
tree49c76a71cef5eca887b178580483be6062485b4a
parent2e2155739785367db740f9f51c5493db28772cda
sem_ch13.adb (Add_Invariants, [...]): Do not perform the replacement on the expression for an inherited class-wide...

2014-10-17  Ed Schonberg  <schonberg@adacore.com>

* sem_ch13.adb (Add_Invariants, Replace_Type_References): Do
not perform the replacement on the expression for an inherited
class-wide invariant if in ASIS_Mode and the type reference is
already the prefix of a 'Class attribute reference: the expression
has already been preanalyzed and the replacement performed when
first encountered on the declaration of the parent type.

From-SVN: r216382
gcc/ada/ChangeLog
gcc/ada/sem_ch13.adb