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

* improve call0 calling conventions

Browse Source 
git-svn-id: trunk@46797 -
This commit is contained in:
florian 2020-09-07 20:28:38 +00:00
parent ce9d7f9995
commit 93eef547ae
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/psub.pas
View File

@ -1173,7 +1173,7 @@ implementation
with an internal error, so this switch is not enabled by default yet. To overcome this,
multipass compilation of subroutines must be supported
}
if (target_info.abi=abi_xtensa_windowed) and (procdef.stack_tainting_parameter(calleeside)) then
if procdef.stack_tainting_parameter(calleeside) then
begin
include(flags,pi_estimatestacksize);
set_first_temp_offset;

2
compiler/xtensa/cpupara.pas
View File

@ -158,6 +158,8 @@ unit cpupara;
begin
curintreg:=RS_A2;
maxintreg:=RS_A7;
if (side=calleeside) and (current_procinfo.framepointer=NR_STACK_POINTER_REG) then
cur_stack_offset:=(p as tcpuprocdef).total_stackframe_size;
end;
else
Internalerror(2020031404);

3
compiler/xtensa/cpupi.pas
View File

@ -84,7 +84,8 @@ unit cpupi;
callins:=A_CALL0;
callxins:=A_CALLX0;
maxcall:=0;
framepointer:=NR_FRAME_POINTER_REG;
{ we do not use a frame pointer }
framepointer:=NR_STACK_POINTER_REG;
end;
end;