paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 07:49:33 +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

3
components/leakview/leakinfo.pas
View File

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