diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-20 10:13:47 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-20 10:13:47 +0000 |
| commit | 2f5441e12ec681ffc1c29f35901053c909ddbb03 (patch) | |
| tree | ce636ee22f22a65fbe93ce2cc813d6e3a8a4bf72 /gcc/ada/s-trasym.adb | |
| parent | dc62faeeec97287ca7b6e89d5481cb48fad9b082 (diff) | |
| download | gcc-2f5441e12ec681ffc1c29f35901053c909ddbb03.tar.gz | |
2015-10-20 Bob Duff <duff@adacore.com>
* a-coinve.adb, a-contai.adb: Update comments.
* pprint.ads: Minor reformatting.
2015-10-20 Tristan Gingold <gingold@adacore.com>
* env.c, init.c: Handle arm64-darwin like arm-darwin.
* tracebak.c: Handle arm64-darwin.
2015-10-20 Bob Duff <duff@adacore.com>
* s-trasym.adb (Symbolic_Traceback): When giving the traceback
as hexadecimal code addresses, separate by blanks instead of LF.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@229039 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-trasym.adb')
| -rw-r--r-- | gcc/ada/s-trasym.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/s-trasym.adb b/gcc/ada/s-trasym.adb index 1dd0d71529e..b98d1c334dd 100644 --- a/gcc/ada/s-trasym.adb +++ b/gcc/ada/s-trasym.adb @@ -30,8 +30,8 @@ ------------------------------------------------------------------------------ -- This is the default implementation for platforms where the full capability --- is not supported. It returns tracebacks as lists of LF separated strings of --- the form "0x..." corresponding to the addresses. +-- is not supported. It returns tracebacks as lists of hexadecimal addresses +-- of the form "0x...". pragma Polling (Off); -- We must turn polling off for this unit, because otherwise we can get @@ -67,9 +67,10 @@ package body System.Traceback.Symbolic is Last := Last + 2; Result (Last + 1 .. Last + Img'Length) := Img; Last := Last + Img'Length + 1; - Result (Last) := ASCII.LF; + Result (Last) := ' '; end loop; + Result (Last) := ASCII.LF; return Result (1 .. Last); end; end if; |