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

leakview: a small fix for correct parsing of leaked block size

Browse Source 
git-svn-id: trunk@25725 -
This commit is contained in:
dmitry 2010-05-28 06:59:01 +00:00
parent e5929b9523
commit 8c5e3652bc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/leakview/leakinfo.pas
View File

@ -353,7 +353,7 @@ var
hex : string; hex : string;
begin begin
i := Pos(RawTracePrefix, Trc[TrcIndex]); i := Pos(RawTracePrefix, Trc[TrcIndex]);
if (i < 0) and not IsTraceLine(Trc[TrcIndex]) then begin if (i <= 0) and not IsTraceLine(Trc[TrcIndex]) then begin
i := Pos(CallTracePrefix, Trc[TrcIndex]); i := Pos(CallTracePrefix, Trc[TrcIndex]);
if i <= 0 then Exit; if i <= 0 then Exit;