From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 23 Dec 2020 18:01:17 +0000 (+0100)
Subject: [Ada] Fix typos in calls to Error_Msg_NE
X-Git-Tag: basepoints/gcc-13~7952
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=add27f7aceefe79fea82a0fbd05f521c2e6f43d4;p=thirdparty%2Fgcc.git

[Ada] Fix typos in calls to Error_Msg_NE

gcc/ada/

	* sem_aggr.adb (Resolve_Record_Aggregate): Fix casing in error
	message.
	* sem_ch3.adb (Add_Internal_Interface_Entities): Fix unbalanced
	parens.
	* sem_elim.adb (Eliminate_Error_Msg): Add insertion character.
---

diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index 5fa1051a5fa0..5963d03992bc 100644
--- a/gcc/ada/sem_aggr.adb
+++ b/gcc/ada/sem_aggr.adb
@@ -5031,7 +5031,7 @@ package body Sem_Aggr is
 
          if Present (Get_Value (Component, Component_Associations (N))) then
             Error_Msg_NE
-              ("more than one value supplied for Component &", N, Component);
+              ("more than one value supplied for component &", N, Component);
          end if;
 
          Next (Positional_Expr);
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index deec92c81792..6a86efd90224 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -1777,7 +1777,7 @@ package body Sem_Ch3 is
                      elsif not Comes_From_Source (Prim) then
                         Error_Msg_NE
                           ("&inherits non-conforming preconditions and must "
-                           & "be overridden (RM 6.1.1 (10-16)",
+                           & "be overridden (RM 6.1.1 (10-16))",
                            Parent (Tagged_Type), Prim);
                      end if;
                   end if;
diff --git a/gcc/ada/sem_elim.adb b/gcc/ada/sem_elim.adb
index d693a8de4538..62e9fc05e328 100644
--- a/gcc/ada/sem_elim.adb
+++ b/gcc/ada/sem_elim.adb
@@ -783,7 +783,7 @@ package body Sem_Elim is
         and then Is_Concurrent_Record_Type (Etype (First_Entity (E)))
       then
          Error_Msg_NE
-           ("cannot reference eliminated protected subprogram", N, E);
+           ("cannot reference eliminated protected subprogram&", N, E);
 
       --  Otherwise should not fall through, entry should be in table