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

* on i8086, for BP7 compatibility, assemble 'call/jmp dword [ref]' as a far call

Browse Source 
git-svn-id: trunk@31945 -
This commit is contained in:
nickysn 2015-10-05 00:47:17 +00:00
parent ed972c4f99
commit b3c2765da9
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/x86/rax86int.pas
View File

@ -2164,14 +2164,20 @@ Unit Rax86int;
(instr.operands[1].typesize<>0) then
instr.operands[1].setsize(instr.operands[1].typesize,false);
{$ifdef i8086}
{ convert 'call symbol' to 'call far symbol' for memory models with far code }
for i:=1 to operandnum do
with instr.operands[i].opr do
if (instr.opcode=A_CALL) and (typ=OPR_SYMBOL) and (symbol<>nil) and (symbol.typ<>AT_DATA) then
if current_settings.x86memorymodel in x86_far_code_models then
begin
instr.opsize:=S_FAR;
end;
begin
{ convert 'call symbol' to 'call far symbol' for memory models with far code }
if (instr.opcode=A_CALL) and (typ=OPR_SYMBOL) and (symbol<>nil) and (symbol.typ<>AT_DATA) then
if current_settings.x86memorymodel in x86_far_code_models then
begin
instr.opsize:=S_FAR;
end;
{ convert 'call/jmp dword [something]' to 'call/jmp far [something]' (BP7 compatibility) }
if (instr.opcode in [A_CALL,A_JMP]) and (instr.opsize=S_NO) and
(typ in [OPR_LOCAL,OPR_REFERENCE]) and (instr.operands[i].size=OS_32) then
instr.opsize:=S_FAR;
end;
{$endif i8086}
if (MemRefInfo(instr.opcode).ExistsSSEAVX) and
(MemRefInfo(instr.opcode).MemRefSize in MemRefSizeInfoVMems) then