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

LeakView: Fix 1st line of trace without header

Browse Source 
git-svn-id: trunk@44189 -
This commit is contained in:
martin 2014-02-21 00:31:56 +00:00
parent 5b26ebd71a
commit 56a5db7ce2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/leakview/leakinfo.pas
View File

@ -418,7 +418,8 @@ begin
trace.BlockSize := 0; trace.BlockSize := 0;
end; end;
inc(TrcIndex); if not IsTraceLine(Trc[TrcIndex]) then
inc(TrcIndex);
while (TrcIndex < Trc.Count) and (Pos(CallTracePrefix, Trc[TrcIndex]) = 0) and while (TrcIndex < Trc.Count) and (Pos(CallTracePrefix, Trc[TrcIndex]) = 0) and
(Pos(RawTracePrefix, Trc[TrcIndex]) = 0) (Pos(RawTracePrefix, Trc[TrcIndex]) = 0)
do begin do begin