diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-20 15:15:11 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-20 15:15:11 +0200 |
| commit | c6084ae0318f321b9f21af68fe5d5e92b3f13081 (patch) | |
| tree | 76bfd7d4b74cc7542dee8954841ef74e9ec33533 /gcc | |
| parent | e2081a1d5d6d18cb0f607411bbdf04fc1b9f31bd (diff) | |
| download | gcc-c6084ae0318f321b9f21af68fe5d5e92b3f13081.zip gcc-c6084ae0318f321b9f21af68fe5d5e92b3f13081.tar.gz gcc-c6084ae0318f321b9f21af68fe5d5e92b3f13081.tar.bz2 | |
freeze.adb (Freeze_Record_Type): Improve msg for non-contiguous field
2008-08-20 Robert Dewar <dewar@adacore.com>
* freeze.adb (Freeze_Record_Type): Improve msg for non-contiguous field
* sem_ch13.adb:
(Adjust_Record_For_Reverse_Bit_Order): Messages about layout are
now labeled as info msgs, not warnings.
From-SVN: r139287
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 38 | ||||
| -rw-r--r-- | gcc/ada/freeze.adb | 15 | ||||
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 10 |
3 files changed, 53 insertions, 10 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4d5aae9..d23dc16 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,43 @@ 2008-08-20 Robert Dewar <dewar@adacore.com> + * freeze.adb (Freeze_Record_Type): Improve msg for non-contiguous field + + * sem_ch13.adb: + (Adjust_Record_For_Reverse_Bit_Order): Messages about layout are + now labeled as info msgs, not warnings. + + * tbuild.ads: Clarify documentation of Make_Implicit_Exception_Handler + + * usage.adb: Minor change to avoid overlong line for -gnatwz/Z + + * a-textio.adb: Remove redundant test. + + * a-witeio.adb: Minor code reorganization + Remove redundant test found working on another issue + + * a-ztexio.adb: Minor code reorganization + Remove redundant test found working on another issue + +2008-08-20 Thomas Quinot <quinot@adacore.com> + + * s-fileio.adb (Open) Use C helper function to determine whether a + given errno value corresponds to a "file not found" error. + + * sysdep.c (__gnat_is_file_not_found_error): New C helper function. + +2008-08-20 Jose Ruiz <ruiz@adacore.com> + + * errno.c (__get_errno for MaRTE): Use the MaRTE function pthread_errno + to get access to the per-task errno variable. + (__set_errno for MaRTE): Do not redefine this function here since it is + already defined in MaRTE. + +2008-08-20 Tristan Gingold <gingold@adacore.com> + + * gnat_ugn.texi: Gcov is not supported on static library on AIX. + +2008-08-20 Robert Dewar <dewar@adacore.com> + * freeze.adb: Minor reformatting * g-comlin.adb: Minor reformatting diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index c533449..dee40df 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -1795,18 +1795,21 @@ package body Freeze is & "(component is little-endian)?", CLC); end if; - -- Do not allow non-contiguous field + -- Do not allow non-contiguous field else Error_Msg_N - ("attempt to specify non-contiguous field" - & " not permitted", CLC); + ("attempt to specify non-contiguous field " + & "not permitted", CLC); Error_Msg_N - ("\(caused by non-standard Bit_Order " - & "specified)", CLC); + ("\caused by non-standard Bit_Order " + & "specified", CLC); + Error_Msg_N + ("\consider possibility of using " + & "Ada 2005 mode here", CLC); end if; - -- Case where field fits in one storage unit + -- Case where field fits in one storage unit else -- Give warning if suspicious component clause diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index fe5305f..a0154d2 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -433,18 +433,20 @@ package body Sem_Ch13 is if Warn_On_Reverse_Bit_Order then Error_Msg_Uint_1 := MSS; Error_Msg_N - ("?reverse bit order in machine " & - "scalar of length^", First_Bit (CC)); + ("info: reverse bit order in machine " & + "scalar of length^?", First_Bit (CC)); Error_Msg_Uint_1 := NFB; Error_Msg_Uint_2 := NLB; if Bytes_Big_Endian then Error_Msg_NE - ("?\big-endian range for component & is ^ .. ^", + ("?\info: big-endian range for " + & "component & is ^ .. ^", First_Bit (CC), Comp); else Error_Msg_NE - ("?\little-endian range for component & is ^ .. ^", + ("?\info: little-endian range " + & "for component & is ^ .. ^", First_Bit (CC), Comp); end if; end if; |