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

handle po_nostackframe for calc_stack_size

Browse Source 
git-svn-id: trunk@22718 -
This commit is contained in:
pierre 2012-10-18 09:44:11 +00:00
parent 124499474c
commit 7bd7cf275c
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/mips/cpupi.pas
View File

@ -101,8 +101,14 @@ implementation
if tg.direction = -1 then if tg.direction = -1 then
tg.setfirsttemp(0) tg.setfirsttemp(0)
else else
tg.setfirsttemp(maxpushedparasize+ begin
floatregssave*sizeof(aint)+intregssave*sizeof(aint)); if not (po_nostackframe in procdef.procoptions) then
tg.setfirsttemp(Align(maxpushedparasize+
floatregssave*sizeof(aint)+intregssave*sizeof(aint)
,max(current_settings.alignment.localalignmin,8)))
else
tg.setfirsttemp(align(maxpushedparasize,max(current_settings.alignment.localalignmin,8)));
end;
end; end;