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

+ use 'push cs + call near' (which is both shorter and faster), instead of far

Browse Source 
call, when calling a far proc in the same segment

git-svn-id: trunk@27621 -
This commit is contained in:
nickysn 2014-04-21 00:44:45 +00:00
parent d7c5b4502f
commit 70a7ecd0fa
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/i8086/hlcgcpu.pas
View File

@ -88,7 +88,7 @@ implementation
cpubase,cpuinfo,tgobj,cgobj,cgcpu, cpubase,cpuinfo,tgobj,cgobj,cgcpu,
defutil, defutil,
symconst,symcpu, symconst,symcpu,
procinfo, procinfo,fmodule,
aasmcpu; aasmcpu;
{ thlcgcpu } { thlcgcpu }
@ -261,7 +261,18 @@ implementation
function thlcgcpu.a_call_name(list: TAsmList; pd: tprocdef; const s: TSymStr; forceresdef: tdef; weak: boolean): tcgpara; function thlcgcpu.a_call_name(list: TAsmList; pd: tprocdef; const s: TSymStr; forceresdef: tdef; weak: boolean): tcgpara;
begin begin
if is_proc_far(pd) then if is_proc_far(pd) then
tcg8086(cg).a_call_name_far(list,s,weak) begin
{ far calls to the same module (in $HUGECODE off mode) can be optimized
to push cs + call near, because they are in the same segment }
if not (cs_huge_code in current_settings.moduleswitches) and
(pd.procsym.owner=current_module.localsymtable) then
begin
list.concat(Taicpu.Op_reg(A_PUSH,S_W,NR_CS));
tcg8086(cg).a_call_name_near(list,s,weak);
end
else
tcg8086(cg).a_call_name_far(list,s,weak);
end
else else
tcg8086(cg).a_call_name_near(list,s,weak); tcg8086(cg).a_call_name_near(list,s,weak);
result:=get_call_result_cgpara(pd,forceresdef); result:=get_call_result_cgpara(pd,forceresdef);