paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 10:00:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazLogger: Comments / Ifdef'ed flush log

Browse Source 
git-svn-id: trunk@60244 -
This commit is contained in:
martin 2019-01-29 19:47:46 +00:00
parent 591bb0ff09
commit a9f2cac891
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazutils/lazlogger.pas
View File

@ -70,6 +70,8 @@ type
{ TLazLoggerFileHandleThreadSave { TLazLoggerFileHandleThreadSave
file operations in critical section file operations in critical section
Requires that DoOpenFile is called by main thread. Otherwise the filehandle may get closed...
} }
TLazLoggerFileHandleThreadSave = class (TLazLoggerFileHandle) TLazLoggerFileHandleThreadSave = class (TLazLoggerFileHandle)
@ -480,6 +482,7 @@ begin
if FActiveLogText = nil then exit; if FActiveLogText = nil then exit;
Write(FActiveLogText^, s); Write(FActiveLogText^, s);
{$IFDEF LAZLOGGER_FLUSH} Flush(FActiveLogText^); {$ENDIF}
if FCloseLogFileBetweenWrites then if FCloseLogFileBetweenWrites then
DoCloseFile; DoCloseFile;