URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [objc/] [execute/] [exceptions/] [throw-nil.m] - Rev 702
Compare with Previous | Blame | View Log
#include <objc/objc.h> #include "../../../objc-obj-c++-shared/TestsuiteObject.m" #ifdef __NEXT_RUNTIME__ /* This test only runs for the GNU runtime. */ int main(void) { return 0; } #else /* Test throwing a nil exception. A 'nil' exception can only be caugth by a generic exception handler. */ int main (void) { int exception_catched = 0; int finally_called = 0; @try { @throw nil; } @catch (TestsuiteObject *exc) { abort (); } @catch (id exc) { exception_catched = 1; } @finally { finally_called = 1; } if (exception_catched != 1 || finally_called != 1) { abort (); } return 0; } #endif