public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r12-6244] [Ada] Remove extra whitespace in declarations and parameters lists
@ 2022-01-05 11:35 Pierre-Marie de Rodat
0 siblings, 0 replies; only message in thread
From: Pierre-Marie de Rodat @ 2022-01-05 11:35 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:3077fc46e932a3b150c36165272c7231486f28a9
commit r12-6244-g3077fc46e932a3b150c36165272c7231486f28a9
Author: Piotr Trojanek <trojanek@adacore.com>
Date: Mon Nov 29 15:07:39 2021 +0100
[Ada] Remove extra whitespace in declarations and parameters lists
gcc/ada/
* exp_ch3.adb (Build_Dcheck_Function): Remove extra whitespace.
* libgnarl/s-taskin.adb (Initialize_ATCB): Likewise.
Diff:
---
gcc/ada/exp_ch3.adb | 8 ++++----
gcc/ada/libgnarl/s-taskin.adb | 48 +++++++++++++++++++++----------------------
2 files changed, 28 insertions(+), 28 deletions(-)
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index 5fe0fc76992..13ae58dc22b 100644
--- a/gcc/ada/exp_ch3.adb
+++ b/gcc/ada/exp_ch3.adb
@@ -1045,10 +1045,10 @@ package body Exp_Ch3 is
(Case_Id : Entity_Id;
Variant : Node_Id) return Entity_Id
is
- Body_Node : Node_Id;
- Func_Id : Entity_Id;
- Parameter_List : List_Id;
- Spec_Node : Node_Id;
+ Body_Node : Node_Id;
+ Func_Id : Entity_Id;
+ Parameter_List : List_Id;
+ Spec_Node : Node_Id;
begin
Body_Node := New_Node (N_Subprogram_Body, Loc);
diff --git a/gcc/ada/libgnarl/s-taskin.adb b/gcc/ada/libgnarl/s-taskin.adb
index 478809c3547..b311bed2892 100644
--- a/gcc/ada/libgnarl/s-taskin.adb
+++ b/gcc/ada/libgnarl/s-taskin.adb
@@ -82,18 +82,18 @@ package body System.Tasking is
---------------------
procedure Initialize_ATCB
- (Self_ID : Task_Id;
- Task_Entry_Point : Task_Procedure_Access;
- Task_Arg : System.Address;
- Parent : Task_Id;
- Elaborated : Access_Boolean;
- Base_Priority : System.Any_Priority;
- Base_CPU : System.Multiprocessors.CPU_Range;
- Domain : Dispatching_Domain_Access;
- Task_Info : System.Task_Info.Task_Info_Type;
- Stack_Size : System.Parameters.Size_Type;
- T : Task_Id;
- Success : out Boolean)
+ (Self_ID : Task_Id;
+ Task_Entry_Point : Task_Procedure_Access;
+ Task_Arg : System.Address;
+ Parent : Task_Id;
+ Elaborated : Access_Boolean;
+ Base_Priority : System.Any_Priority;
+ Base_CPU : System.Multiprocessors.CPU_Range;
+ Domain : Dispatching_Domain_Access;
+ Task_Info : System.Task_Info.Task_Info_Type;
+ Stack_Size : System.Parameters.Size_Type;
+ T : Task_Id;
+ Success : out Boolean)
is
begin
T.Common.State := Unactivated;
@@ -228,18 +228,18 @@ package body System.Tasking is
T := STPO.New_ATCB (0);
Initialize_ATCB
- (Self_ID => null,
- Task_Entry_Point => null,
- Task_Arg => Null_Address,
- Parent => Null_Task,
- Elaborated => null,
- Base_Priority => Base_Priority,
- Base_CPU => Base_CPU,
- Domain => System_Domain,
- Task_Info => Task_Info.Unspecified_Task_Info,
- Stack_Size => 0,
- T => T,
- Success => Success);
+ (Self_ID => null,
+ Task_Entry_Point => null,
+ Task_Arg => Null_Address,
+ Parent => Null_Task,
+ Elaborated => null,
+ Base_Priority => Base_Priority,
+ Base_CPU => Base_CPU,
+ Domain => System_Domain,
+ Task_Info => Task_Info.Unspecified_Task_Info,
+ Stack_Size => 0,
+ T => T,
+ Success => Success);
pragma Assert (Success);
STPO.Initialize (T);
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2022-01-05 11:35 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-01-05 11:35 [gcc r12-6244] [Ada] Remove extra whitespace in declarations and parameters lists Pierre-Marie de Rodat
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).