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

* Xtensa: set correct frame pointer register

Browse Source 
git-svn-id: trunk@44366 -
This commit is contained in:
florian 2020-03-26 21:54:38 +00:00
parent 639f1c476f
commit f976083e7f
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/xtensa/cpupi.pas
View File

@ -46,6 +46,7 @@ unit cpupi;
constructor create(aparent: tprocinfo); override;
procedure set_first_temp_offset;override;
function calc_stackframe_size:longint;override;
procedure init_framepointer;override;
end;
@ -126,6 +127,20 @@ unit cpupi;
end;
procedure txtensaprocinfo.init_framepointer;
begin
if target_info.abi=abi_xtensa_call0 then
begin
RS_FRAME_POINTER_REG:=RS_A15;
NR_FRAME_POINTER_REG:=NR_A15;
end
else
begin
RS_FRAME_POINTER_REG:=RS_A7;
NR_FRAME_POINTER_REG:=NR_A7;
end;
end;
begin
cprocinfo:=txtensaprocinfo;
end.