r216382 - in /trunk/gcc/ada: ChangeLog sem_ch13...

[charlet@gcc.gnu.org]

Author: charlet
Date: Fri Oct 17 09:14:42 2014
New Revision: 216382

URL: https://gcc.gnu.org/viewcvs?rev=216382&root=gcc&view=rev
Log:
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.


Modified:
    trunk/gcc/ada/ChangeLog
    trunk/gcc/ada/sem_ch13.adb