[Ada] Allow Known_Static_Component_Size (etc) on private types
authorBob Duff <duff@adacore.com>
Wed, 10 Feb 2021 13:47:16 +0000 (08:47 -0500)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 15 Jun 2021 10:19:27 +0000 (06:19 -0400)
commitdf3db34e57f2856888b4866fb6adf47a5676ad7d
treea034b991d47bcbc5292f35345ee88146ef9fbfef
parent65067cb65dc9918a75e7546b53bc556737c77594
[Ada] Allow Known_Static_Component_Size (etc) on private types

gcc/ada/

* einfo-utils.adb (Known_Component_Size,
Known_Static_Component_Size, Unknown_Component_Size): Use
Implementation_Base_Type instead of Base_Type.
gcc/ada/einfo-utils.adb