From c6084ae0318f321b9f21af68fe5d5e92b3f13081 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 20 Aug 2008 15:15:11 +0200 Subject: [PATCH] freeze.adb (Freeze_Record_Type): Improve msg for non-contiguous field 2008-08-20 Robert Dewar * 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 --- gcc/ada/ChangeLog | 38 ++++++++++++++++++++++++++++++++++++++ gcc/ada/freeze.adb | 15 +++++++++------ gcc/ada/sem_ch13.adb | 10 ++++++---- 3 files changed, 53 insertions(+), 10 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4d5aae9ae2e..d23dc1676b3 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,41 @@ +2008-08-20 Robert Dewar + + * 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 + + * 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 + + * 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 + + * gnat_ugn.texi: Gcov is not supported on static library on AIX. + 2008-08-20 Robert Dewar * freeze.adb: Minor reformatting diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index c533449a2fb..dee40df6f9c 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 fe5305fa40f..a0154d25da2 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;