paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 15:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed in-code for big endian systems and smallsets < 4 bytes

Browse Source 
(fixes tbs/tb0219 on big endian systems after r14177)

git-svn-id: trunk@14206 -
This commit is contained in:
Jonas Maebe 2009-11-17 22:05:12 +00:00
parent b732012438
commit 749e791768
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/ncgset.pas
View File

@ -390,11 +390,19 @@ implementation
{ load left in register }
location_force_reg(current_asmdata.CurrAsmList,left.location,location.size,true);
register_maybe_adjust_setbase(current_asmdata.CurrAsmList,left.location,setbase);
location_force_reg(current_asmdata.CurrAsmList,right.location,opsize,true);
{ emit bit test operation }
cg.a_bit_test_reg_reg_reg(current_asmdata.CurrAsmList,
left.location.size,right.location.size,location.size,
left.location.register,right.location.register,location.register);
{ emit bit test operation -- warning: do not use
location_force_reg() to force a set into a register, except
to a register of the same size as the set. The reason is
that on big endian systems, this would require moving the
set to the most significant part of the new register,
and location_force_register can't do that (it does not
know the type).
a_bit_test_reg_loc_reg() properly takes into account the
size of the set to adjust the register index to test }
cg.a_bit_test_reg_loc_reg(current_asmdata.CurrAsmList,
left.location.size,location.size,
left.location.register,right.location,location.register);
{ now zero the result if left > nr_of_bits_in_right_register }
hr := cg.getintregister(current_asmdata.CurrAsmList,location.size);