blob: 408d3582f170ca6e57b0cd6add27595837fe3b53 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{ %RESULT=202 }
{$ifdef unix}
{$define nocheck}
{$endif}
{$S+}
{ This tests the stack checking routine on those }
{ targets which support it. }
procedure recursive;
var s: string;
begin
s := 'blahblah';
recursive;
end;
Begin
{$ifndef nocheck}
Recursive;
{$else}
{ Simulate the correct error code }
RunError(202);
{$endif}
end.
|
