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

* another case of the 'in' operator fixed for i8086 ('x in const', when use_small=false and genjumps=false)

Browse Source 
git-svn-id: branches/i8086@23903 -
This commit is contained in:
nickysn 2013-03-17 20:18:57 +00:00
parent d7c9603351
commit 8ca0b443b8
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/x86/nx86set.pas
View File

@ -561,6 +561,30 @@ implementation
begin
if right.location.loc=LOC_CONSTANT then
begin
{$ifdef i8086}
location.resflags:=F_C;
current_asmdata.getjumplabel(l);
current_asmdata.getjumplabel(l2);
cg.getcpuregister(current_asmdata.CurrAsmList,NR_CX);
if TCGSize2Size[left.location.size] > 2 then
left.location.size := OS_16;
cg.a_load_loc_reg(current_asmdata.CurrAsmList,OS_16,left.location,NR_CX);
hreg:=cg.getintregister(current_asmdata.CurrAsmList,OS_16);
emit_const_reg(A_MOV,S_W,1,hreg);
emit_reg_reg(A_SHL,S_W,NR_CL,hreg);
cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_CX);
cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,opsize,OC_BE,15,hreg,l);
{ reset carry flag }
current_asmdata.CurrAsmList.concat(taicpu.op_none(A_CLC,S_NO));
cg.a_jmp_always(current_asmdata.CurrAsmList,l2);
cg.a_label(current_asmdata.CurrAsmList,l);
emit_const_reg(A_TEST,S_W,right.location.value,hreg);
cg.a_label(current_asmdata.CurrAsmList,l2);
{$else i8086}
location.resflags:=F_C;
current_asmdata.getjumplabel(l);
current_asmdata.getjumplabel(l2);
@ -608,6 +632,7 @@ implementation
end;
end;
cg.a_label(current_asmdata.CurrAsmList,l2);
{$endif i8086}
end { of right.location.loc=LOC_CONSTANT }
{ do search in a normal set which could have >32 elementsm
but also used if the left side contains values > 32 or < 0 }