paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 14:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazLogger: Check the callback in a more thread save manner

Browse Source 
git-svn-id: trunk@60265 -
This commit is contained in:
martin 2019-01-31 22:24:21 +00:00
parent 131d04802a
commit 30146193bb
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazutils/lazlogger.pas
View File

@ -711,6 +711,7 @@ end;
procedure TLazLoggerFile.DoDbgOut(s: string);
var
Handled: Boolean;
CB: TLazLoggerWriteEvent;
begin
if not IsInitialized then Init;
@ -729,10 +730,11 @@ begin
FDebugNestAtBOL := (s[length(s)] in [#10,#13]);
end;
if OnDbgOut <> nil then
CB := OnDbgOut;
if CB <> nil then
begin
Handled := False;
OnDbgOut(Self, s, Handled);
CB(Self, s, Handled);
if Handled then
Exit;
end;
@ -743,6 +745,7 @@ end;
procedure TLazLoggerFile.DoDebugLn(s: string);
var
Handled: Boolean;
CB: TLazLoggerWriteEvent;
begin
if not IsInitialized then Init;
@ -753,10 +756,11 @@ begin
end;
FDebugNestAtBOL := True;
if OnDebugLn <> nil then
CB := OnDebugLn;
if CB <> nil then
begin
Handled := False;
OnDebugLn(Self, s, Handled);
CB(Self, s, Handled);
if Handled then
Exit;
end;