[Ada] minor fix to error messages
Arnaud Charlet
charlet@adacore.com
Thu Jun 16 09:26:00 GMT 2005
Tested on i686-linux, committed on mainline.
Fix some minor inconsistenties in error message
formats. Our convention is that the first character of an error message
is in lower case if it is an ordinary english word (rather than a
keyword or an entity name). A few messages from the compiler did not
follow this convention and have been corrected.
2005-06-14 Robert Dewar <dewar@adacore.com>
* exp_intr.adb, par-ch5.adb: Minor fix to error message text
-------------- next part --------------
Index: exp_intr.adb
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/exp_intr.adb,v
retrieving revision 1.12
diff -u -p -r1.12 exp_intr.adb
--- exp_intr.adb 29 Mar 2005 16:15:39 -0000 1.12
+++ exp_intr.adb 15 Jun 2005 15:46:47 -0000
@@ -735,7 +735,7 @@ package body Exp_Intr is
and then Is_Entity_Name (Nam2)
and then Entity (Prefix (Nam1)) = Entity (Nam2)
then
- Error_Msg_N ("Abort may take time to complete?", N);
+ Error_Msg_N ("abort may take time to complete?", N);
Error_Msg_N ("\deallocation might have no effect?", N);
Error_Msg_N ("\safer to wait for termination.?", N);
end if;
Index: par-ch5.adb
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/par-ch5.adb,v
retrieving revision 1.11
diff -u -p -r1.11 par-ch5.adb
--- par-ch5.adb 19 Nov 2004 10:56:52 -0000 1.11
+++ par-ch5.adb 15 Jun 2005 15:46:47 -0000
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2004, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@@ -1215,7 +1215,7 @@ package body Ch5 is
-- Here we have an else that really is an else
if Present (Else_Statements (If_Node)) then
- Error_Msg_SP ("Only one ELSE part allowed");
+ Error_Msg_SP ("only one ELSE part allowed");
Append_List
(P_Sequence_Of_Statements (SS_Eftm_Eltm_Sreq),
Else_Statements (If_Node));
More information about the Gcc-patches
mailing list