From acd485d5fb23f1ed6f23b883e61aba718c68094f Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 24 Sep 2006 17:48:52 +0000
Subject: [PATCH]   * removed some unused and assigned-but-not-used variables

git-svn-id: trunk@4719 -
---
 compiler/cgobj.pas | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/compiler/cgobj.pas b/compiler/cgobj.pas
index a8a973018c..178d62dbaa 100644
--- a/compiler/cgobj.pas
+++ b/compiler/cgobj.pas
@@ -1157,7 +1157,7 @@ implementation
 
     procedure tcg.a_load_subsetref_regs_index(list: TAsmList; subsetsize: tcgsize; loadbitsize: byte; const sref: tsubsetreference; valuereg, extra_value_reg: tregister);
       var
-        tmpreg, maskreg: tregister;
+        tmpreg: tregister;
       begin
         tmpreg := getintregister(list,OS_INT);
         if (target_info.endian = endian_big) then
@@ -1218,10 +1218,10 @@ implementation
     procedure tcg.a_load_subsetref_reg(list : TAsmList; subsetsize, tosize: tcgsize; const sref: tsubsetreference; destreg: tregister);
       var
         tmpref: treference;
-        valuereg,tmpreg,maskreg,extra_value_reg: tregister;
+        valuereg,extra_value_reg: tregister;
         tosreg: tsubsetregister;
         loadsize: tcgsize;
-        loadbitsize, restbits: byte;
+        loadbitsize: byte;
         extra_load: boolean;
       begin
 
@@ -1255,7 +1255,6 @@ implementation
                   internalerror(2006081510);
                 if (target_info.endian = endian_big) then
                   begin
-                    tmpreg := cg.getintregister(list,OS_INT);
                     a_op_reg_reg(list,OP_SHL,OS_INT,sref.bitindexreg,valuereg);
                     a_op_const_reg(list,OP_SHR,OS_INT,loadbitsize-sref.bitlen,valuereg);
                   end
@@ -1310,7 +1309,6 @@ implementation
         tosreg, fromsreg: tsubsetregister;
         tmpref: treference;
         loadsize: tcgsize;
-        bitmask: aint;
         loadbitsize: byte;
         extra_load: boolean;
       begin