Merge remote branch 'origin/master' into edge

(no-precommit-check no-tn-check)

Author: mergerepo

source/ada/lsp-ada_handlers.adb

@@ -101,6 +101,7 @@ package body LSP.Ada_Handlers is
    --  Convenient constants
 
    Line_Feed : constant Character := Ada.Characters.Latin_1.LF;
+   Backspace : constant Character := Ada.Characters.Latin_1.BS;
 
    function "+" (Text : Ada.Strings.UTF_Encoding.UTF_8_String)
      return LSP.Types.LSP_String renames
@@ -696,7 +697,7 @@ package body LSP.Ada_Handlers is
       Response.result.capabilities.signatureHelpProvider :=
         (True,
          (triggerCharacters   => (True, Empty_Vector & (+",") & (+"(")),
-          retriggerCharacters => (True, Empty_Vector & (+(1 => ASCII.BS))),
+          retriggerCharacters => (True, Empty_Vector & (+(1 => Backspace))),
           workDoneProgress    => LSP.Types.None));
       Response.result.capabilities.completionProvider :=
         (True,
@@ -2667,7 +2668,7 @@ package body LSP.Ada_Handlers is
            --  Check if the trigger character is a backspace
              ((not Value.context.Value.triggerCharacter.Is_Set)
               or else Value.context.Value.triggerCharacter.Value /=
-                (+(1 => ASCII.BS))))
+                (+(1 => Backspace))))
       then
          --  At this point, we are filtering the previous signatures:
          --  * Don't recompute the list of signature

source/server/lsp-servers.ads

@@ -201,9 +201,14 @@ private
    type Input_Queue_Access is access Message_Queues.Queue;
    type Output_Queue_Access is access Message_Queues.Queue;
 
+   Processing_Task_Stack_Size : constant := 32 * 1_024 * 1_024;
+   --  Size of the stack for request processing task. Set it to high enough
+   --  value to prevent crashes on deep nesting calls inside LAL.
+
    --  The processing task
    task type Processing_Task_Type
      (Server : access LSP.Servers.Server)
+     with Storage_Size => Processing_Task_Stack_Size
    is
       entry Start
         (Request      : not null LSP.Server_Request_Handlers