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

* allocate enough room in assembler routines for a complete linkage area

Browse Source 
so that potential callees have enough room to store their LR etc
    if needed

git-svn-id: trunk@30212 -
This commit is contained in:
Jonas Maebe 2015-03-14 18:36:14 +00:00
parent e3f451066b
commit 399ffb2005
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/powerpc64/cpupi.pas
View File

@ -74,17 +74,19 @@ var
lasize,
minstacksize: aword;
begin
if target_info.abi<>abi_powerpc_elfv2 then
lasize:=LinkageAreaSizeELF
else
lasize:=LinkageAreaSizeELFv2;
if not (po_assembler in procdef.procoptions) then begin
{ align the stack properly }
if target_info.abi<>abi_powerpc_elfv2 then
begin
{ same for AIX/Darwin }
lasize:=LinkageAreaSizeELF;
minstacksize:=MINIMUM_STACKFRAME_SIZE;
end
else
begin
lasize:=LinkageAreaSizeELFv2;
minstacksize:=MINIMUM_STACKFRAME_SIZE_ELFV2;
end;
ofs := align(maxpushedparasize + lasize, ELF_STACK_ALIGN);
@ -99,8 +101,9 @@ begin
end else begin
if (current_procinfo.procdef.localst.symtabletype=localsymtable) and
(tabstractlocalsymtable(current_procinfo.procdef.localst).count_locals <> 0) then
{ at 0(r1), the previous value of r1 will be stored }
tg.setfirsttemp(8);
{ at 0(r1), the previous value of r1 will be stored; also make sure
there's room to store lr etc by potential callees}
tg.setfirsttemp(lasize);
end;
end;