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

* cleanup

Browse Source 
git-svn-id: trunk@47774 -
This commit is contained in:
florian 2020-12-14 21:55:41 +00:00
parent eb722c8294
commit 00af340feb
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/psub.pas
View File

@ -1136,9 +1136,8 @@ implementation
{ parasize must be really zero, this means also that no result may be returned { parasize must be really zero, this means also that no result may be returned
in a parameter } in a parameter }
and not((current_procinfo.procdef.proccalloption in clearstack_pocalls) and and not((current_procinfo.procdef.proccalloption in clearstack_pocalls) and
not(current_procinfo.procdef.generate_safecall_wrapper) and not(current_procinfo.procdef.generate_safecall_wrapper) and
paramanager.ret_in_param(current_procinfo.procdef.returndef,current_procinfo.procdef)) paramanager.ret_in_param(current_procinfo.procdef.returndef,current_procinfo.procdef)) then
{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;