[gcc r12-1465] [Ada] Allow Known_Static_Component_Size (etc) on private types

[gcc r12-1465] [Ada] Allow Known_Static_Component_Size (etc) on private types

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:df3db34e57f2856888b4866fb6adf47a5676ad7d

commit r12-1465-gdf3db34e57f2856888b4866fb6adf47a5676ad7d
Author: Bob Duff <duff@adacore.com>
Date:   Wed Feb 10 08:47:16 2021 -0500

    [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.

Diff:
---
 gcc/ada/einfo-utils.adb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gcc/ada/einfo-utils.adb b/gcc/ada/einfo-utils.adb
index 0ed7c74f59e..d71377743ca 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