From bc1146e5e0979421b5dc2c9c005c355443c2fe24 Mon Sep 17 00:00:00 2001 From: Hristian Kirtchev Date: Thu, 4 Jul 2019 08:05:40 +0000 Subject: [Ada] Minor reformatting 2019-07-04 Hristian Kirtchev gcc/ada/ * erroutc.adb, exp_aggr.adb, inline.adb, opt.adb, sem_ch3.adb: Minor reformatting. From-SVN: r273051 --- gcc/ada/inline.adb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'gcc/ada/inline.adb') diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index b2038a6..907975e 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -2481,8 +2481,7 @@ package body Inline is -- thunk generated for it. Replace a return statement with an assignment -- to the target of the call, with appropriate conversions if needed. - function Process_Formals_In_Aspects (N : Node_Id) - return Traverse_Result; + function Process_Formals_In_Aspects (N : Node_Id) return Traverse_Result; -- Because aspects are linked indirectly to the rest of the tree, -- replacement of formals appearing in aspect specifications must -- be performed in a separate pass, using an instantiation of the @@ -2832,10 +2831,11 @@ package body Inline is -- Process_Formals_In_Aspects -- -------------------------------- - function Process_Formals_In_Aspects (N : Node_Id) - return Traverse_Result + function Process_Formals_In_Aspects + (N : Node_Id) return Traverse_Result is A : Node_Id; + begin if Has_Aspects (N) then A := First (Aspect_Specifications (N)); @@ -2849,7 +2849,7 @@ package body Inline is end Process_Formals_In_Aspects; procedure Replace_Formals_In_Aspects is - new Traverse_Proc (Process_Formals_In_Aspects); + new Traverse_Proc (Process_Formals_In_Aspects); ------------------ -- Process_Sloc -- -- cgit v1.1