+2014-02-24 Olivier Ramonat <ramonat@adacore.com>
+
+ * gnat_rm.texi, gnat_ugn.texi: Replace Ada Compiler by Ada Development
+ Environment.
+
+2014-02-24 Hristian Kirtchev <kirtchev@adacore.com>
+
+ * sem_prag.adb (Check_Constituent_Usage): Remove leading spaces in
+ error messages.
+ (Inconsistent_Mode_Error): Remove leading spaces in error messages.
+ Merge the expected and available mode errors.
+ (Report_Unused_Constituents): Remove leading spaces in error messages.
+ (Report_Unused_States): Remove leading spaces in error messages.
+
2014-02-24 Thomas Quinot <quinot@adacore.com>
* par_sco.adb (Traverse_One): Refine categorization of statement
@titlepage
@title GNAT Reference Manual
-@subtitle GNAT, The GNU Ada Compiler
+@subtitle GNAT, The GNU Ada Development Environment
@versionsubtitle
@author AdaCore
@page
GNAT Reference Manual
@noindent
-GNAT, The GNU Ada Compiler@*
+GNAT, The GNU Ada Development Environment@*
GCC version @value{version-GCC}@*
@noindent
@sp 2
-@subtitle GNAT, The GNU Ada Compiler
+@subtitle GNAT, The GNU Ada Development Environment
@versionsubtitle
@author AdaCore
@value{EDITION} User's Guide @value{PLATFORM}
@noindent
-GNAT, The GNU Ada Compiler@*
+GNAT, The GNU Ada Development Environment@*
GCC version @value{version-GCC}@*
@noindent
procedure Grouping_Error (Prag : Node_Id) is
begin
Error_Msg_Sloc := Sloc (Prag);
- Error_Pragma
- ("pragma% should appear immediately after pragma#");
+ Error_Pragma ("pragma% must appear next to pragma#");
end Grouping_Error;
-- Start of processing for Check_Loop_Pragma_Grouping
end if;
Error_Msg_NE
- ("\\ constituent & is missing in output list",
+ ("\\constituent & is missing in output list",
N, Constit_Id);
end if;
("global item & has inconsistent modes", Item, Item_Id);
Error_Msg_Name_1 := Global_Mode;
- Error_Msg_N ("\\ expected mode %", Item);
-
- Error_Msg_Name_1 := Expect;
- Error_Msg_N ("\\ found mode %", Item);
+ Error_Msg_Name_2 := Expect;
+ Error_Msg_N ("\\expected mode %, found mode %", Item);
end Inconsistent_Mode_Error;
-- Start of processing for Check_Refined_Global_Item
if Ekind (Constit_Id) = E_Abstract_State then
Error_Msg_NE
- ("\\ abstract state & defined #", State, Constit_Id);
+ ("\\abstract state & defined #", State, Constit_Id);
else
Error_Msg_NE
- ("\\ variable & defined #", State, Constit_Id);
+ ("\\variable & defined #", State, Constit_Id);
end if;
Next_Elmt (Constit_Elmt);
if Ekind (State_Id) = E_Abstract_State then
Error_Msg_NE
- ("\\ abstract state & defined #", Body_Id, State_Id);
+ ("\\abstract state & defined #", Body_Id, State_Id);
else
Error_Msg_NE
- ("\\ variable & defined #", Body_Id, State_Id);
+ ("\\variable & defined #", Body_Id, State_Id);
end if;
Next_Elmt (State_Elmt);