Project loading failing when projects were sharing the same name

Contexts were creating using the base_name of the project which
can create conflict when multiple project are sharing the same
name. Use the project full path instead.

For eng/ide/gnatstudio#305

Author: Boulanger

source/ada/lsp-ada_contexts.adb

@@ -729,8 +729,11 @@ package body LSP.Ada_Contexts is
       end Pretty_Printer_Setup;
 
    begin
+      --  Use the full path for the ID to avoid conflict when project are
+      --  sharing the same name. For example for GNATTest stubs.
       Self.Id := VSS.Strings.Conversions.To_Virtual_String
-                   (String (Root.Name));
+        (URIs.Conversions.From_File
+           (String (Root.Path_Name.Value)));
       Self.Tree := Tree.Reference;
       Self.Charset := Ada.Strings.Unbounded.To_Unbounded_String (Charset);
 

source/ada/lsp-ada_handlers-project_loading.adb

@@ -299,6 +299,8 @@ package body LSP.Ada_Handlers.Project_Loading is
             Root    => View,
             Charset => VSS.Strings.Conversions.To_UTF_8_String (Charset));
 
+         Self.Tracer.Trace ("Prepend Context Id: "
+                            & VSS.Strings.Conversions.To_UTF_8_String (C.Id));
          Self.Contexts.Prepend (C);
       end Create_Context_For_Non_Aggregate;