From 2bcd255fb0d02a7a0bc49b2e20cbad8da9108e9d Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 13 Dec 2007 10:36:42 +0000 Subject: 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130867 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/g-trasym-vms-alpha.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/ada/g-trasym-vms-alpha.adb') 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, -- cgit v1.2.1