Fix Objective-C exception handling

slava 2006-11-17 07:01:05 +00:00
parent fde3ba3bb3
commit 7904ddcac2
2 changed files with 3 additions and 1 deletions

View File

@ -80,6 +80,7 @@ DEFER: objc-error. ( alien -- )
retainstack-overflow.
callstack-underflow.
callstack-overflow.
objc-error.
} nth ;
M: kernel-error error. dup kernel-error execute ;

View File

@ -18,6 +18,7 @@ void run()
for(;;)
{
NS_DURING
stack_chain->native_stack_pointer = native_stack_pointer();
SETJMP(stack_chain->toplevel);
handle_error();
@ -38,7 +39,7 @@ NS_ENDHANDLER
void run_toplevel(void)
{
interpreter();
run();
}
void early_init(void)