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

+ Xtensa: patch by Christo Crause: support call0 abi in init final code part of #37242

Browse Source 
git-svn-id: trunk@45684 -
This commit is contained in:
florian 2020-06-23 20:44:54 +00:00
parent 41406d161c
commit cba109c55d
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/xtensa/ncpuutil.pas
View File

@ -66,13 +66,16 @@ implementation
finalList.Concat(tai_align.Create(target_info.alignment.procalign));
case target_info.abi of
// abi_xtensa_call0:
// begin
// initList.Concat(taicpu.op_none(A_RET));
// finalList.Concat(taicpu.op_none(A_RET));
// callop:=A_CALL0;
// retop:=A_RET;
// end;
abi_xtensa_call0:
begin
// Store return address on stack
initlist.concat(taicpu.op_reg_reg_const(A_ADDI,NR_STACK_POINTER_REG,NR_STACK_POINTER_REG,-16));
initlist.concat(taicpu.op_reg_reg_const(A_S32I, NR_A0, NR_A1, 12));
finalList.concat(taicpu.op_reg_reg_const(A_ADDI,NR_STACK_POINTER_REG,NR_STACK_POINTER_REG,-16));
finalList.concat(taicpu.op_reg_reg_const(A_S32I, NR_A0, NR_A1, 12));
callop:=A_CALL0;
retop:=A_RET;
end;
abi_xtensa_windowed:
begin
initList.Concat(taicpu.op_reg_const(A_ENTRY,NR_A1,16));
@ -93,6 +96,15 @@ implementation
initList.Concat(taicpu.op_sym(callop,current_asmdata.RefAsmSymbol(entry^.initfunc,AT_FUNCTION)));
end;
// Restore return address for call0 ABI
if target_info.abi = abi_xtensa_call0 then
begin
initlist.concat(taicpu.op_reg_reg_const(A_L32I, NR_A0, NR_A1, 12));
initlist.concat(taicpu.op_reg_reg_const(A_ADDI,NR_STACK_POINTER_REG,NR_STACK_POINTER_REG,16));
finalList.concat(taicpu.op_reg_reg_const(A_L32I, NR_A0, NR_A1, 12));
finalList.concat(taicpu.op_reg_reg_const(A_ADDI,NR_STACK_POINTER_REG,NR_STACK_POINTER_REG,16));
end;
initList.Concat(taicpu.op_none(retop));
finalList.Concat(taicpu.op_none(retop));