Fix Objective-C exception handling
parent
fde3ba3bb3
commit
7904ddcac2
|
@ -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 ;
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue