From bdd4b6691ed2d4348719fc6c756a2f29136109a6 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 30 Jul 2019 21:04:30 +0000
Subject: [PATCH] * fix test for arm

git-svn-id: trunk@42538 -
---
 tests/webtbs/tw11563.pp | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/tests/webtbs/tw11563.pp b/tests/webtbs/tw11563.pp
index b122d1148b..e52f69d5e8 100644
--- a/tests/webtbs/tw11563.pp
+++ b/tests/webtbs/tw11563.pp
@@ -19,7 +19,7 @@ program ExecStack;
     ret: Byte;
 {$endif}
 {$ifdef cpuarm}
-    'add arm code to test stack execution'
+    ret: dword;
 {$endif}
 {$ifdef cpumips}
     ret: array[0..1] of longword;
@@ -77,6 +77,23 @@ program ExecStack;
     DoNothing;
 {$endif cpum68k}
 
+{$ifdef cpuarm}
+{$if defined(CPUTHUMB) or defined(CPUTHUMB2)}
+{$ifdef CPUARM_HAS_BX}
+    ret:=$4770;
+{$else}
+    ret:=$46f7;
+{$endif}
+{$else defined(CPUTHUMB) or defined(CPUTHUMB2)}
+    ret:=$e8bd8008;
+{$endif defined(CPUTHUMB) or defined(CPUTHUMB2)}
+{$ifdef ENDIAN_BIG}
+    ret:=SwapEndian(ret);
+{$endif ENDIAN_BIG}
+    DoNothing:=proc(@ret);
+    DoNothing;
+{$endif cpuarm}
+
   end;
 begin
   DoIt;