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

+ implemented tcg8086.a_call_reg_far; very hacky, but still better than doing a near call, when it should be far

Browse Source 
git-svn-id: trunk@24856 -
This commit is contained in:
nickysn 2013-06-09 22:16:40 +00:00
parent 62316da236
commit b81f0ab50d
1 changed files with 35 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/i8086/cgcpu.pas
View File

@ -47,6 +47,8 @@ unit cgcpu;
procedure a_call_name_far(list : TAsmList;const s : string; weak: boolean); procedure a_call_name_far(list : TAsmList;const s : string; weak: boolean);
procedure a_call_name_static(list : TAsmList;const s : string);override; procedure a_call_name_static(list : TAsmList;const s : string);override;
procedure a_call_name_static_far(list : TAsmList;const s : string); procedure a_call_name_static_far(list : TAsmList;const s : string);
procedure a_call_reg(list : TAsmList;reg : tregister);override;
procedure a_call_reg_far(list : TAsmList;reg : tregister);
procedure a_call_ref(list : TAsmList;ref : treference);override; procedure a_call_ref(list : TAsmList;ref : treference);override;
procedure a_call_ref_far(list : TAsmList;ref : treference); procedure a_call_ref_far(list : TAsmList;ref : treference);
@ -105,7 +107,8 @@ unit cgcpu;
globals,verbose,systems,cutils, globals,verbose,systems,cutils,
paramgr,procinfo,fmodule, paramgr,procinfo,fmodule,
rgcpu,rgx86,cpuinfo, rgcpu,rgx86,cpuinfo,
symtype,symsym; symtype,symsym,
tgobj;
function use_push(const cgpara:tcgpara):boolean; function use_push(const cgpara:tcgpara):boolean;
begin begin
@ -210,6 +213,37 @@ unit cgcpu;
end; end;
procedure tcg8086.a_call_reg(list: TAsmList; reg: tregister);
begin
if current_settings.x86memorymodel in x86_far_code_models then
a_call_reg_far(list,reg)
else
a_call_reg_near(list,reg);
end;
procedure tcg8086.a_call_reg_far(list: TAsmList; reg: tregister);
var
href: treference;
begin
{ unfortunately, x86 doesn't have a 'call far reg:reg' instruction, so }
{ we have to use a temp }
tg.gettemp(list,4,2,tt_normal,href);
{ HACK!!! at this point all registers are allocated, due to the fact that
in the pascal calling convention, all registers are caller saved. This
causes the register allocator to fail on the next move instruction, so we
temporarily deallocate 2 registers.
TODO: figure out a better way to do this. }
cg.ungetcpuregister(list,NR_BX);
cg.ungetcpuregister(list,NR_SI);
a_load_reg_ref(list,OS_32,OS_32,reg,href);
cg.getcpuregister(list,NR_BX);
cg.getcpuregister(list,NR_SI);
a_call_ref_far(list,href);
tg.ungettemp(list,href);
end;
procedure tcg8086.a_call_ref(list: TAsmList; ref: treference); procedure tcg8086.a_call_ref(list: TAsmList; ref: treference);
begin begin
if current_settings.x86memorymodel in x86_far_code_models then if current_settings.x86memorymodel in x86_far_code_models then