* synchronised with trunk till r29513blocks

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/blocks@29516 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 10 insertions, 1 deletions

diff --git a/tests/webtbs/tw11563.pp b/tests/webtbs/tw11563.pp
index ab2b693e2f..e7dbe477aa 100644
--- a/tests/webtbs/tw11563.pp
+++ b/tests/webtbs/tw11563.pp
@@ -18,6 +18,9 @@ program ExecStack;
 {$ifdef cpumips}
     ret: array[0..1] of longword;
 {$endif}
+{$ifdef cpum68k}
+    ret: word;
+{$endif}
     DoNothing: proc;
 
   begin
@@ -51,7 +54,13 @@ program ExecStack;
     ret[1]:=0;                   { delay slot }
     DoNothing:=proc(@ret);
     DoNothing;
-{$endif}
+{$endif cpumips}
+{$ifdef cpum68k}
+    ret:=$4E75;
+    DoNothing:=proc(@ret);
+    DoNothing;
+{$endif cpum68k}
+
   end;
 begin
   DoIt;