U906-019 Don't skip project reloading

if didChangeConfiguration provides a different charset.

Author: reznikmm

source/ada/lsp-ada_handlers.adb

@@ -3427,6 +3427,7 @@ package body LSP.Ada_Handlers is
 
             --  Avoid project reloading if scenario/gpr are the same
             if Self.Project_Tree = null
+              or else Self.Charset /= Charset
               or else Self.Project_Tree.Root_Project.Project_Path /= GPR
               or else Self.Scenario /= Variables
               or else not Match (Self.Project_Environment.Build_Tree_Dir,
@@ -3609,8 +3610,9 @@ package body LSP.Ada_Handlers is
       --  We're loading an actual project
       Self.Project_Status := Status;
 
-      --  Store scenario variables
+      --  Store scenario variables and charset
       Self.Scenario := Scenario;
+      Self.Charset := To_Unbounded_String (Charset);
 
       --  Now load the new project
       Errors.a_type := LSP.Messages.Warning;

source/ada/lsp-ada_handlers.ads

@@ -20,6 +20,7 @@
 
 with Ada.Containers.Hashed_Maps;
 with Ada.Containers.Hashed_Sets;
+with Ada.Strings.Unbounded;
 with VSS.String_Vectors;
 
 with GNATCOLL.VFS;    use GNATCOLL.VFS;
@@ -276,6 +277,9 @@ private
       Scenario : LSP.Types.LSP_Any;
       --  Last used scenario variables
 
+      Charset : Ada.Strings.Unbounded.Unbounded_String;
+      --  Character set from didChangeConfiguration
+
       Project_Dirs_Loaded : File_Sets.Set;
       --  The directories to load in the "implicit project"