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

* fixed include/exclude for byte-sized sets in registers

Browse Source 
git-svn-id: trunk@9887 -
This commit is contained in:
Jonas Maebe 2008-01-23 22:28:12 +00:00
parent f83f7785ad
commit ea22e81374
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/x86/nx86inl.pas
View File

@ -457,12 +457,14 @@ implementation
procedure tx86inlinenode.second_IncludeExclude;
var
hregister : tregister;
hregister,
hregister2: tregister;
setbase : aint;
bitsperop,l : longint;
cgop : topcg;
asmop : tasmop;
opsize : tcgsize;
opsize,
orgsize: tcgsize;
begin
if not(is_varset(tcallparanode(left).resultdef)) then
opsize:=int_cgsize(tcallparanode(left).resultdef.size)
@ -500,8 +502,11 @@ implementation
end
else
begin
orgsize:=opsize;
if opsize in [OS_8,OS_S8] then
opsize:=OS_32;
begin
opsize:=OS_32;
end;
{ determine asm operator }
if inlinenumber=in_include_x_y then
asmop:=A_BTS
@ -514,7 +519,13 @@ implementation
if (tcallparanode(left).left.location.loc=LOC_REFERENCE) then
emit_reg_ref(asmop,tcgsize2opsize[opsize],hregister,tcallparanode(left).left.location.reference)
else
emit_reg_reg(asmop,tcgsize2opsize[opsize],hregister,tcallparanode(left).left.location.register);
begin
{ second argument can't be an 8 bit register either }
hregister2:=tcallparanode(left).left.location.register;
if (orgsize in [OS_8,OS_S8]) then
hregister2:=cg.makeregsize(current_asmdata.CurrAsmList,hregister2,opsize);
emit_reg_reg(asmop,tcgsize2opsize[opsize],hregister,hregister2);
end;
end;
end;