diff options
Diffstat (limited to 'gcc/ada/freeze.adb')
| -rw-r--r-- | gcc/ada/freeze.adb | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 56389bb0535..85206f7ae8b 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -3459,10 +3459,7 @@ package body Freeze is end if; -- The equivalent type associated with a class-wide subtype needs - -- to be frozen to ensure that its layout is done. Class-wide - -- subtypes are currently only frozen on targets requiring - -- front-end layout (see New_Class_Wide_Subtype and - -- Make_CW_Equivalent_Type in exp_util.adb). + -- to be frozen to ensure that its layout is done. if Ekind (E) = E_Class_Wide_Subtype and then Present (Equivalent_Type (E)) |