URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [objc/] [execute/] [exceptions/] [handler-1.m] - Rev 816
Go to most recent revision | Compare with Previous | Blame | View Log
/* Test custom exception handlers */ /* Author: David Ayers */ #ifdef __NEXT_RUNTIME__ /* This test only runs for the GNU runtime. */ int main(void) { return 0; } #else #include <objc/objc-api.h> #include <objc/Object.h> #include <stdio.h> #include <stdlib.h> static unsigned int handlerExpected = 0; void my_exception_handler(id excp) { /* Returning from the handler would abort. */ if (handlerExpected) exit(0); abort(); } int main(int argc, char *argv[]) { _objc_unexpected_exception = my_exception_handler; @try { @throw [Object new]; } @catch (id exc) { handlerExpected = 1; } @throw [Object new]; abort(); return 0; } #endif
Go to most recent revision | Compare with Previous | Blame | View Log