diff options
| author | Robert Dewar <dewar@adacore.com> | 2014-07-30 10:41:12 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 12:41:12 +0200 |
| commit | 662c2ad47559312689a4e5f81f2eccdc577be858 (patch) | |
| tree | 713ee01437c9612f7a87b4ab8bce11908167ecee /gcc/ada/inline.adb | |
| parent | 4e6768ab35cfedef2d35a51ba06857d6631c3715 (diff) | |
| download | gcc-662c2ad47559312689a4e5f81f2eccdc577be858.zip gcc-662c2ad47559312689a4e5f81f2eccdc577be858.tar.gz gcc-662c2ad47559312689a4e5f81f2eccdc577be858.tar.bz2 | |
inline.adb, [...]: Minor reformatting.
2014-07-30 Robert Dewar <dewar@adacore.com>
* inline.adb, exp_ch4.adb, sinput.adb, sem_ch6.adb, sem_ch13.adb:
Minor reformatting.
From-SVN: r213244
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); |