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

* fix in r47632 should be enabled for all targets as it is a stack tainting

Browse Source 
parameter

git-svn-id: trunk@47680 -
This commit is contained in:
florian 2020-12-03 21:22:07 +00:00
parent b90504a458
commit 9c6bdcfbb7
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/psub.pas
View File

@ -1128,13 +1128,11 @@ implementation
if not(procdef.stack_tainting_parameter(calleeside)) and
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
{ Only need to set the framepointer }