diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2019-07-04 08:05:40 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-04 08:05:40 +0000 |
| commit | bc1146e5e0979421b5dc2c9c005c355443c2fe24 (patch) | |
| tree | f607c1e02938184f1acd0bb9d4370de81f77930e /gcc/ada/inline.adb | |
| parent | b04fe972e31570bfb09ae398576c1c79847a9f28 (diff) | |
| download | gcc-bc1146e5e0979421b5dc2c9c005c355443c2fe24.zip gcc-bc1146e5e0979421b5dc2c9c005c355443c2fe24.tar.gz gcc-bc1146e5e0979421b5dc2c9c005c355443c2fe24.tar.bz2 | |
[Ada] Minor reformatting
2019-07-04 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* erroutc.adb, exp_aggr.adb, inline.adb, opt.adb, sem_ch3.adb:
Minor reformatting.
From-SVN: r273051
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 10 |
1 files changed, 5 insertions, 5 deletions
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 -- |