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

Merged revision(s) 61856 #3d1601903e from trunk:

Browse Source 
LeakView: fix/improve pasting address only traces
........

git-svn-id: branches/fixes_2_0@61858 -
This commit is contained in:
martin 2019-09-10 22:56:31 +00:00
parent 66e8da0e10
commit 2db4921255
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/leakview/leakinfo.pas
View File

@ -403,9 +403,12 @@ begin
do inc(i);
if (i > l) and CheckOnlyLineStart then
exit(True);
if (i > l) or (SubStr[i] <> ' ') then exit;
if (i <= l) and (SubStr[i] <> ' ') then exit;
while (i <= l) and (SubStr[i] = ' ') do inc(i);
Result := (Pos('line', SubStr) > 0)
or CheckOnlyLineStart;
or CheckOnlyLineStart
or (i > l);
end;
end;
@ -492,7 +495,7 @@ begin
while TrcIndex < Trc.Count do begin
if PosInTrc(CallTracePrefix) or
( (TrcIndex < Trc.Count-1) and IsHeaderLine(TrcIndex) and IsTraceLine(TrcIndex+1) ) or
( (TrcIndex < Trc.Count-1) and IsHeaderLine(TrcIndex, True) and IsTraceLine(TrcIndex+1) ) or
IsTraceLine(TrcIndex)
then begin
st := TStackTrace.Create;