blob: 0eea037a63351644054e0913fdc33ea68e4c6126 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(* TEST
flags = "-dlive";
readonly_files = "main.c";
arguments = "-DUNIT_INT -DFUN=catch_rec_deadhandler main.c";
asmgen;
run;
check-program-output;
*)
(function "catch_rec_deadhandler" ()
(let x
(catch
(exit one)
with (one) 1
and (two) (exit three)
and (three) 3)
x))
|