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

LCL: application: remove DebugInvalidExceptions

Browse Source 
git-svn-id: trunk@58070 -
This commit is contained in:
ondrej 2018-06-01 19:52:08 +00:00
parent 63946f4466
commit e5bd2976ba
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/application.inc
View File

@ -1193,11 +1193,6 @@ procedure TApplication.HandleException(Sender: TObject);
Buf: ShortString;
begin
SetLength(Buf,ExceptionErrorMessage(ExObject,ExAddr,@Buf[1],255));
{$IFDEF DebugInvalidExceptions}
DebugLn('TApplication.HandleException Strange Exception');
DebugLn(Buf);
DumpExceptionBackTrace;
{$ENDIF}
if Assigned(SysUtils.OnShowException) then
SysUtils.OnShowException(Buf);
end;