diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-10-15 13:57:26 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-10-15 13:57:26 +0000 |
| commit | e74c4a507af77e8358d7bab79a167716cee4e837 (patch) | |
| tree | 4bee605a57c669a56aafb92101d10a93d71bb26b /gcc/ada/tb-alvms.c | |
| parent | 57df6d00c860b5214bda34307c9584e37dae076c (diff) | |
| download | gcc-e74c4a507af77e8358d7bab79a167716cee4e837.tar.gz | |
2007-10-15 Olivier Hainque <hainque@adacore.com>
* tb-alvms.c (tb_entry_t, __gnat_backtrace): Store a frame pointer
instead of a procedure value in each traceback entry.
* g-trasym-vms-alpha.adb (Symbolic_Traceback): Pass frame pointer
instead of procedure value to TBK$SYMBOLIZE.
* s-traent-vms.adb (PV_For): Rename as FP_For and access the proper
field.
(TB_Entry_For): Account for the PV/FP renaming.
* s-traent-vms.ads (Traceback_Entry): Rename PV component into FP and
add comment.
(Null_TB_Entry): Account for change of component name.
(PV_For): Rename as FP_For.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129338 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/tb-alvms.c')
| -rw-r--r-- | gcc/ada/tb-alvms.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gcc/ada/tb-alvms.c b/gcc/ada/tb-alvms.c index 22fc540855d..5905282490f 100644 --- a/gcc/ada/tb-alvms.c +++ b/gcc/ada/tb-alvms.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 2003-2005, AdaCore * + * Copyright (C) 2003-2007, AdaCore * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -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; - ADDR pv; + ADDR pc; /* instruction pointer */ + ADDR fp; /* frame pointer */ } tb_entry_t; /******************** @@ -375,8 +375,6 @@ __gnat_backtrace (void **array, int size, cnt = 0; while (cnt < size) { - PDSCDEF * pv = PV_FOR (frame_state.fp); - /* Stop if either the frame contents or the unwinder say so. */ if (STOP_FRAME) break; @@ -385,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->pv = (ADDR) PV_FOR (frame_state.fp); + tbe->fp = (ADDR) frame_state.fp; cnt ++; tbe ++; |