* removed some unused variables

git-svn-id: trunk@8399 -

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

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 }

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