paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 10:19:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

- reverted r21246, it breaks tcalext3/5 on x86

Browse Source 
git-svn-id: trunk@21258 -
This commit is contained in:
Jonas Maebe 2012-05-08 17:17:01 +00:00
parent 24be42d509
commit 003a30db6b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cgobj.pas
View File

@ -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;