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

LCL: Cleanup

Browse Source 
git-svn-id: trunk@53763 -
This commit is contained in:
juha 2016-12-22 22:29:16 +00:00
parent ed0f21525e
commit 52ab6a0253
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/lclproc.pas
View File

@ -923,16 +923,6 @@ begin
end; end;
end; end;
procedure DumpAddr(Addr: Pointer);
begin
// preventing another exception, while dumping stack trace
try
DebugLn(BackTraceStrFunc(Addr));
except
DebugLn(SysBackTraceStr(Addr));
end;
end;
procedure DumpExceptionBackTrace; procedure DumpExceptionBackTrace;
begin begin
LazLogger.DumpExceptionBackTrace; LazLogger.DumpExceptionBackTrace;