Pass request origin when extract documentation.

Author: godunko

source/ada/lsp-ada_completions-generic_assoc.adb

@@ -516,6 +516,7 @@ package body LSP.Ada_Completions.Generic_Assoc is
       begin
          LSP.Ada_Documentation.Get_Tooltip_Text
            (Name               => Spec.Decl.P_Defining_Name,
+            Origin             => Libadalang.Analysis.No_Ada_Node,
             Style              => Context.Get_Documentation_Style,
             Declaration_Text   => Declaration_Text,
             Qualifier_Text     => Qualifier_Text,

source/ada/lsp-ada_documentation.adb

@@ -225,6 +225,7 @@ package body LSP.Ada_Documentation is
 
    procedure Get_Tooltip_Text
      (Name               : Libadalang.Analysis.Defining_Name;
+      Origin             : Libadalang.Analysis.Ada_Node'Class;
       Style              : GNATdoc.Comments.Options.Documentation_Style;
       Declaration_Text   : out VSS.Strings.Virtual_String;
       Qualifier_Text     : out VSS.Strings.Virtual_String;
@@ -250,6 +251,7 @@ package body LSP.Ada_Documentation is
 
       GNATdoc.Comments.Helpers.Get_Plain_Text_Documentation
         (Name          => Name,
+         Origin        => Origin,
          Options       => Options,
          Code_Snippet  => Decl_Lines,
          Documentation => Doc_Lines);

source/ada/lsp-ada_documentation.ads

@@ -27,6 +27,7 @@ package LSP.Ada_Documentation is
 
    procedure Get_Tooltip_Text
      (Name               : Libadalang.Analysis.Defining_Name;
+      Origin             : Libadalang.Analysis.Ada_Node'Class;
       Style              : GNATdoc.Comments.Options.Documentation_Style;
       Declaration_Text   : out VSS.Strings.Virtual_String;
       Qualifier_Text     : out VSS.Strings.Virtual_String;

source/ada/lsp-ada_documents.adb

@@ -1385,6 +1385,7 @@ package body LSP.Ada_Documents is
          begin
             LSP.Ada_Documentation.Get_Tooltip_Text
               (Name               => Name,
+               Origin             => Libadalang.Analysis.No_Ada_Node,
                Style              => Context.Get_Documentation_Style,
                Declaration_Text   => Decl_Text,
                Qualifier_Text     => Qual_Text,

source/ada/lsp-ada_handlers.adb

@@ -1986,6 +1986,7 @@ package body LSP.Ada_Handlers is
          begin
             LSP.Ada_Documentation.Get_Tooltip_Text
               (Name               => Node.As_Defining_Name,
+               Origin             => Libadalang.Analysis.No_Ada_Node,
                Style              => Self.Configuration.Documentation_Style,
                Qualifier_Text     => Qual_Text,
                Location_Text      => Loc_Text,

source/ada/lsp-ada_hover.adb

@@ -87,12 +87,9 @@ package body LSP.Ada_Hover is
       --  For the Hover request, we're only interested in the "best"
       --  response value, not in the list of values for all contexts
 
-      Defining_Name_Node : constant Libadalang.Analysis.Defining_Name :=
-        Self.Parent.Context.Imprecise_Resolve_Name (Context.all, Value);
-      Decl               : constant Libadalang.Analysis.Basic_Decl :=
-        (if Defining_Name_Node.Is_Null
-         then Libadalang.Analysis.No_Basic_Decl
-         else Defining_Name_Node.P_Basic_Decl);
+      Defining_Name_Node : Libadalang.Analysis.Defining_Name;
+      Origin_Node        : Libadalang.Analysis.Ada_Node;
+      Decl               : Libadalang.Analysis.Basic_Decl;
       --  Associated basic declaration, if any
 
       Decl_Text          : VSS.Strings.Virtual_String;
@@ -104,6 +101,16 @@ package body LSP.Ada_Hover is
    begin
       Status := LSP.Server_Jobs.Done;
 
+      Self.Parent.Context.Imprecise_Resolve_Name
+        (Context.all,
+         Value,
+         Defining_Name_Node,
+         Origin_Node);
+      Decl :=
+        (if Defining_Name_Node.Is_Null
+         then Libadalang.Analysis.No_Basic_Decl
+         else Defining_Name_Node.P_Basic_Decl);
+
       if Decl.Is_Null then
 
          --  There is no declaration for the hovered node: ask the predefined
@@ -127,6 +134,7 @@ package body LSP.Ada_Hover is
          --  the default tooltip provider, based on GNATdoc.
          LSP.Ada_Documentation.Get_Tooltip_Text
            (Name               => Defining_Name_Node,
+            Origin             => Origin_Node,
             Style              => Context.Get_Documentation_Style,
             Declaration_Text   => Decl_Text,
             Qualifier_Text     => Qualifier_Text,