diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 14:59:51 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 14:59:51 +0200 |
| commit | ee9aa7b6637c3254a12f5887d9ca2b425543b5a0 (patch) | |
| tree | ab7726b0a2ecb46134539f364db82c09ad20e775 /gcc/ada/g-trasym.adb | |
| parent | bddd6058a2b9c29980962301b65a911985a3e00d (diff) | |
| download | gcc-ee9aa7b6637c3254a12f5887d9ca2b425543b5a0.zip gcc-ee9aa7b6637c3254a12f5887d9ca2b425543b5a0.tar.gz gcc-ee9aa7b6637c3254a12f5887d9ca2b425543b5a0.tar.bz2 | |
[multiple changes]
2009-04-20 Javier Miranda <miranda@adacore.com>
* sem_disp.adb (Find_Dispatching_Type): For subprograms internally
generated by derivations of tagged types use the aliased subprogram a
reference to locate their controlling type.
2009-04-20 Tristan Gingold <gingold@adacore.com>
* g-trasym.adb: Set size of result buffer before calling
convert_address.
2009-04-20 Ed Schonberg <schonberg@adacore.com>
* sem_ch4.adb (Valid_Candidate): When checking whether a prefixed call
to a function returning an array can be interpreted as a call with
defaulted parameters whose result is indexed, take into account the
types of all the indices of the array result type.
2009-04-20 Pascal Obry <obry@adacore.com>
* a-direct.adb, s-os_lib.adb: Minor reformatting.
From-SVN: r146411
Diffstat (limited to 'gcc/ada/g-trasym.adb')
| -rw-r--r-- | gcc/ada/g-trasym.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/g-trasym.adb b/gcc/ada/g-trasym.adb index 917e478..6b04800 100644 --- a/gcc/ada/g-trasym.adb +++ b/gcc/ada/g-trasym.adb @@ -77,7 +77,8 @@ package body GNAT.Traceback.Symbolic is -- This is the procedure version of the Ada aware addr2line. It places -- in BUF a string representing the symbolic translation of the N_ADDRS -- raw addresses provided in ADDRS, looked up in debug information from - -- FILENAME. LEN is filled with the result length. + -- FILENAME. LEN points to an integer which contains the size of the + -- BUF buffer at input and the result length at output. -- -- This procedure is provided by libaddr2line on targets that support -- it. A dummy version is in adaint.c for other targets so that build @@ -125,6 +126,7 @@ package body GNAT.Traceback.Symbolic is end if; if Exename /= System.Null_Address then + Len := Res'Length; convert_addresses (Exename, Traceback'Address, Traceback'Length, Res (1)'Address, Len'Address); |