diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2018-07-16 14:12:28 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-07-16 14:12:28 +0000 |
| commit | 400ad4e950bcd8f0940990ea558b1227d8930285 (patch) | |
| tree | 34c990bf91315fc62636fc041e795b493a1d3a69 /gcc/ada/inline.adb | |
| parent | 4af4c79a53886d0807f187f23e066fe4f0265897 (diff) | |
| download | gcc-400ad4e950bcd8f0940990ea558b1227d8930285.zip gcc-400ad4e950bcd8f0940990ea558b1227d8930285.tar.gz gcc-400ad4e950bcd8f0940990ea558b1227d8930285.tar.bz2 | |
[Ada] Minor reformatting
2018-07-16 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* einfo.adb, exp_ch7.adb, exp_ch9.adb, exp_unst.adb, inline.adb,
sem.adb, sem_ch12.adb, sem_ch13.adb, sem_ch3.adb, sem_eval.adb,
sem_util.adb: Minor reformatting.
From-SVN: r262730
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index df7fdb9..b425094 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -3926,12 +3926,12 @@ package body Inline is end if; end if; - -- A return statement within an extended return is a noop - -- after inlining. + -- A return statement within an extended return is a noop after + -- inlining. elsif No (Expression (N)) - and then - Nkind (Parent (Parent (N))) = N_Extended_Return_Statement + and then Nkind (Parent (Parent (N))) = + N_Extended_Return_Statement then return OK; @@ -3970,10 +3970,11 @@ package body Inline is return True; else - return Present (Declarations (N)) - and then Present (First (Declarations (N))) - and then Entity (Expression (Return_Statement)) = - Defining_Identifier (First (Declarations (N))); + return + Present (Declarations (N)) + and then Present (First (Declarations (N))) + and then Entity (Expression (Return_Statement)) = + Defining_Identifier (First (Declarations (N))); end if; end Has_Single_Return; |