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

* fixed test for Linux/AArch64 (patch by Edmund Grimley Evans)

Browse Source 
git-svn-id: trunk@30898 -
This commit is contained in:
Jonas Maebe 2015-05-23 21:04:17 +00:00
parent 6185ca8f3c
commit 528b0832c6
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw11563.pp
View File

@ -9,6 +9,9 @@ program ExecStack;
{$if defined(cpupowerpc) or defined(cpupowerpc64)} {$if defined(cpupowerpc) or defined(cpupowerpc64)}
ret: longint; ret: longint;
{$endif} {$endif}
{$if defined(cpuaarch64)}
ret: longint;
{$endif}
{$if defined(cpui386) or defined(cpux86_64)} {$if defined(cpui386) or defined(cpux86_64)}
ret: Byte; ret: Byte;
{$endif} {$endif}
@ -40,6 +43,11 @@ program ExecStack;
DoNothing; DoNothing;
{$endif} {$endif}
{$endif} {$endif}
{$if defined(cpuaarch64)}
ret := $d65f03c0;
DoNothing := proc(@ret);
DoNothing;
{$endif}
{$if defined(cpui386) or defined(cpux86_64)} {$if defined(cpui386) or defined(cpux86_64)}
ret := $C3; ret := $C3;
DoNothing := proc(@ret); DoNothing := proc(@ret);