File tree Expand file tree Collapse file tree 1 file changed +8
-5
lines changed Expand file tree Collapse file tree 1 file changed +8
-5
lines changed Original file line number Diff line number Diff line change @@ -4915,17 +4915,20 @@ package body LSP.Ada_Handlers is
4915
4915
else
4916
4916
Create_Context_For_Non_Aggregate (Self.Project_Tree.Root_Project);
4917
4917
end if ;
4918
+
4918
4919
exception
4919
- when E : Invalid_Project =>
4920
+ when E : others =>
4920
4921
Self.Release_Contexts_And_Project_Info;
4921
4922
4922
4923
Self.Trace.Trace (E);
4923
4924
Errors.a_type := LSP.Messages.Error;
4924
4925
4925
- Errors.message.Append
4926
- (VSS.Strings.Conversions.To_Virtual_String
4927
- (" Unable to load project file: " &
4928
- String (GPR.Full_Name.all ) & Ada.Characters.Latin_1.LF));
4926
+ On_Error
4927
+ (" Unable to load project file: " &
4928
+ String (GPR.Full_Name.all ) & Ada.Characters.Latin_1.LF);
4929
+ On_Error
4930
+ (Ada.Exceptions.Exception_Message (E) &
4931
+ Ada.Characters.Latin_1.LF);
4929
4932
4930
4933
-- The project was invalid: fallback on loading the implicit
4931
4934
-- project.
You can’t perform that action at this time.
0 commit comments