diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-21 12:27:54 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-21 12:27:54 +0200 |
| commit | 6c7f7b8c698b13ddd97d047c738da48a518e9f0f (patch) | |
| tree | 6d5faf0858d3f86bb75e3b881fd0424bc6e3e527 /gcc/ada/g-socket.adb | |
| parent | 0310af44bbc4c372246641d891de639f96c15971 (diff) | |
| download | gcc-6c7f7b8c698b13ddd97d047c738da48a518e9f0f.zip gcc-6c7f7b8c698b13ddd97d047c738da48a518e9f0f.tar.gz gcc-6c7f7b8c698b13ddd97d047c738da48a518e9f0f.tar.bz2 | |
[multiple changes]
2016-04-21 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Match_Constituent): Treat a constant as a legal
constituent even if it is not to prevent spurious errors.
2016-04-21 Gary Dismukes <dismukes@adacore.com>
* sem_ch4.adb: Minor typo fixes and reformatting.
2016-04-21 Dmitriy Anisimkov <anisimko@adacore.com>
* g-calend.ads (No_Time): The same value in any timezone.
* g-socket.adb (Raise_Host_Error): Remove ending
dot from original error message before append colon delimited
host name.
From-SVN: r235331
Diffstat (limited to 'gcc/ada/g-socket.adb')
| -rw-r--r-- | gcc/ada/g-socket.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 2baa4f7..477150d 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -1702,10 +1702,14 @@ package body GNAT.Sockets is ---------------------- procedure Raise_Host_Error (H_Error : Integer; Name : String) is + function Dedot (Value : String) return String is + (if Value /= "" and then Value (Value'Last) = '.' + then Value (Value'First .. Value'Last - 1) else Value); + -- Removes dot at the end of error message begin raise Host_Error with Err_Code_Image (H_Error) - & Host_Error_Messages.Host_Error_Message (H_Error) + & Dedot (Host_Error_Messages.Host_Error_Message (H_Error)) & ": " & Name; end Raise_Host_Error; |