1 // HP-UX libunwind.so doesn't provide _Unwind_ForcedUnwind.
2 // { dg-do run { xfail "ia64-hp-hpux11.*" } }
4 // Test that forced unwinding runs all cleanups. Also tests that
5 // rethrowing doesn't call the exception object destructor.
12 static _Unwind_Reason_Code
13 force_unwind_stop (int version, _Unwind_Action actions,
14 _Unwind_Exception_Class exc_class,
15 struct _Unwind_Exception *exc_obj,
16 struct _Unwind_Context *context,
19 if (actions & _UA_END_OF_STACK)
26 return _URC_NO_REASON;
30 force_unwind_cleanup (_Unwind_Reason_Code, struct _Unwind_Exception *)
35 static void force_unwind ()
37 _Unwind_Exception *exc = new _Unwind_Exception;
38 exc->exception_class = 0;
39 exc->exception_cleanup = force_unwind_cleanup;
41 #ifndef __USING_SJLJ_EXCEPTIONS__
42 _Unwind_ForcedUnwind (exc, force_unwind_stop, 0);
44 _Unwind_SjLj_ForcedUnwind (exc, force_unwind_stop, 0);