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
394
394
" >"
395
395
& (if VSS.Command_Line.Is_Specified (Language_GPR_Option)
396
396
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
398
399
& " ALS.MAIN=yes" & Ada.Characters.Latin_1.LF
399
400
& " ALS.IN=no" & Ada.Characters.Latin_1.LF
400
401
& " 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
237
237
-- Browse the log files in reverse timestamp order
238
238
for F of reverse Files.all loop
239
239
-- 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
241
243
Cpt := Cpt + 1 ;
242
244
-- Delete the old logs
243
245
if Cpt > Self.Configuration.Log_Threshold then
You can’t perform that action at this time.
0 commit comments