gnu/dist/gcc4/gcc/testsuite/g++.dg/eh/forced1.C

   1 // HP-UX libunwind.so doesn't provide _UA_END_OF_STACK.
   2 // { dg-do run { xfail "ia64-hp-hpux11.*" } }
   3
   4 // Test that forced unwinding runs all cleanups.  Also tests that
   5 // rethrowing doesn't call the exception object destructor.
   6
   7 #include <unwind.h>
   8 #include <stdlib.h>
   9 #include <string.h>
  10
  11 static int test = 0;
  12
  13 static _Unwind_Reason_Code
  14 force_unwind_stop (int version, _Unwind_Action actions,
  15                    _Unwind_Exception_Class exc_class,
  16                    struct _Unwind_Exception *exc_obj,
  17                    struct _Unwind_Context *context,
  18                    void *stop_parameter)
  19 {
  20   if (actions & _UA_END_OF_STACK)
  21     {
  22       if (test != 15)
  23         abort ();
  24       exit (0);
  25     }
  26
  27   return _URC_NO_REASON;
  28 }
  29
  30 static void
  31 force_unwind_cleanup (_Unwind_Reason_Code, struct _Unwind_Exception *)
  32 {
  33   abort ();
  34 }
  35
  36 static void force_unwind ()
  37 {
  38   _Unwind_Exception *exc = new _Unwind_Exception;
  39   // exception_class might not be a scalar.
  40   memset (&exc->exception_class, 0, sizeof (exc->exception_class));
  41   exc->exception_cleanup = force_unwind_cleanup;
  42
  43 #ifndef __USING_SJLJ_EXCEPTIONS__
  44   _Unwind_ForcedUnwind (exc, force_unwind_stop, 0);
  45 #else
  46   _Unwind_SjLj_ForcedUnwind (exc, force_unwind_stop, 0);
  47 #endif
  48
  49   abort ();
  50 }
  51
  52 struct S
  53 {
  54   int bit;
  55   S(int b) : bit(b) { }
  56   ~S() { test |= bit; }
  57 };
  58
  59 static __attribute__ ((noinline)) void doit ()
  60 {
  61   try {
  62     S four(4);
  63
  64     try {
  65       S one(1);
  66       force_unwind ();
  67     } catch(...) {
  68       test |= 2;
  69       throw;
  70     }
  71
  72   } catch(...) {
  73     test |= 8;
  74     throw;
  75   }
  76 }
  77
  78 int main()
  79 {
  80   doit ();
  81   abort ();
  82 }