aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorBob Duff <duff@adacore.com>2021-10-21 09:54:13 -0400
committerPierre-Marie de Rodat <derodat@adacore.com>2021-10-25 15:07:21 +0000
commit83e6be717c5bc9817c1a344627929642547e104f (patch)
tree09d119fd2d1dd7d6caf5fbc6f5e07d8f3e64fb16 /gcc
parent034c3117520f33bc108afc930c16b220041e4a97 (diff)
downloadgcc-83e6be717c5bc9817c1a344627929642547e104f.zip
gcc-83e6be717c5bc9817c1a344627929642547e104f.tar.gz
gcc-83e6be717c5bc9817c1a344627929642547e104f.tar.bz2
[Ada] Fix a comment
gcc/ada/ * inline.adb (Establish_Actual_Mapping_For_Inlined_Call): Fix comment.
Diffstat (limited to 'gcc')
-rw-r--r--gcc/ada/inline.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index 16a9894..08c454d 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.