From: Justin Squirek Date: Fri, 25 May 2018 09:04:15 +0000 (+0000) Subject: [Ada] Minor reformatting X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f9a0fd0b3f4a608af15decd0c786242634f59d9b;p=gcc.git [Ada] Minor reformatting 2018-05-25 Justin Squirek gcc/ada/ * sem_ch8.adb: Minor reformatting. From-SVN: r260729 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 5596c595028..35fba035625 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 8f8b03a3237..382f12dad7b 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