diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-12-14 23:10:44 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-07 16:24:09 +0000 |
| commit | b1dcd52be16c705b56715b1d92d80b77931677a0 (patch) | |
| tree | b605eaa9773680c9925ea7eefc397a484d671e65 /gcc | |
| parent | 57136d60c69d4ac5c189fd7d5150227179cff79e (diff) | |
| download | gcc-b1dcd52be16c705b56715b1d92d80b77931677a0.zip gcc-b1dcd52be16c705b56715b1d92d80b77931677a0.tar.gz gcc-b1dcd52be16c705b56715b1d92d80b77931677a0.tar.bz2 | |
[Ada] Fix comment about subprogram unnesting and unconstrained arrays
gcc/ada/
* exp_unst.adb (Unnest_Subprogram): Sync comment with the
current code.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_unst.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index dcae4b3..05f1148 100644 --- 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; |