diff options
Diffstat (limited to 'gcc/ada/freeze.adb')
| -rw-r--r-- | gcc/ada/freeze.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index d51a73df2a2..d07944ae05f 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -2741,6 +2741,11 @@ package body Freeze is if Has_Foreign_Convention (Etype (Comp)) and then Has_Pragma_Pack (Rec) + + -- Don't warn for aliased components, since override + -- cannot happen in that case. + + and then not Is_Aliased (Comp) then declare CN : constant Name_Id := |