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

* arm thumb knows only positively growing stacks

Browse Source 
git-svn-id: trunk@24000 -
This commit is contained in:
florian 2013-03-25 17:56:13 +00:00
parent 4328e8c7b8
commit b231c049c9
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/psub.pas
View File

@ -116,6 +116,9 @@ implementation
optcse,optloop
{$if defined(arm) or defined(avr) or defined(fpc_compiler_has_fixup_jmps)}
,aasmcpu
{$endif arm}
{$if defined(arm)}
,cpuinfo
{$endif arm}
{$ifndef NOOPT}
{$ifdef i386}
@ -999,6 +1002,10 @@ implementation
framepointer:=NR_STACK_POINTER_REG;
tg.direction:=1;
{$endif MIPS}
{$ifdef ARM}
if current_settings.cputype in cpu_thumb then
tg.direction:=1;
{$endif ARM}
{ set the start offset to the start of the temp area in the stack }
set_first_temp_offset;
end;