From b02fd37fbe9337e27a5955d1503bbe28cc388616 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 8 Sep 2007 08:45:12 +0000
Subject: [PATCH]   * removed some unused variables

git-svn-id: trunk@8399 -
---
 compiler/ncginl.pas | 6 +++---
 compiler/ncgmem.pas | 4 +---
 rtl/inc/heap.inc    | 8 +++-----
 3 files changed, 7 insertions(+), 11 deletions(-)

diff --git a/compiler/ncginl.pas b/compiler/ncginl.pas
index e753886dd4..c6e17d94f0 100644
--- a/compiler/ncginl.pas
+++ b/compiler/ncginl.pas
@@ -629,9 +629,9 @@ implementation
 
     procedure Tcginlinenode.second_get_caller_frame;
 
-    var frame_ref:Treference;
-        frame_reg:Tregister;
-        use_frame_pointer:boolean;
+    var 
+      frame_reg:Tregister;
+      use_frame_pointer:boolean;
 
     begin
       if left<>nil then
diff --git a/compiler/ncgmem.pas b/compiler/ncgmem.pas
index 2638ba9b47..7f5f9f0315 100644
--- a/compiler/ncgmem.pas
+++ b/compiler/ncgmem.pas
@@ -165,8 +165,6 @@ implementation
 *****************************************************************************}
 
     procedure tcgaddrnode.pass_generate_code;
-      var
-        tmpref: treference;
       begin
          secondpass(left);
 
@@ -477,7 +475,7 @@ implementation
        var
          sref: tsubsetreference;
          offsetreg: tregister;
-         byteoffs, bitoffs, alignpower: aint;
+         alignpower: aint;
          temp : longint;
        begin
          { only orddefs are bitpacked. Even then we only need special code in }
diff --git a/rtl/inc/heap.inc b/rtl/inc/heap.inc
index cc9454f783..a52770e8e0 100644
--- a/rtl/inc/heap.inc
+++ b/rtl/inc/heap.inc
@@ -686,7 +686,6 @@ end;
 function find_free_oschunk(loc_freelists: pfreelists; 
   minsize, maxsize: ptruint; var size: ptruint): poschunk;
 var
-  pmc: pmemchunk_fixed;
   prev_poc, poc: poschunk;
   pocsize: ptruint;
 begin
@@ -730,12 +729,10 @@ var
   pmc_next  : pmemchunk_fixed;
   pmcv      : pmemchunk_var;
   poc       : poschunk;
-  prev_poc  : poschunk;
   minsize,
   maxsize,
   i         : ptruint;
   chunksize : ptruint;
-  pocsize   : ptruint;
   status    : pfpcheapstatus;
 begin
   { increase size by size needed for os block header }
@@ -1251,7 +1248,6 @@ var
   oldsize,
   currsize : ptruint;
   pcurr : pmemchunk_var;
-  pnext : pmemchunk_var;
 begin
   SysTryResizeMem := false;
 
@@ -1452,8 +1448,10 @@ end;
 procedure FinalizeHeap;
 var
   poc, poc_next: poschunk;
-  i : longint;
   loc_freelists: pfreelists;
+{$ifdef DUMP_MEM_USAGE}
+  i : longint;
+{$endif}
 begin
   loc_freelists := @freelists;
   if main_relo_freelists <> nil then