diff options
| author | Bob Duff <duff@adacore.com> | 2021-02-10 08:47:16 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-06-15 06:19:27 -0400 |
| commit | df3db34e57f2856888b4866fb6adf47a5676ad7d (patch) | |
| tree | a034b991d47bcbc5292f35345ee88146ef9fbfef | |
| parent | 65067cb65dc9918a75e7546b53bc556737c77594 (diff) | |
| download | gcc-df3db34e57f2856888b4866fb6adf47a5676ad7d.zip gcc-df3db34e57f2856888b4866fb6adf47a5676ad7d.tar.gz gcc-df3db34e57f2856888b4866fb6adf47a5676ad7d.tar.bz2 | |
[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.
| -rw-r--r-- | gcc/ada/einfo-utils.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/einfo-utils.adb b/gcc/ada/einfo-utils.adb index 0ed7c74..d713777 100644 --- a/gcc/ada/einfo-utils.adb +++ b/gcc/ada/einfo-utils.adb @@ -515,8 +515,8 @@ package body Einfo.Utils is function Known_Component_Size (E : Entity_Id) return B is begin - return Component_Size (Base_Type (E)) /= Uint_0 - and then Component_Size (Base_Type (E)) /= No_Uint; + return Component_Size (Implementation_Base_Type (E)) /= Uint_0 + and then Component_Size (Implementation_Base_Type (E)) /= No_Uint; end Known_Component_Size; function Known_Esize (E : Entity_Id) return B is @@ -556,7 +556,7 @@ package body Einfo.Utils is function Known_Static_Component_Size (E : Entity_Id) return B is begin - return Component_Size (Base_Type (E)) > Uint_0; + return Component_Size (Implementation_Base_Type (E)) > Uint_0; end Known_Static_Component_Size; function Known_Static_Esize (E : Entity_Id) return B is @@ -604,9 +604,9 @@ package body Einfo.Utils is function Unknown_Component_Size (E : Entity_Id) return B is begin - return Component_Size (Base_Type (E)) = Uint_0 + return Component_Size (Implementation_Base_Type (E)) = Uint_0 or else - Component_Size (Base_Type (E)) = No_Uint; + Component_Size (Implementation_Base_Type (E)) = No_Uint; end Unknown_Component_Size; function Unknown_Esize (E : Entity_Id) return B is |