From 0556b702920f8de9acfdff66e27c2e0155c41365 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 4 Jul 2005 15:26:02 +0200 Subject: s-mastop-tru64.adb (Pop_Frame): Use exc_lookup_function_entry to fetch a code-range descriptor associated with... 2005-07-04 Eric Botcazou * s-mastop-tru64.adb (Pop_Frame): Use exc_lookup_function_entry to fetch a code-range descriptor associated with the machine state. On failure set the machine state's PC to 0; on success, pass the descriptor to exc_virtual_unwind. * init.c (Tru64 section): New function __gnat_set_code_loc. From-SVN: r101572 --- gcc/ada/init.c | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'gcc/ada/init.c') 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; -- cgit v1.1