ada: Do not share Packed Array Type if sizes of types differ
authorMarc Poulhiès <poulhies@adacore.com>
Tue, 15 Nov 2022 15:47:59 +0000 (16:47 +0100)
committerMarc Poulhiès <poulhies@adacore.com>
Mon, 21 Nov 2022 10:10:34 +0000 (11:10 +0100)
commita186dd158decad693bd18c95962a9ea61022166c
treea83a6beea57a57edd33966496ab0ead1af20ebfb
parent6f089469f4f0960818498ca5ad2bd3797a4b1d43
ada: Do not share Packed Array Type if sizes of types differ

If a subtype has a Size attribute value different than the size of its
ancestor, then the Packed Array Type can't be shared and a new one must
be created.

gcc/ada/

* exp_pakd.adb (Create_Packed_Array_Impl_Type): Do not share PAT
if sizes of types differ.
gcc/ada/exp_pakd.adb