Message ID | 20220107162707.GA948379@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Fix comment about subprogram unnesting and unconstrained arrays | expand |
diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb --- a/gcc/ada/exp_unst.adb +++ b/gcc/ada/exp_unst.adb @@ -2093,7 +2093,8 @@ package body Exp_Unst is -- Build and insert the assignment: -- ARECn.nam := nam'Address - -- or else 'Access for unconstrained array + -- or else 'Unchecked_Access for + -- unconstrained array. if Needs_Fat_Pointer (Ent) then Attr := Name_Unchecked_Access;