paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 19:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LeakView: mem leak

Browse Source 
git-svn-id: trunk@58385 -
This commit is contained in:
martin 2018-06-23 10:33:09 +00:00
parent d69dbdadfb
commit 4adec356bf
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/leakview/leakinfo.pas
View File

@ -768,10 +768,7 @@ begin
if IsValgrindLine(Trc[TrcIndex]) and IsHeaderLine(TrcIndex) // add valgrind headers if IsValgrindLine(Trc[TrcIndex]) and IsHeaderLine(TrcIndex) // add valgrind headers
then begin then begin
NewLine := TStackLine.Create; // No reference
trace.RawStackData := Trc[TrcIndex]; // raw stack trace data trace.RawStackData := Trc[TrcIndex]; // raw stack trace data
// trace.Add(NewLine);
NewLine.RawLineData := Trc[Trcindex]; // raw stack line data
inc(Trcindex); inc(Trcindex);
end end
else else