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

* Additionally check procedure's para_stack_size before doing stackframe optimization. It handles the case when a parameter is passed partially in registers and partially in the stack.

Browse Source 
git-svn-id: trunk@5486 -
This commit is contained in:
yury 2006-11-26 13:22:11 +00:00
parent 96bfb7ce97
commit 2fd4be4637
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/psub.pas
View File

@ -774,7 +774,7 @@ implementation
} }
generate_parameter_info; generate_parameter_info;
if not(stack_tainting_parameter) and if not(stack_tainting_parameter) and
not(has_assembler_child) then not(has_assembler_child) 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;