paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 17:35:57 +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

12
compiler/mips/cpupi.pas
View File

@ -81,7 +81,7 @@ implementation
{ for testing } { for testing }
needs_frame_pointer := true;//false; needs_frame_pointer := true;//false;
computed_local_size:=-1; computed_local_size:=-1;
{ pi_needs_got is not yet set correctly { pi_needs_got is not yet set correctly
so include it always if creating PIC code } so include it always if creating PIC code }
if (cs_create_pic in current_settings.moduleswitches) then if (cs_create_pic in current_settings.moduleswitches) then
begin begin
@ -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;