]> git.ipfire.org Git - thirdparty/gcc.git/commit
[Ada] Fix propagation of compiler internal flag
authorpmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 20 Aug 2019 09:50:05 +0000 (09:50 +0000)
committerpmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 20 Aug 2019 09:50:05 +0000 (09:50 +0000)
commit4c995b3ef82223232b83398e1cfdf190c0c08ee0
tree1c7b7dbc00b9b52553d5f114938a9be55644657d
parent01c307f1688ff45bbe6be94bd87856c6679b40bd
[Ada] Fix propagation of compiler internal flag

No change in behavior for GCC-based compilations.

2019-08-20  Ed Schonberg  <schonberg@adacore.com>

gcc/ada/

* sem_ch3.adb (Analyze_Object_Declaration): If actual type is
private and distinct from nominal type in declaration, propagate
flags Is_Constr_Subt_For_U_Nominal and _UN_Aliased to full view
of private type.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@274735 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/ChangeLog
gcc/ada/sem_ch3.adb