diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2019-07-11 08:03:28 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-11 08:03:28 +0000 |
| commit | 929d520369a92d26bb734d79588ffde8aba6e8e8 (patch) | |
| tree | d1f8f4d6ab730798815921e4d5bee64c44c5dd6f /gcc/ada/sem.adb | |
| parent | 8b727104817f1b0c2a03013ed397e99f8673405c (diff) | |
| download | gcc-929d520369a92d26bb734d79588ffde8aba6e8e8.zip gcc-929d520369a92d26bb734d79588ffde8aba6e8e8.tar.gz gcc-929d520369a92d26bb734d79588ffde8aba6e8e8.tar.bz2 | |
[Ada] Minor refactoring
2019-07-11 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* checks.adb: Fix typo in comment.
* sem.adb (Semantics): Avoid repeated calls to
In_Extended_Main_Source_Unit by reusing an already-cached
result.
* sem_util.adb (First_Global): Fix style.
From-SVN: r273406
Diffstat (limited to 'gcc/ada/sem.adb')
| -rw-r--r-- | gcc/ada/sem.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb index fa3ed48..2f8f6a4 100644 --- a/gcc/ada/sem.adb +++ b/gcc/ada/sem.adb @@ -1579,7 +1579,7 @@ package body Sem is and then Nkind (Unit (Comp_Unit)) in N_Proper_Body and then (Nkind (Unit (Comp_Unit)) /= N_Subprogram_Body or else not Acts_As_Spec (Comp_Unit)) - and then not In_Extended_Main_Source_Unit (Comp_Unit) + and then not Ext_Main_Source_Unit then null; |