From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 14 Dec 2021 22:10:44 +0000 (+0100)
Subject: [Ada] Fix comment about subprogram unnesting and unconstrained arrays
X-Git-Tag: basepoints/gcc-13~1959
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b1dcd52be16c705b56715b1d92d80b77931677a0;p=thirdparty%2Fgcc.git

[Ada] Fix comment about subprogram unnesting and unconstrained arrays

gcc/ada/

	* exp_unst.adb (Unnest_Subprogram): Sync comment with the
	current code.
---

diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb
index dcae4b31222c..05f11483e967 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;