From c308e7620eccfbb8f0b5859aab351e3192d761c1 Mon Sep 17 00:00:00 2001 From: Hristian Kirtchev Date: Mon, 4 Jul 2016 10:19:10 +0000 Subject: sem_ch3.adb, [...]: Minor reformatting. 2016-07-04 Hristian Kirtchev * sem_ch3.adb, sem_type.adb, sem_ch12.adb, xref_lib.adb, freeze.adb, sinput-l.adb, sinput-l.ads, sem_ch4.adb, sem_ch8.adb: Minor reformatting. From-SVN: r237965 --- gcc/ada/sem_ch12.adb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'gcc/ada/sem_ch12.adb') diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 8e38db0..ae04a9d 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -15152,12 +15152,13 @@ package body Sem_Ch12 is procedure Set_Copied_Sloc_For_Inherited_Pragma (N : Node_Id; - E : Entity_Id) is + E : Entity_Id) + is begin Create_Instantiation_Source (N, E, Inlined_Body => False, Inherited_Pragma => True, - A => S_Adjustment); + Factor => S_Adjustment); end Set_Copied_Sloc_For_Inherited_Pragma; -------------------------------------- @@ -15169,7 +15170,7 @@ package body Sem_Ch12 is Create_Instantiation_Source (N, E, Inlined_Body => True, Inherited_Pragma => False, - A => S_Adjustment); + Factor => S_Adjustment); end Set_Copied_Sloc_For_Inlined_Body; --------------------- -- cgit v1.1