From e74c4a507af77e8358d7bab79a167716cee4e837 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 15 Oct 2007 13:57:26 +0000 Subject: 2007-10-15 Olivier Hainque * 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 --- gcc/ada/tb-alvms.c | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'gcc/ada/tb-alvms.c') 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 ++; -- cgit v1.2.1