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 ad12aec1e23e21a3b3416f60fbf3ab0fb3e594e9..2d3abbd349db8abb17117230cd2c0dd17b220b5f 100644 (file)
--- 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;