diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-21 10:27:54 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-21 10:27:54 +0000 |
| commit | 0b254a4dd1922150c0fc99e8824f27d642f5eadd (patch) | |
| tree | 6d5faf0858d3f86bb75e3b881fd0424bc6e3e527 /gcc/ada/g-socket.adb | |
| parent | d4fbac2f55e8157b73f2707250e64a813cad6337 (diff) | |
| download | gcc-0b254a4dd1922150c0fc99e8824f27d642f5eadd.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235331 138bc75d-0d04-0410-961f-82ee72b054a4
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 2baa4f7315e..477150de573 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; |