From 19299db032a7ad3d24dc2a146a08dfbefb95036b Mon Sep 17 00:00:00 2001 From: mattias Date: Fri, 19 Feb 2016 08:59:58 +0000 Subject: [PATCH] lcl: inline DumpStack git-svn-id: trunk@51660 - --- lcl/lclproc.pas | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas index 4580f310b8..f9cebb935c 100644 --- a/lcl/lclproc.pas +++ b/lcl/lclproc.pas @@ -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;