From 929d520369a92d26bb734d79588ffde8aba6e8e8 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 11 Jul 2019 08:03:28 +0000 Subject: [Ada] Minor refactoring 2019-07-11 Piotr Trojanek 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 --- gcc/ada/sem.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/ada/sem.adb') 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; -- cgit v1.1