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

FpDebug: provide trace debugln for errors in worker threads

Browse Source
This commit is contained in:
Martin 2022-05-12 02:01:45 +02:00
parent a68a32a9b5
commit ef032fca2d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpdebug/fpdbgutil.pp
View File

@ -865,6 +865,7 @@ begin
on E: Exception do begin
WorkItem.FError := E;
DebugLn(FQueue.FLogGroup or DBG_ERRORS, '%s!%s Thread-Workitem raised exception: "%s" => %s: "%s"', [dbgsThread, DbgSTime, WorkItem.DebugText, E.Classname, E.Message]);
DumpExceptionBackTrace(FQueue.FLogGroup or DBG_ERRORS);
end;
end;
try