paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:50:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

* emit a far jmp in the interface wrapper on i8086 in far code memory models

Browse Source 
git-svn-id: trunk@25812 -
This commit is contained in:
nickysn 2013-10-17 21:55:45 +00:00
parent e0e4c04456
commit 83aa50de74
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/i8086/cgcpu.pas
View File

@ -1817,7 +1817,15 @@ unit cgcpu;
else
begin
lab:=current_asmdata.RefAsmSymbol(procdef.mangledname);
list.concat(taicpu.op_sym(A_JMP,S_NO,lab))
if current_settings.x86memorymodel in x86_far_code_models then
begin
reference_reset_symbol(href,lab,0,sizeof(pint));
href.refaddr:=addr_far;
list.concat(taicpu.op_ref(A_JMP,S_NO,href));
end
else
list.concat(taicpu.op_sym(A_JMP,S_NO,lab));
end;
List.concat(Tai_symbol_end.Createname(labelname));