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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 4d5aae9ae2ee1a297f5eb46fefffc7aabb4e2656..d23dc1676b30608ea8b0f29d796bbec27937b531 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,41 @@
+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

diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb
index c533449a2fbabf071e5141872a6141a89d75629a..dee40df6f9c61ade17c2bcde48161970dc1c838e 100644 (file)
--- 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 fe5305fa40f5cd31b22f91a003e8f1c88987e9cd..a0154d25da2b226ee320b2364453689f2f557890 100644 (file)
--- 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;