paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 09:29:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

LeakView: clean up

Browse Source 
git-svn-id: trunk@24016 -
This commit is contained in:
martin 2010-03-15 18:05:32 +00:00
parent 9e9e810073
commit 1f0338e1d3
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/leakview/heaptrcview.pas
View File

@ -182,11 +182,8 @@ var
trace : TStackTrace; trace : TStackTrace;
nd : TTreeNode; nd : TTreeNode;
hash : TFPObjectHashTable; hash : TFPObjectHashTable;
hnode : THTObjectNode;
list : TFPObjectList;
hashed : TStackTrace; hashed : TStackTrace;
s : string; s : string;
cnt : integer;
begin begin
hash := TFPObjectHashTable.Create(false); hash := TFPObjectHashTable.Create(false);
try try
@ -294,7 +291,6 @@ end;
procedure THeapTrcViewForm.ChangeTreeText; procedure THeapTrcViewForm.ChangeTreeText;
var var
i, j : Integer; i, j : Integer;
idx : Integer;
useRaw : Boolean; useRaw : Boolean;
nd : TTreeNode; nd : TTreeNode;
trace : TStackTrace; trace : TStackTrace;
@ -308,7 +304,6 @@ begin
trace := TStackTrace(nd.Data); trace := TStackTrace(nd.Data);
nd.Text := GetStackTraceText(trace, useRaw); nd.Text := GetStackTraceText(trace, useRaw);
for j := 0 to nd.Count - 1 do begin for j := 0 to nd.Count - 1 do begin
idx := Integer(nd.Items[j].Data);
nd.Items[j].Text := GetStackLineText( trace.Lines[j], useRaw ); nd.Items[j].Text := GetStackLineText( trace.Lines[j], useRaw );
end; end;
end; end;