diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-13 10:36:42 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-13 10:36:42 +0000 |
| commit | 2bcd255fb0d02a7a0bc49b2e20cbad8da9108e9d (patch) | |
| tree | 840680f32fb36ed98d7a8cc53b1d781bd1f21d33 /gcc/ada/g-trasym-vms-alpha.adb | |
| parent | eafaf3aa01f7043364951a1a1b451f4b2104b1ea (diff) | |
| download | gcc-2bcd255fb0d02a7a0bc49b2e20cbad8da9108e9d.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130867 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-trasym-vms-alpha.adb')
| -rw-r--r-- | gcc/ada/g-trasym-vms-alpha.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/g-trasym-vms-alpha.adb b/gcc/ada/g-trasym-vms-alpha.adb index 68bb5d87e59..fadc9df7aab 100644 --- a/gcc/ada/g-trasym-vms-alpha.adb +++ b/gcc/ada/g-trasym-vms-alpha.adb @@ -229,7 +229,7 @@ package body GNAT.Traceback.Symbolic is (Status, PC_For (Traceback (J)), PC_For (Traceback (J)), - FP_For (Traceback (J)), + PV_For (Traceback (J)), Return_Address, Image_Name_Addr, Module_Name_Addr, |