[gcc r11-5399] [Ada] Fix casing of "circular instantiation" error
Pierre-Marie de Rodat
pmderodat@gcc.gnu.org
Thu Nov 26 08:40:54 GMT 2020
https://gcc.gnu.org/g:8593037b17ddbdad375954e59838e6f4083f44ba
commit r11-5399-g8593037b17ddbdad375954e59838e6f4083f44ba
Author: Piotr Trojanek <trojanek@adacore.com>
Date: Mon Oct 19 16:57:01 2020 +0200
[Ada] Fix casing of "circular instantiation" error
gcc/ada/
* sem_ch12.adb: Fix casing from "Instantiation" to
"instantiation".
Diff:
---
gcc/ada/sem_ch12.adb | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index 99a62c40c7a..dfb0765e2b5 100644
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -4306,7 +4306,7 @@ package body Sem_Ch12 is
elsif Contains_Instance_Of (Gen_Unit, Current_Scope, Gen_Id) then
Error_Msg_Node_2 := Current_Scope;
Error_Msg_NE
- ("circular Instantiation: & instantiated in &!", N, Gen_Unit);
+ ("circular instantiation: & instantiated in &!", N, Gen_Unit);
Circularity_Detected := True;
Restore_Env;
goto Leave;
@@ -5682,7 +5682,7 @@ package body Sem_Ch12 is
if Contains_Instance_Of (Gen_Unit, Current_Scope, Gen_Id) then
Error_Msg_Node_2 := Current_Scope;
Error_Msg_NE
- ("circular Instantiation: & instantiated in &!", N, Gen_Unit);
+ ("circular instantiation: & instantiated in &!", N, Gen_Unit);
Circularity_Detected := True;
Restore_Hidden_Primitives (Vis_Prims_List);
goto Leave;
@@ -7800,7 +7800,7 @@ package body Sem_Ch12 is
if Node (Elmt) = Scop then
Error_Msg_Node_2 := Inner;
Error_Msg_NE
- ("circular Instantiation: & instantiated within &!",
+ ("circular instantiation: & instantiated within &!",
N, Scop);
return True;
@@ -7810,7 +7810,7 @@ package body Sem_Ch12 is
elsif Contains_Instance_Of (Node (Elmt), Scop, N) then
Error_Msg_Node_2 := Inner;
Error_Msg_NE
- ("circular Instantiation: & instantiated within &!",
+ ("circular instantiation: & instantiated within &!",
N, Node (Elmt));
return True;
end if;
More information about the Gcc-cvs
mailing list