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

* fixed wrong generation of teardown of stackframe on i386-darwin

Browse Source 
in case no stackframe was generated (in case no pi_do_call in
    current_procinfo.flags)

git-svn-id: trunk@2876 -
This commit is contained in:
Jonas Maebe 2006-03-11 22:38:28 +00:00
parent 638b2ecb2b
commit 7b5ee7342a
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

@ -260,7 +260,8 @@ unit cgcpu;
if (current_procinfo.framepointer=NR_STACK_POINTER_REG) then if (current_procinfo.framepointer=NR_STACK_POINTER_REG) then
begin begin
stacksize:=current_procinfo.calc_stackframe_size; stacksize:=current_procinfo.calc_stackframe_size;
if (target_info.system = system_i386_darwin) then if (target_info.system = system_i386_darwin) and
(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);