gcc/testsuite/gcc.dg/cleanup-5.c

   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 /* { dg-skip-if "" { ! nonlocal_goto } } */
   6 /* Verify that cleanups work with exception handling.  */
   7
   8 #include <unwind.h>
   9 #include <stdlib.h>
  10 #include <string.h>
  11
  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,
  17                    void *stop_parameter)
  18 {
  19   if (actions & _UA_END_OF_STACK)
  20     abort ();
  21   return _URC_NO_REASON;
  22 }
  23
  24 static void force_unwind ()
  25 {
  26   struct _Unwind_Exception *exc = malloc (sizeof (*exc));
  27   memset (&exc->exception_class, 0, sizeof (exc->exception_class));
  28   exc->exception_cleanup = 0;
  29
  30 #ifndef __USING_SJLJ_EXCEPTIONS__
  31   _Unwind_ForcedUnwind (exc, force_unwind_stop, 0);
  32 #else
  33   _Unwind_SjLj_ForcedUnwind (exc, force_unwind_stop, 0);
  34 #endif
  35
  36   abort ();
  37 }
  38
  39 static void handler (void *p __attribute__((unused)))
  40 {
  41   exit (0);
  42 }
  43
  44 static void doit ()
  45 {
  46   char dummy __attribute__((cleanup (handler)));
  47   force_unwind ();
  48 }
  49
  50 int main()
  51 {
  52   doit ();
  53   abort ();
  54 }