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

lcl: inline DumpStack

Browse Source 
git-svn-id: trunk@51660 -
This commit is contained in:
mattias 2016-02-19 08:59:58 +00:00
parent 3fca9d4689
commit 19299db032
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lclproc.pas
View File

@ -159,7 +159,9 @@ function StrToDouble(const s: string): double;
procedure RaiseGDBException(const Msg: string);
procedure RaiseAndCatchException;
procedure DumpExceptionBackTrace;
procedure DumpStack;
{$IFnDEF WithOldDebugln}
procedure DumpStack; inline;
{$ENDIF}
function GetStackTrace(UseCache: boolean): string;
procedure GetStackTracePointers(var AStack: TStackTracePointers);
function StackTraceAsString(const AStack: TStackTracePointers;