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

* check if an invisible parameter for the result occupies parameter space

Browse Source 
git-svn-id: trunk@47632 -
This commit is contained in:
florian 2020-11-29 13:38:33 +00:00
parent 91229dcee9
commit c47d6d7af0
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/psub.pas
View File

@ -1127,7 +1127,15 @@ implementation
generate_parameter_info; generate_parameter_info;
if not(procdef.stack_tainting_parameter(calleeside)) and if not(procdef.stack_tainting_parameter(calleeside)) and
not(has_assembler_child) {and (para_stack_size=0)} then not(has_assembler_child)
{$ifdef m68k}
{ parasize must be really zero, this means also that no result may be returned
in a parameter }
and not((current_procinfo.procdef.proccalloption in clearstack_pocalls) and
not(current_procinfo.procdef.generate_safecall_wrapper) and
paramanager.ret_in_param(current_procinfo.procdef.returndef,current_procinfo.procdef))
{$endif m68k}
{and (para_stack_size=0)} then
begin begin
{ Only need to set the framepointer } { Only need to set the framepointer }
framepointer:=NR_STACK_POINTER_REG; framepointer:=NR_STACK_POINTER_REG;