diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2007-01-29 12:11:18 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2007-01-29 12:11:18 +0000 |
| commit | 4b5512c74cda289652ff53c01098c53a6c4b0c7a (patch) | |
| tree | a399da8debf50ea772ab38dd11362d1d57cb2c6c /asmrun/signals.c | |
| parent | 24d7c3c7f7756b8270910ef5c76b409209597dfc (diff) | |
Stack backtraces on uncaught exceptions in native code (merge of the opt_backtrace branch)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7812 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmrun/signals.c')
| -rw-r--r-- | asmrun/signals.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/asmrun/signals.c b/asmrun/signals.c index 30d9402f4..38f6c4085 100644 --- a/asmrun/signals.c +++ b/asmrun/signals.c @@ -391,6 +391,10 @@ DECLARE_SIGNAL_HANDLER(trap_handler) #endif caml_exception_pointer = (char *) CONTEXT_EXCEPTION_POINTER; caml_young_ptr = (char *) CONTEXT_YOUNG_PTR; +#if defined(SYS_rhapsody) + caml_bottom_of_stack = (char *) CONTEXT_SP; + caml_last_return_address = (uintnat) CONTEXT_PC; +#endif caml_array_bound_error(); } #endif |