diff options
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index 438f27c..749e4dc 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -3620,13 +3620,13 @@ package body Inline is while Present (F) loop if Present (Renamed_Object (F)) then - -- If expander is active, it's an error to try to inline a + -- If expander is active, it is an error to try to inline a -- recursive program. In GNATprove mode, just indicate that -- the inlining will not happen. if Expander_Active then - Error_Msg_N ("cannot inline call to recursive subprogram", N); - + Error_Msg_N + ("cannot inline call to recursive subprogram", N); else Cannot_Inline ("cannot inline call to recursive subprogram?", N, Subp); |