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

LeakView: handle gdb lines mangled by mantis

Browse Source 
git-svn-id: trunk@44192 -
This commit is contained in:
martin 2014-02-21 02:28:47 +00:00
parent f50fead924
commit 0b52036343
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/leakview/leakinfo.pas
View File

@ -253,7 +253,9 @@ begin
// gdb line? // gdb line?
i := Pos('#', s); i := Pos('#', s);
if (i > 0) and (i < 5) and (i < Length(s)) and (s[i+1] in ['0'..'9']) then begin if (i < 1) and (copy(s,1,4) = '0000') then i := 4; // mantis mangled line
if (i > 0) and (i < 5) and (i < Length(s)) and (s[i+1] in ['0'..'9'])
then begin
inc(i); inc(i);
while (i <= Length(s)) and (s[i] in ['0'..'9']) do inc(i); while (i <= Length(s)) and (s[i] in ['0'..'9']) do inc(i);
while (i <= Length(s)) and (s[i] in [' ', #9]) do inc(i); while (i <= Length(s)) and (s[i] in [' ', #9]) do inc(i);
@ -325,6 +327,14 @@ begin
( (pos(' at ', s) > 1) or (pos(' from ', s) > 1) ); ( (pos(' at ', s) > 1) or (pos(' from ', s) > 1) );
exit; exit;
end; end;
if copy(s,1,4) = '0000' then begin // leave 3 digits for pos
// mantis mangled gdb ?
i := pos(':', s);
Result := ( ((i > 1) and (i < Length(s)) and (s[i+1] in ['0'..'9'])) or
(pos(' in ', s) > 1) ) and
( (pos(' at ', s) > 1) or (pos(' from ', s) > 1) );
exit;
end;
i := 1; i := 1;
l := length(SubStr); l := length(SubStr);