diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2023-10-03 21:06:41 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-11-07 10:15:01 +0100 |
| commit | 3335c4cdc7916fc1b000ed0c35da65d8f958370f (patch) | |
| tree | fe503dd91b93a5b367a039610cc723906746b784 /gcc | |
| parent | 98787e9cdd6346486d1f69a67c8bdb71aeded74b (diff) | |
| download | gcc-3335c4cdc7916fc1b000ed0c35da65d8f958370f.zip gcc-3335c4cdc7916fc1b000ed0c35da65d8f958370f.tar.gz gcc-3335c4cdc7916fc1b000ed0c35da65d8f958370f.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_pakd.adb | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index ad12aec..2d3abbd 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; |