2006-02-19 22:08:08 -05:00
|
|
|
/* Cocoa exception handling for Mac OS X */
|
|
|
|
|
|
|
|
#include "../factor.h"
|
|
|
|
#import "Foundation/NSException.h"
|
|
|
|
|
|
|
|
void platform_run()
|
|
|
|
{
|
|
|
|
for(;;)
|
|
|
|
{
|
2006-02-23 02:09:34 -05:00
|
|
|
SETJMP(stack_chain->toplevel);
|
2006-02-19 22:08:08 -05:00
|
|
|
handle_error();
|
|
|
|
NS_DURING
|
2006-02-23 02:09:34 -05:00
|
|
|
run();
|
2006-02-19 22:08:08 -05:00
|
|
|
NS_VOIDRETURN;
|
|
|
|
NS_HANDLER
|
|
|
|
general_error(ERROR_OBJECTIVE_C,
|
2006-02-23 02:09:34 -05:00
|
|
|
tag_object(make_alien(F,(CELL)localException)),
|
2006-02-19 22:08:08 -05:00
|
|
|
true);
|
|
|
|
NS_ENDHANDLER
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|