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

* fixed size used for left in in_smallset (it's been forced in a register

Browse Source 
of size opdef a few lines before)

git-svn-id: trunk@32410 -
This commit is contained in:
Jonas Maebe 2015-11-21 12:36:58 +00:00
parent 1284032765
commit c8a5994e2e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgset.pas
View File

@ -196,7 +196,7 @@ implementation
left.resultdef, opdef, true);
register_maybe_adjust_setbase(current_asmdata.CurrAsmList, left.location,
setbase);
hlcg.a_bit_test_reg_loc_reg(current_asmdata.CurrAsmList, left.resultdef,
hlcg.a_bit_test_reg_loc_reg(current_asmdata.CurrAsmList, opdef,
right.resultdef, resultdef, left.location.register, right.location,
location.register);
end;