1 /* HP-UX libunwind.so doesn't provide _UA_END_OF_STACK */
2 /* { dg-do run } */
3 /* { dg-options "-fexceptions" } */
4 /* { dg-skip-if "" { "ia64-*-hpux11.*" } { "*" } { "" } } */
5 /* Verify that cleanups work with exception handling. */
6
7 #include <unwind.h>
8 #include <stdlib.h>
9 #include <string.h>
10
11 static _Unwind_Reason_Code
force_unwind_stop(int version,_Unwind_Action actions,_Unwind_Exception_Class exc_class,struct _Unwind_Exception * exc_obj,struct _Unwind_Context * context,void * stop_parameter)12 force_unwind_stop (int version, _Unwind_Action actions,
13 _Unwind_Exception_Class exc_class,
14 struct _Unwind_Exception *exc_obj,
15 struct _Unwind_Context *context,
16 void *stop_parameter)
17 {
18 if (actions & _UA_END_OF_STACK)
19 abort ();
20 return _URC_NO_REASON;
21 }
22
force_unwind()23 static void force_unwind ()
24 {
25 struct _Unwind_Exception *exc = malloc (sizeof (*exc));
26 memset (&exc->exception_class, 0, sizeof (exc->exception_class));
27 exc->exception_cleanup = 0;
28
29 #ifndef __USING_SJLJ_EXCEPTIONS__
30 _Unwind_ForcedUnwind (exc, force_unwind_stop, 0);
31 #else
32 _Unwind_SjLj_ForcedUnwind (exc, force_unwind_stop, 0);
33 #endif
34
35 abort ();
36 }
37
handler(void * p)38 static void handler (void *p __attribute__((unused)))
39 {
40 exit (0);
41 }
42
doit()43 static void doit ()
44 {
45 char dummy __attribute__((cleanup (handler)));
46 force_unwind ();
47 }
48
main()49 int main()
50 {
51 doit ();
52 abort ();
53 }
54