File tree Expand file tree Collapse file tree 2 files changed +5
-2
lines changed Expand file tree Collapse file tree 2 files changed +5
-2
lines changed Original file line number Diff line number Diff line change @@ -394,7 +394,8 @@ begin
394394 " >"
395395 & (if VSS.Command_Line.Is_Specified (Language_GPR_Option)
396396 then " gpr_ls" else " ada_ls" )
397- & " _log.$T.log:buffer_size=0" & Ada.Characters.Latin_1.LF
397+ & " _log.$T.log:buffer_size=0:buffer_size=0"
398+ & Ada.Characters.Latin_1.LF
398399 & " ALS.MAIN=yes" & Ada.Characters.Latin_1.LF
399400 & " ALS.IN=no" & Ada.Characters.Latin_1.LF
400401 & " ALS.OUT=no" & Ada.Characters.Latin_1.LF;
Original file line number Diff line number Diff line change @@ -237,7 +237,9 @@ package body LSP.Ada_Handlers is
237237 -- Browse the log files in reverse timestamp order
238238 for F of reverse Files.all loop
239239 -- Filter out files like traces.cfg
240- if GNATCOLL.Utils.Ends_With (+F.Base_Name, " .log" ) then
240+ if GNATCOLL.Utils.Ends_With (+F.Base_Name, " .log" )
241+ or else GNATCOLL.Utils.Ends_With (+F.Base_Name, " .txt" )
242+ then
241243 Cpt := Cpt + 1 ;
242244 -- Delete the old logs
243245 if Cpt > Self.Configuration.Log_Threshold then
You can’t perform that action at this time.
0 commit comments