paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed superfluous sign extension from a_load_subsetreg_reg() (the value

Browse Source 
is already sign extended at that point if required)

git-svn-id: trunk@21246 -
This commit is contained in:
Jonas Maebe 2012-05-06 14:50:38 +00:00
parent 82cf4cd89a
commit 9568693664
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cgobj.pas
View File

@ -1300,9 +1300,7 @@ implementation
bitmask := high(aword);
a_op_const_reg(list,OP_AND,sreg.subsetregsize,tcgint(bitmask),tmpreg);
end;
tmpreg := makeregsize(list,tmpreg,subsetsize);
a_load_reg_reg(list,tcgsize2unsigned[subsetsize],subsetsize,tmpreg,tmpreg);
a_load_reg_reg(list,subsetsize,tosize,tmpreg,destreg);
a_load_reg_reg(list,sreg.subsetregsize,tosize,tmpreg,destreg);
end;