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

+ implemented tthumbcgarm.g_external_wrapper in a way which does not destroy lr

Browse Source 
git-svn-id: trunk@28560 -
This commit is contained in:
florian 2014-08-31 16:35:01 +00:00
parent 782baeca29
commit 81c717fc06
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/arm/cgcpu.pas
View File

@ -182,6 +182,8 @@ unit cgcpu;
procedure g_adjust_self_value(list:TAsmList;procdef: tprocdef;ioffset: tcgint); override;
function handle_load_store(list: TAsmList; op: tasmop; oppostfix: toppostfix; reg: tregister; ref: treference): treference; override;
procedure g_external_wrapper(list : TAsmList; procdef : tprocdef; const externalname : string); override;
end;
tthumbcg64farm = class(tbasecg64farm)
@ -4286,6 +4288,32 @@ unit cgcpu;
end;
procedure tthumbcgarm.g_external_wrapper(list: TAsmList; procdef: tprocdef; const externalname: string);
var
tmpref : treference;
l : tasmlabel;
begin
{ there is no branch instruction on thumb which allows big distances and which leaves LR as it is
and which allows to switch the instruction set }
{ create const entry }
reference_reset(tmpref,4);
current_asmdata.getjumplabel(l);
tmpref.symbol:=l;
tmpref.base:=NR_PC;
list.concat(taicpu.op_regset(A_PUSH,R_INTREGISTER,R_SUBWHOLE,[RS_R0]));
list.concat(taicpu.op_reg_ref(A_LDR,NR_R0,tmpref));
list.concat(taicpu.op_reg_reg(A_MOV,NR_R12,NR_R0));
list.concat(taicpu.op_regset(A_POP,R_INTREGISTER,R_SUBWHOLE,[RS_R0]));
list.concat(taicpu.op_reg(A_BX,NR_R12));
{ append const entry }
list.Concat(tai_align.Create(4));
list.Concat(tai_label.create(l));
list.concat(tai_const.Create_sym(current_asmdata.RefAsmSymbol(externalname)));
end;
procedure tthumb2cgarm.init_register_allocators;
begin
inherited init_register_allocators;