diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-24 18:06:34 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-24 18:06:34 +0100 |
| commit | 158d55fa393867c794df5aa43b693f61e5916b83 (patch) | |
| tree | 7b2b58757fa8dde2e0d1161f993fb42856cfee7f /gcc/ada/g-sercom-linux.adb | |
| parent | 5c20e503ba3644e0037b09db9384f70aaa1daaa5 (diff) | |
| download | gcc-158d55fa393867c794df5aa43b693f61e5916b83.zip gcc-158d55fa393867c794df5aa43b693f61e5916b83.tar.gz gcc-158d55fa393867c794df5aa43b693f61e5916b83.tar.bz2 | |
[multiple changes]
2014-02-24 Robert Dewar <dewar@adacore.com>
* a-tags.adb, s-os_lib.adb: Minor reformatting.
2014-02-24 Thomas Quinot <quinot@adacore.com>
* g-sercom-mingw.adb, g-sercom-linux.adb (Raise_Error): Include
strerror message, not just numeric errno value.
2014-02-24 Doug Rupp <rupp@adacore.com>
* raise-gcc.c (exception_class_eq): Make endian neutral.
2014-02-24 Ed Schonberg <schonberg@adacore.com>
* atree.ads, atree,adb (Copy_Separate_Tree): Remove Syntax_Only
flag, and reset Etype and Analyzed attributes unconditionally
when copying a tree that may be partly analyzed.
* freeze.adb: Change calls to Copy_Separate_Tree accordingly.
* sem_ch6.adb (Check_Inline_Pragma): If the Inline pragma appears
within a subprogram body and applies to it, remove it from the
body before making a copy of it, to prevent spurious errors when
analyzing the copied body.
From-SVN: r208086
Diffstat (limited to 'gcc/ada/g-sercom-linux.adb')
| -rw-r--r-- | gcc/ada/g-sercom-linux.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/g-sercom-linux.adb b/gcc/ada/g-sercom-linux.adb index d485c1b..a3d866a 100644 --- a/gcc/ada/g-sercom-linux.adb +++ b/gcc/ada/g-sercom-linux.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2007-2012, AdaCore -- +-- Copyright (C) 2007-2013, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -132,7 +132,10 @@ package body GNAT.Serial_Communications is procedure Raise_Error (Message : String; Error : Integer := Errno) is begin - raise Serial_Error with Message & " (" & Integer'Image (Error) & ')'; + raise Serial_Error with Message + & (if Error /= 0 + then " (" & Errno_Message (Err => Error) & ')' + else ""); end Raise_Error; ---------- |