From f9a0fd0b3f4a608af15decd0c786242634f59d9b Mon Sep 17 00:00:00 2001 From: Justin Squirek Date: Fri, 25 May 2018 09:04:15 +0000 Subject: [PATCH] [Ada] Minor reformatting 2018-05-25 Justin Squirek gcc/ada/ * sem_ch8.adb: Minor reformatting. From-SVN: r260729 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/sem_ch8.adb | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 5596c59..35fba03 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2018-05-25 Justin Squirek + + * sem_ch8.adb: Minor reformatting. + 2018-05-25 Piotr Trojanek * sem_util.adb (Iterate_Call_Parameters): Fix code convention and diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 8f8b03a..382f12d 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -8297,6 +8297,7 @@ package body Sem_Ch8 is ---------------------- procedure Mark_Use_Clauses (Id : Node_Or_Entity_Id) is + procedure Mark_Parameters (Call : Entity_Id); -- Perform use_type_clause marking for all parameters in a subprogram -- or operator call. @@ -8528,7 +8529,8 @@ package body Sem_Ch8 is (Clause1 : Entity_Id; Clause2 : Entity_Id) return Entity_Id is - Scope1, Scope2 : Entity_Id; + Scope1 : Entity_Id; + Scope2 : Entity_Id; begin if Clause1 = Clause2 then -- 2.7.4