From 3335c4cdc7916fc1b000ed0c35da65d8f958370f Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Tue, 3 Oct 2023 21:06:41 +0200 Subject: [PATCH] ada: Fix style in declaration of routine for expansion of packed arrays Style cleanup. gcc/ada/ * exp_pakd.adb (Setup_Inline_Packed_Array_Reference): Remove extra whitespace from the list of parameters. --- gcc/ada/exp_pakd.adb | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index ad12aec1e23e..2d3abbd349db 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -153,11 +153,11 @@ package body Exp_Pakd is -- reference the corresponding packed array type. procedure Setup_Inline_Packed_Array_Reference - (N : Node_Id; - Atyp : Entity_Id; - Obj : in out Node_Id; - Cmask : out Uint; - Shift : out Node_Id); + (N : Node_Id; + Atyp : Entity_Id; + Obj : in out Node_Id; + Cmask : out Uint; + Shift : out Node_Id); -- This procedure performs common processing on the N_Indexed_Component -- parameter given as N, whose prefix is a reference to a packed array. -- This is used for the get and set when the component size is 1, 2, 4, @@ -2472,11 +2472,11 @@ package body Exp_Pakd is ----------------------------------------- procedure Setup_Inline_Packed_Array_Reference - (N : Node_Id; - Atyp : Entity_Id; - Obj : in out Node_Id; - Cmask : out Uint; - Shift : out Node_Id) + (N : Node_Id; + Atyp : Entity_Id; + Obj : in out Node_Id; + Cmask : out Uint; + Shift : out Node_Id) is Loc : constant Source_Ptr := Sloc (N); PAT : Entity_Id; -- 2.47.2