From b231c049c97ebcef6450fc579bf53ec3a996689c Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 25 Mar 2013 17:56:13 +0000
Subject: [PATCH] * arm thumb knows only positively growing stacks

git-svn-id: trunk@24000 -
---
 compiler/psub.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/compiler/psub.pas b/compiler/psub.pas
index edac14edaf..724e29c925 100644
--- a/compiler/psub.pas
+++ b/compiler/psub.pas
@@ -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;