U416-030 Fix Change Subp Signatures refactorings

Fixes the Change Parameter Mode and Remove Parameter refactoring tools
when these are applied to a range of parameters instead of an unique.
Without this fix, the refactorings are only applied to the first
parameter in the range.
Add a test case for each refactoring.

Author: joaopsazevedo

source/ada/lsp-ada_handlers-refactor_change_parameter_mode.adb

@@ -165,7 +165,7 @@ package body LSP.Ada_Handlers.Refactor_Change_Parameter_Mode is
         (Context           => Context.all,
          Where             => ((uri => Where.uri), Where.span.first),
          First_Param_Index => LSP.Types.LSP_Number (Parameters_Indices.First),
-         Last_Param_Index  => LSP.Types.LSP_Number (Parameters_Indices.First),
+         Last_Param_Index  => LSP.Types.LSP_Number (Parameters_Indices.Last),
          New_Mode          => Image (New_Mode));
 
       Pointer.Set (Self);

source/ada/lsp-ada_handlers-refactor_remove_parameter.adb

@@ -103,7 +103,7 @@ package body LSP.Ada_Handlers.Refactor_Remove_Parameter is
         (Context           => Context.all,
          Where             => ((uri => Where.uri), Where.span.first),
          First_Parameter => LSP.Types.LSP_Number (Parameters_Indices.First),
-         Last_Parameter  => LSP.Types.LSP_Number (Parameters_Indices.First));
+         Last_Parameter  => LSP.Types.LSP_Number (Parameters_Indices.Last));
 
       Pointer.Set (Self);
 

testsuite/ada_lsp/U416-030.refactor_change_parameter_mode_0/default.gpr

@@ -0,0 +1,3 @@
+project Default is
+   for Main use ("main.adb");
+end Default;

testsuite/ada_lsp/U416-030.refactor_change_parameter_mode_0/main.adb

@@ -0,0 +1,10 @@
+procedure Main is
+    procedure Foo (A, B: Integer; C: Float);
+
+    procedure Foo (A, B: Integer; C: Float) is
+    begin
+        null;
+    end Foo;
+begin
+    Foo (1, 2, 3.0);
+end Main;