[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