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

dump stacktrace if an exception occurs while running a tool

Browse Source 
git-svn-id: trunk@8320 -
This commit is contained in:
vincents 2005-12-14 21:01:43 +00:00
parent b9c2988810
commit a57029a349
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/exttooldialog.pas
View File

@ -365,6 +365,8 @@ begin
end; end;
except except
on e: Exception do begin on e: Exception do begin
DebugLn('TExternalToolList.Run ',lisExtToolFailedToRunTool, ' ', E.Message);
DumpExceptionBackTrace;
Result:=MessageDlg(lisExtToolFailedToRunTool, Result:=MessageDlg(lisExtToolFailedToRunTool,
Format(lisExtToolUnableToRunTheTool, ['"', Title, '"', #13, e.Message] Format(lisExtToolUnableToRunTheTool, ['"', Title, '"', #13, e.Message]
), ),