We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 874fa63 commit bb1804bCopy full SHA for bb1804b
source/ada/lsp-ada_handlers-project_loading.adb
@@ -350,6 +350,15 @@ package body LSP.Ada_Handlers.Project_Loading is
350
-- project.
351
Self.Project_Status.GPR2_Messages := Self.Project_Tree.Log_Messages.all;
352
Self.Project_Status.Project_File := Project_File;
353
+ Self.Tracer.Trace ("GPR2 Log Messages:");
354
+ for Msg of Self.Project_Status.GPR2_Messages loop
355
+ declare
356
+ Location : constant String := Msg.Sloc.Format (Full_Path_Name => True);
357
+ Message : constant String := Msg.Message;
358
+ begin
359
+ Self.Tracer.Trace (Location & " " & Message);
360
+ end;
361
+ end loop;
362
363
if Self.Project_Status.Load_Status /= Status
364
or else not Self.Project_Tree.Is_Defined
0 commit comments