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

* stack page initialization disabled, not necessary according to Yury Sidorov

Browse Source 
git-svn-id: trunk@4539 -
This commit is contained in:
florian 2006-09-02 20:43:59 +00:00
parent b7778a517e
commit e08bf34689
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/arm/cgcpu.pas
View File

@ -1174,7 +1174,9 @@ unit cgcpu;
list.concat(taicpu.op_reg_reg_const(A_SUB,NR_FRAME_POINTER_REG,NR_R12,4));
{ allocate necessary stack size }
{ allocate necessary stack size
not necessary according to Yury Sidorov
{ don't use a_op_const_reg_reg here because we don't allow register allocations
in the entry/exit code }
if (target_info.system in [system_arm_wince]) and
@ -1233,7 +1235,9 @@ unit cgcpu;
list.concat(Taicpu.op_reg_ref(A_STR,NR_R0,href));
end
end
else if not(is_shifter_const(localsize,shift)) then
else
}
if not(is_shifter_const(localsize,shift)) then
begin
a_load_const_reg(list,OS_ADDR,LocalSize,NR_R12);
list.concat(taicpu.op_reg_reg_reg(A_SUB,NR_STACK_POINTER_REG,NR_STACK_POINTER_REG,NR_R12));