mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-10 02:40:28 +08:00
Code Issues Packages Projects Releases Wiki Activity

[multiple changes]

Browse Source 
2012-10-29  Arnaud Charlet  <charlet@adacore.com>

	* usage.adb: Update usage line for -gnatw.k.

2012-10-29  Yannick Moy  <moy@adacore.com>

	* sem_prag.adb: Code clean up.

From-SVN: r192924
This commit is contained in:
Arnaud Charlet 2012-10-29 11:50:12 +01:00
parent 9c79f208a3
commit c607e6d50e
3 changed files with 22 additions and 8 deletions

8
gcc/ada/ChangeLog

@ -1,3 +1,11 @@
2012-10-29 Arnaud Charlet <charlet@adacore.com>
* usage.adb: Update usage line for -gnatw.k.
2012-10-29 Yannick Moy <moy@adacore.com>
* sem_prag.adb: Code clean up.
2012-10-29 Vincent Celier <celier@adacore.com>
* projects.texi: Clarify documentation of attribute

20
gcc/ada/sem_prag.adb

@ -6759,9 +6759,9 @@ package body Sem_Prag is
end if;
end Annotate;
-----------------------------
-- Assert & Assert_And_Cut --
-----------------------------
---------------------------
-- Assert/Assert_And_Cut --
---------------------------
-- pragma Assert ([Check =>] Boolean_EXPRESSION
-- [, [Message =>] Static_String_EXPRESSION]);
@ -6774,7 +6774,13 @@ package body Sem_Prag is
Newa : List_Id;
begin
Ada_2005_Pragma;
if Prag_Id = Pragma_Assert then
Ada_2005_Pragma;
else -- Pragma_Assert_And_Cut
GNAT_Pragma;
end if;
Check_At_Least_N_Arguments (1);
Check_At_Most_N_Arguments (2);
Check_Arg_Order ((Name_Check, Name_Message));
@ -13679,9 +13685,9 @@ package body Sem_Prag is
end;
end Stream_Convert;
-------------------------
-- Style_Checks (GNAT) --
-------------------------
------------------
-- Style_Checks --
------------------
-- pragma Style_Checks (On | Off | ALL_CHECKS | STRING_LITERAL);

2
gcc/ada/usage.adb

@ -474,7 +474,7 @@ begin
"(annex J) feature");
Write_Line (" k+ turn on warnings on constant variable");
Write_Line (" K* turn off warnings on constant variable");
Write_Line (" .k+ turn on warnings for standard redefinition");
Write_Line (" .k turn on warnings for standard redefinition");
Write_Line (" .K* turn off warnings for standard redefinition");
Write_Line (" l turn on warnings for missing " &
"elaboration pragma");