Skip to content

Commit bb1804b

Browse files
committed
Log GPR2 project loading messages
1 parent 874fa63 commit bb1804b

File tree

1 file changed

+9
-0
lines changed

1 file changed

+9
-0
lines changed

source/ada/lsp-ada_handlers-project_loading.adb

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -350,6 +350,15 @@ package body LSP.Ada_Handlers.Project_Loading is
350350
-- project.
351351
Self.Project_Status.GPR2_Messages := Self.Project_Tree.Log_Messages.all;
352352
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;
353362

354363
if Self.Project_Status.Load_Status /= Status
355364
or else not Self.Project_Tree.Is_Defined

0 commit comments

Comments
 (0)