From 543b4428214232de8bf9d0377a99b137756b0451 Mon Sep 17 00:00:00 2001 From: Olivier Hainque Date: Thu, 13 Dec 2007 11:36:42 +0100 Subject: tb-alvms.c (struct tb_entry_t, [...]): Revert back to use of Procedure Value instead of Frame Pointer as the... 2007-12-06 Olivier Hainque * tb-alvms.c (struct tb_entry_t, __gnat_backtrace): Revert back to use of Procedure Value instead of Frame Pointer as the invocation identifier associated with the instruction pointer in each traceback entry. * g-trasym-vms-alpha.adb (Traceback_Entry, PV_For, FP_For, TB_Entry_For): Revert back to use of Procedure Value instead of Frame Pointer as the invocation identifier passed to tbk$symbolize. * s-traent-vms.ads, s-traent-vms.adb (Traceback_Entry, PV_For, FP_For, TB_Entry_For): Revert back to use of Procedure Value instead of Frame Pointer as the invocation identifier passed to tbk$symbolize. From-SVN: r130867 --- gcc/ada/tb-alvms.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/ada/tb-alvms.c') diff --git a/gcc/ada/tb-alvms.c b/gcc/ada/tb-alvms.c index 5905282..d69128b 100644 --- a/gcc/ada/tb-alvms.c +++ b/gcc/ada/tb-alvms.c @@ -337,8 +337,8 @@ unwind_kernel_handler (frame_state_t * fs) system functions need more than just a mere PC to compute info on a frame (e.g. for non-symbolic->symbolic translation purposes). */ typedef struct { - ADDR pc; /* instruction pointer */ - ADDR fp; /* frame pointer */ + ADDR pc; /* Program Counter. */ + ADDR pv; /* Procedure Value. */ } tb_entry_t; /******************** @@ -383,7 +383,7 @@ __gnat_backtrace (void **array, int size, && (frame_state.pc < exclude_min || frame_state.pc > exclude_max)) { tbe->pc = (ADDR) frame_state.pc; - tbe->fp = (ADDR) frame_state.fp; + tbe->pv = (ADDR) PV_FOR (frame_state.fp); cnt ++; tbe ++; -- cgit v1.1