From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 3 Oct 2023 19:06:41 +0000 (+0200)
Subject: ada: Fix style in declaration of routine for expansion of packed arrays
X-Git-Tag: basepoints/gcc-15~4948
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=3335c4cdc7916fc1b000ed0c35da65d8f958370f;p=thirdparty%2Fgcc.git

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.
---

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;