URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
| Rev 154 |
Rev 816 |
// Test that cleanups get run when a catch filter fails to match.
|
// Test that cleanups get run when a catch filter fails to match.
|
// { dg-do run }
|
// { dg-do run }
|
|
|
extern "C" void exit(int);
|
extern "C" void exit(int);
|
extern "C" void abort();
|
extern "C" void abort();
|
|
|
struct a
|
struct a
|
{
|
{
|
a();
|
a();
|
~a();
|
~a();
|
};
|
};
|
|
|
struct e1 {};
|
struct e1 {};
|
struct e2 {};
|
struct e2 {};
|
|
|
void
|
void
|
ex_test ()
|
ex_test ()
|
{
|
{
|
a aa;
|
a aa;
|
try
|
try
|
{
|
{
|
throw e1 ();
|
throw e1 ();
|
}
|
}
|
catch (e2 &)
|
catch (e2 &)
|
{
|
{
|
}
|
}
|
}
|
}
|
|
|
int
|
int
|
main ()
|
main ()
|
{
|
{
|
try
|
try
|
{
|
{
|
ex_test ();
|
ex_test ();
|
}
|
}
|
catch (...)
|
catch (...)
|
{
|
{
|
}
|
}
|
abort ();
|
abort ();
|
}
|
}
|
|
|
a::a() { }
|
a::a() { }
|
a::~a() { exit (0); }
|
a::~a() { exit (0); }
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.
