diff options
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 50bc11a5546..44488fbafce 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -3929,12 +3929,11 @@ package body Exp_Ch6 is Add_Inlined_Body (Subp); Register_Backend_Call (Call_Node); - -- Frontend expands supported functions returning unconstrained types + -- Frontend expansion of supported functions returning unconstrained + -- types and simple renamings inlined by the frontend (see Freeze. + -- Build_Renamed_Entity). else - pragma Assert (Ekind (Subp) = E_Function - and then Returns_Unconstrained_Type (Subp)); - declare Spec : constant Node_Id := Unit_Declaration_Node (Subp); |