Skip to content

Commit 1ff37a0

Browse files
Merge branch 'topic/#1429' into 'master'
Create optional ALS.MAIN.LOGGER trace for parameters See merge request eng/ide/ada_language_server!1759
2 parents 5e62ed2 + 1d3d1b5 commit 1ff37a0

File tree

1 file changed

+6
-2
lines changed

1 file changed

+6
-2
lines changed

source/ada/lsp-ada_driver.adb

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -230,6 +230,10 @@ procedure LSP.Ada_Driver is
230230
LSP.GNATCOLL_Tracers.Create ("ALS.MAIN", From_Config);
231231
-- Main trace for the LSP.
232232

233+
Server_Logger_Trace : constant LSP.GNATCOLL_Tracers.Tracer :=
234+
LSP.GNATCOLL_Tracers.Create ("ALS.MAIN.LOGGER", Off);
235+
-- Trace that logs all the requests/responses parameters.
236+
233237
In_Trace : constant LSP.GNATCOLL_Tracers.Tracer :=
234238
LSP.GNATCOLL_Tracers.Create ("ALS.IN", Off);
235239
Out_Trace : constant LSP.GNATCOLL_Tracers.Tracer :=
@@ -499,8 +503,8 @@ begin
499503
end;
500504
end if;
501505

502-
In_Stream.Initialize (Trace_Handle (Server_Trace));
503-
Out_Stream.Initialize (Trace_Handle (Server_Trace));
506+
In_Stream.Initialize (Trace_Handle (Server_Logger_Trace));
507+
Out_Stream.Initialize (Trace_Handle (Server_Logger_Trace));
504508

505509
Tracer.Initialize (Server_Trace, In_Trace, Out_Trace);
506510
Tracer.Trace ("ALS version: " & $VERSION & " (" & $BUILD_DATE & ")");

0 commit comments

Comments
 (0)