procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

freeze.adb (Freeze_Record_Type): Improve msg for non-contiguous field

Browse source 
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
This commit is contained in:
Arnaud Charlet 2008-08-20 15:15:11 +02:00
parent e2081a1d5d
commit c6084ae031
3 changed files with 53 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
gcc/ada/ChangeLog
View file

@ -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

15
gcc/ada/freeze.adb
View file

@ -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

10
gcc/ada/sem_ch13.adb
View file

@ -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;