diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 16:00:58 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 16:00:58 +0200 |
| commit | 793c5f05923d8faf0005ae1c100777f46554537a (patch) | |
| tree | a3f2016778871d215060872a24102803c270ac8b /gcc/ada/s-traceb.adb | |
| parent | 1eb31e605ff6ffb4332e8681ee086f5a4ea1bea9 (diff) | |
| download | gcc-793c5f05923d8faf0005ae1c100777f46554537a.zip gcc-793c5f05923d8faf0005ae1c100777f46554537a.tar.gz gcc-793c5f05923d8faf0005ae1c100777f46554537a.tar.bz2 | |
[multiple changes]
2014-07-30 Gary Dismukes <dismukes@adacore.com>
* exp_prag.adb, a-tags.ads: Minor typo fixes.
2014-07-30 Bob Duff <duff@adacore.com>
* a-excach.adb, a-excach-cert.adb, a-except-2005.ads,
a-except.ads, g-traceb.adb, memtrack.adb,
s-traceb.adb, s-traceb.ads, s-traceb-hpux.adb, s-traceb-mastop.adb:
Cleanup: Make the three versions of System.Traceback.Call_Chain
have the same interface. Use an array for the Traceback parameter
instead of an Address. This will enable reduction in code
duplication.
2014-07-30 Pat Rogers <rogers@adacore.com>
* gnat_ugn.texi: Corrected minor textual error in description
of switch -gnatwl.
2014-07-30 Bob Duff <duff@adacore.com>
* Makefile.rtl: Sort file names.
2014-07-30 Arnaud Charlet <charlet@adacore.com>
* a-tasatt.adb: Complete previous change: kill spurious warning
on e.g. sparc, and make sure we only use the fast path when the
alignment is compatible.
2014-07-30 Yannick Moy <moy@adacore.com>
* sem_ch6.adb (Analyze_Subprogram_Body_Helper): Mark new Spec_Id as
coming from source.
From-SVN: r213275
Diffstat (limited to 'gcc/ada/s-traceb.adb')
| -rw-r--r-- | gcc/ada/s-traceb.adb | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/gcc/ada/s-traceb.adb b/gcc/ada/s-traceb.adb index b32e2a1..0c55cfc 100644 --- a/gcc/ada/s-traceb.adb +++ b/gcc/ada/s-traceb.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2014, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -38,6 +38,15 @@ pragma Compiler_Unit_Warning; package body System.Traceback is + procedure Call_Chain + (Traceback : System.Address; + Max_Len : Natural; + Len : out Natural; + Exclude_Min : System.Address := System.Null_Address; + Exclude_Max : System.Address := System.Null_Address; + Skip_Frames : Natural := 1); + -- Same as the exported version, but takes Traceback as an Address + ------------------ -- C_Call_Chain -- ------------------ @@ -90,4 +99,18 @@ package body System.Traceback is Skip_Frames => Skip_Frames + 1); end Call_Chain; + procedure Call_Chain + (Traceback : in out System.Traceback_Entries.Tracebacks_Array; + Max_Len : Natural; + Len : out Natural; + Exclude_Min : System.Address := System.Null_Address; + Exclude_Max : System.Address := System.Null_Address; + Skip_Frames : Natural := 1) + is + begin + Call_Chain + (Traceback'Address, Max_Len, Len, + Exclude_Min, Exclude_Max, Skip_Frames); + end Call_Chain; + end System.Traceback; |