From 1f0338e1d3c070ca29fd2f409c4de9c7baa17cbb Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 15 Mar 2010 18:05:32 +0000
Subject: [PATCH] LeakView: clean up

git-svn-id: trunk@24016 -
---
 components/leakview/heaptrcview.pas | 5 -----
 1 file changed, 5 deletions(-)

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