diff options
| author | Olivier Hainque <hainque@adacore.com> | 2007-12-13 11:36:42 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-13 11:36:42 +0100 |
| commit | 543b4428214232de8bf9d0377a99b137756b0451 (patch) | |
| tree | 840680f32fb36ed98d7a8cc53b1d781bd1f21d33 /gcc/ada/tb-alvms.c | |
| parent | 46edcdb100403f15510c2263d5b821546b8a482d (diff) | |
| download | gcc-543b4428214232de8bf9d0377a99b137756b0451.tar.gz | |
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 <hainque@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/tb-alvms.c')
| -rw-r--r-- | gcc/ada/tb-alvms.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/tb-alvms.c b/gcc/ada/tb-alvms.c index 5905282490f..d69128b9271 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 ++; |