diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-14 14:58:07 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-14 14:58:07 +0200 |
commit | e4691ba99bff054f10be59543a6571fdbabbb427 (patch) | |
tree | 0da9ae3cf125fe15279d8fbab380186d017f8e4e /gcc/ada/a-exexda.adb | |
parent | 0a387eca30eaf0766b8de644dd61bf9cadbbf21d (diff) | |
download | gcc-e4691ba99bff054f10be59543a6571fdbabbb427.tar.gz |
[multiple changes]
2013-10-14 Robert Dewar <dewar@adacore.com>
* exp_prag.adb, sem_prag.adb, a-exexda.adb, s-vmexta.ads: Minor
reformatting.
2013-10-14 Vincent Celier <celier@adacore.com>
* ali.adb (Get_File_Name): New Boolean parameter May_Be_Quoted,
defaulted to False. Calls Get_Name with May_Be_Quoted.
(Get_Name): New Boolean parameter May_Be_Quoted, defaulted to
False. If May_Be_Quoted is True and first non blank charater is
'"', unquote the name.
(Scan_ALI): For the file/path name on the D line, call Get_File_Name
with May_Be_Quoted = True, as it may have been quoted.
* lib-util.adb, lib-util.ads (Write_Info_Name_May_Be_Quoted): New
procedure to write file/path names that may contain spaces and if they
do are quoted.
* lib-writ.adb (Write_ALI): Use new procedure
Write_Info_Name_May_Be_Quoted to write file/path names on D lines.
From-SVN: r203534
Diffstat (limited to 'gcc/ada/a-exexda.adb')
-rw-r--r-- | gcc/ada/a-exexda.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/a-exexda.adb b/gcc/ada/a-exexda.adb index 815afac8dbf..a201551b702 100644 --- a/gcc/ada/a-exexda.adb +++ b/gcc/ada/a-exexda.adb @@ -390,6 +390,7 @@ package body Exception_Data is Ptr : in out Natural) is Load_Address : Address; + begin if X.Num_Tracebacks = 0 then return; @@ -398,6 +399,7 @@ package body Exception_Data is -- The executable load address line Load_Address := Get_Executable_Load_Address; + if Load_Address /= Null_Address then Append_Info_String (LDAD_Header, Info, Ptr); Append_Info_Address (Load_Address, Info, Ptr); @@ -427,9 +429,9 @@ package body Exception_Data is Space_Per_Address : constant := 2 + 16 + 1; -- Space for "0x" + HHHHHHHHHHHHHHHH + " " begin - return LDAD_Header'Length + Space_Per_Address + - BETB_Header'Length + 1 + - X.Num_Tracebacks * Space_Per_Address + 1; + return + LDAD_Header'Length + Space_Per_Address + BETB_Header'Length + 1 + + X.Num_Tracebacks * Space_Per_Address + 1; end Basic_Exception_Tback_Maxlength; --------------------------------------- |