diff options
Diffstat (limited to 'gcc/ada/init.c')
| -rw-r--r-- | gcc/ada/init.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/init.c b/gcc/ada/init.c index ef6b210..fb08c8b 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -404,6 +404,7 @@ __gnat_install_handler (void) static void __gnat_error_handler (int, siginfo_t *, struct sigcontext *); extern char *__gnat_get_code_loc (struct sigcontext *); +extern void __gnat_set_code_loc (struct sigcontext *, char *); extern void __gnat_enter_handler (struct sigcontext *, char *); extern size_t __gnat_machine_state_length (void); @@ -519,6 +520,13 @@ __gnat_get_code_loc (struct sigcontext *context) } void +__gnat_set_code_loc (struct sigcontext *context, char *pc) +{ + context->sc_pc = (long) pc; +} + + +void __gnat_enter_handler (struct sigcontext *context, char *pc) { context->sc_pc = (long) pc; |