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

* fixed previous commit

Browse Source 
git-svn-id: trunk@2877 -
This commit is contained in:
Jonas Maebe 2006-03-11 22:53:41 +00:00
parent 7b5ee7342a
commit 09a3bbfc07
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/i386/cgcpu.pas
View File

@ -261,7 +261,8 @@ unit cgcpu;
begin begin
stacksize:=current_procinfo.calc_stackframe_size; stacksize:=current_procinfo.calc_stackframe_size;
if (target_info.system = system_i386_darwin) and if (target_info.system = system_i386_darwin) and
(pi_do_call in current_procinfo.flags) then ((stacksize <> 0) or
(pi_do_call in current_procinfo.flags)) then
stacksize := align(stacksize+sizeof(aint),16) - sizeof(aint); stacksize := align(stacksize+sizeof(aint),16) - sizeof(aint);
if (stacksize<>0) then if (stacksize<>0) then
cg.a_op_const_reg(list,OP_ADD,OS_ADDR,stacksize,current_procinfo.framepointer); cg.a_op_const_reg(list,OP_ADD,OS_ADDR,stacksize,current_procinfo.framepointer);