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/s-traent-vms.ads | |
| 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/s-traent-vms.ads')
| -rw-r--r-- | gcc/ada/s-traent-vms.ads | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/s-traent-vms.ads b/gcc/ada/s-traent-vms.ads index 33dc98894b1..ca9284ba256 100644 --- a/gcc/ada/s-traent-vms.ads +++ b/gcc/ada/s-traent-vms.ads @@ -40,22 +40,22 @@ package System.Traceback_Entries is pragma Preelaborate; - -- Symbolization is done by a VMS service which requires an instruction - -- and a frame pointer for each traceback entry. + -- Symbolization is performed by a VMS service which requires more + -- than an instruction pointer. type Traceback_Entry is record - PC : System.Address; - FP : System.Address; + PC : System.Address; -- Program Counter + PV : System.Address; -- Procedure Value end record; pragma Suppress_Initialization (Traceback_Entry); Null_TB_Entry : constant Traceback_Entry := (PC => System.Null_Address, - FP => System.Null_Address); + PV => System.Null_Address); function PC_For (TB_Entry : Traceback_Entry) return System.Address; - function FP_For (TB_Entry : Traceback_Entry) return System.Address; + function PV_For (TB_Entry : Traceback_Entry) return System.Address; function TB_Entry_For (PC : System.Address) return Traceback_Entry; |