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

LCL, update tracegdicalls to use GetLineInfo from LCLProc

Browse Source 
git-svn-id: trunk@38909 -
This commit is contained in:
jesus 2012-09-29 19:11:40 +00:00
parent 8d208ba958
commit 49f0d121cd
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -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);