From 49f0d121cd5ddfa96e1935add7f4d6b367677c9c Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Sat, 29 Sep 2012 19:11:40 +0000
Subject: [PATCH] LCL, update tracegdicalls to use GetLineInfo from LCLProc

git-svn-id: trunk@38909 -
---
 lcl/interfaces/gtk2/gtk2widgetset.inc | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/lcl/interfaces/gtk2/gtk2widgetset.inc b/lcl/interfaces/gtk2/gtk2widgetset.inc
index db2a9203df..71c138b81f 100644
--- a/lcl/interfaces/gtk2/gtk2widgetset.inc
+++ b/lcl/interfaces/gtk2/gtk2widgetset.inc
@@ -1499,15 +1499,10 @@ end;
 {$ifdef TraceGdiCalls}
 procedure DumpBackTrace(BackTrace: TCallBacksArray);
 var
-  func,source: shortString;
-  line: longint;
-  i: integer;
+  i: Integer;
 begin
-  for i:=0 to MaxCallBacks do begin
-    LineInfo.GetLineInfo(longWord(BackTrace[i]), Func, source, line);
-    DebugLn('$', Hexstr(LongInt(BackTrace[i]),8),'  ', Func, ',  line ',
-      dbgs(line),' of ',Source);
-  end;
+  for i:=0 to MaxCallBacks do
+    Debugln(GetLineInfo(BackTrace[i], false));
 end;
 
 procedure FillStackAddrs(bp: pointer; BackTraces: PCallBacksArray);