From 003a30db6bb1914e9c3cd5a1f715e2cb323e8edb Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 8 May 2012 17:17:01 +0000
Subject: [PATCH]   - reverted r21246, it breaks tcalext3/5 on x86

git-svn-id: trunk@21258 -
---
 compiler/cgobj.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/cgobj.pas b/compiler/cgobj.pas
index ef3be755ca..32baf50cdd 100644
--- a/compiler/cgobj.pas
+++ b/compiler/cgobj.pas
@@ -1300,7 +1300,9 @@ implementation
              bitmask := high(aword);
            a_op_const_reg(list,OP_AND,sreg.subsetregsize,tcgint(bitmask),tmpreg);
          end;
-       a_load_reg_reg(list,sreg.subsetregsize,tosize,tmpreg,destreg);
+       tmpreg := makeregsize(list,tmpreg,subsetsize);
+       a_load_reg_reg(list,tcgsize2unsigned[subsetsize],subsetsize,tmpreg,tmpreg);
+       a_load_reg_reg(list,subsetsize,tosize,tmpreg,destreg);
      end;