paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 22:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix test for arm

Browse Source 
git-svn-id: trunk@42538 -
This commit is contained in:
florian 2019-07-30 21:04:30 +00:00
parent 9560d63e42
commit bdd4b6691e
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/webtbs/tw11563.pp
View File

@ -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;