From: Bob Duff <duff@adacore.com>
Date: Thu, 21 Oct 2021 13:54:13 +0000 (-0400)
Subject: [Ada] Fix a comment
X-Git-Tag: basepoints/gcc-13~3628
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=83e6be717c5bc9817c1a344627929642547e104f;p=thirdparty%2Fgcc.git

[Ada] Fix a comment

gcc/ada/

	* inline.adb (Establish_Actual_Mapping_For_Inlined_Call): Fix
	comment.
---

diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index 16a9894606df..08c454d366e6 100644
--- a/gcc/ada/inline.adb
+++ b/gcc/ada/inline.adb
@@ -2894,7 +2894,7 @@ package body Inline is
          if Present (Renamed_Object (F)) then
 
             --  If expander is active, it is an error to try to inline a
-            --  recursive program. In GNATprove mode, just indicate that the
+            --  recursive subprogram. In GNATprove mode, just indicate that the
             --  inlining will not happen, and mark the subprogram as not always
             --  inlined.