+ Extended test for MIPS

git-svn-id: trunk@23930 -

tests/webtbs/tw11563.pp

@@ -14,6 +14,9 @@ program ExecStack;
 {$endif}
 {$ifdef cpuarm}
     'add arm code to test stack execution'
+{$endif}
+{$ifdef cpumips}
+    ret: array[0..1] of longword;
 {$endif}
     DoNothing: proc;
 
@@ -38,6 +41,16 @@ program ExecStack;
     ret := $C3;
     DoNothing := proc(@ret);
     DoNothing;
+{$endif}
+{$ifdef cpumips}
+{$ifdef ENDIAN_BIG}
+    ret[0]:=$03e00008;
+{$else ENDIAN_BIG}
+    ret[0]:=$0800e003;
+{$endif ENDIAN_BIG}    
+    ret[1]:=0;                   { delay slot }
+    DoNothing:=proc(@ret);
+    DoNothing;
 {$endif}
   end;
 begin