Replace GPR2 Reporter to avoid warnings/errors

on stderr/stdout while locading fallback context or projects.

Ref #1594

Author: reznikmm

source/ada/lsp-ada_handlers-project_loading.adb

@@ -855,12 +855,13 @@ package body LSP.Ada_Handlers.Project_Loading is
       Project_Tree : in out GPR2.Project.Tree.Object;
       Success      : out Boolean)
    is
-      Project : GPR2.Project.Tree.View_Builder.Object :=
+      Project  : GPR2.Project.Tree.View_Builder.Object :=
         GPR2.Project.Tree.View_Builder.Create
           (Project_Dir => GPR2.Path_Name.Create_Directory ("."),
            Name        => Name);
-      Values  : GPR2.Containers.Value_List;
-      Opts    : GPR2.Options.Object;
+      Values   : GPR2.Containers.Value_List;
+      Opts     : GPR2.Options.Object;
+      Reporter : GPR2_Reporter;
    begin
       Project_Tree.Unload;
       --  Load all the dirs
@@ -878,7 +879,8 @@ package body LSP.Ada_Handlers.Project_Loading is
           (Project,
            Opts,
            With_Runtime     => True,
-           Absent_Dir_Error => GPR2.No_Error);
+           Absent_Dir_Error => GPR2.No_Error,
+           Reporter         => Reporter);
 
       if Success then
          Project_Tree.Update_Sources;

testsuite/ada_lsp/Did_Rename_Files.context_corruption/test.json

@@ -684,6 +684,20 @@
                         }
                      },
                      "alsKind": ["reference"]
+                  },
+                  {
+                     "uri": "$URI{main.adb}",
+                     "range": {
+                        "start": {
+                           "line": 4,
+                           "character": 12
+                        },
+                        "end": {
+                           "line": 4,
+                           "character": 13
+                        }
+                     },
+                     "alsKind": ["call"]
                   }
                ]
             }