gcc/testsuite/g++.dg/eh/forced1.C

   1 // HP-UX libunwind.so doesn't provide _Unwind_ForcedUnwind.
   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
  10 static int test = 0;
  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     {
  21       if (test != 15)
  22         abort ();
  23       exit (0);
  24     }
  25
  26   return _URC_NO_REASON;
  27 }
  28
  29 static void
  30 force_unwind_cleanup (_Unwind_Reason_Code, struct _Unwind_Exception *)
  31 {
  32   abort ();
  33 }
  34
  35 static void force_unwind ()
  36 {
  37   _Unwind_Exception *exc = new _Unwind_Exception;
  38   exc->exception_class = 0;
  39   exc->exception_cleanup = force_unwind_cleanup;
  40
  41 #ifndef __USING_SJLJ_EXCEPTIONS__
  42   _Unwind_ForcedUnwind (exc, force_unwind_stop, 0);
  43 #else
  44   _Unwind_SjLj_ForcedUnwind (exc, force_unwind_stop, 0);
  45 #endif
  46
  47   abort ();
  48 }
  49
  50 struct S
  51 {
  52   int bit;
  53   S(int b) : bit(b) { }
  54   ~S() { test |= bit; }
  55 };
  56
  57 static void doit ()
  58 {
  59   try {
  60     S four(4);
  61
  62     try {
  63       S one(1);
  64       force_unwind ();
  65
  66     } catch(...) {
  67       test |= 2;
  68       throw;
  69     }
  70
  71   } catch(...) {
  72     test |= 8;
  73     throw;
  74   }
  75 }
  76
  77 int main()
  78 {
  79   doit ();
  80   abort ();
  81 }