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

* fixed stm/ldm for usage with large temp. areas

Browse Source 
git-svn-id: trunk@3633 -
This commit is contained in:
florian 2006-05-22 21:00:55 +00:00
parent 3a03aee386
commit 2ddd617971
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/arm/cgcpu.pas
View File

@ -1187,7 +1187,7 @@ unit cgcpu;
if firstfloatreg<>RS_NO then if firstfloatreg<>RS_NO then
begin begin
reference_reset(ref); reference_reset(ref);
if not(is_shifter_const(-tarmprocinfo(current_procinfo).floatregstart,shift)) then if tarmprocinfo(current_procinfo).floatregstart<=-1023 then
begin begin
a_load_const_reg(list,OS_ADDR,-tarmprocinfo(current_procinfo).floatregstart,NR_R12); a_load_const_reg(list,OS_ADDR,-tarmprocinfo(current_procinfo).floatregstart,NR_R12);
list.concat(taicpu.op_reg_reg_reg(A_SUB,NR_R12,NR_FRAME_POINTER_REG,NR_R12)); list.concat(taicpu.op_reg_reg_reg(A_SUB,NR_R12,NR_FRAME_POINTER_REG,NR_R12));
@ -1228,7 +1228,7 @@ unit cgcpu;
if firstfloatreg<>RS_NO then if firstfloatreg<>RS_NO then
begin begin
reference_reset(ref); reference_reset(ref);
if not(is_shifter_const(-tarmprocinfo(current_procinfo).floatregstart,shift)) then if tarmprocinfo(current_procinfo).floatregstart<=-1023 then
begin begin
a_load_const_reg(list,OS_ADDR,-tarmprocinfo(current_procinfo).floatregstart,NR_R12); a_load_const_reg(list,OS_ADDR,-tarmprocinfo(current_procinfo).floatregstart,NR_R12);
list.concat(taicpu.op_reg_reg_reg(A_SUB,NR_R12,NR_FRAME_POINTER_REG,NR_R12)); list.concat(taicpu.op_reg_reg_reg(A_SUB,NR_R12,NR_FRAME_POINTER_REG,NR_R12));