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

LazLogger: fixed thread race condition. If the logger is destroyed, and threads have pending sync calls. (only observed with custom created loggers). Fix requires fpc 3.2, see issue #0030567

Browse Source 
git-svn-id: trunk@62036 -
This commit is contained in:
martin 2019-10-11 12:07:22 +00:00
parent e6a89c7f7c
commit 57e0e15e0f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazlogger.pas
View File

@ -255,6 +255,8 @@ end;
destructor TLazLoggerFileHandleMainThread.Destroy;
begin
// Call Syncronize (in the main thread) before destroy to catch any pending log
TThread.RemoveQueuedEvents(@MainThreadWrite);
inherited Destroy;
DoneCriticalsection(FWriteToFileLock);
end;