OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Simplify construction of messages about configurable runtime

Browse Source 
gcc/ada/

	* errout.adb (Error_Msg_CRT): Build message with string
	concatenation; it is slightly repetitive but much easier to
	read.
This commit is contained in:
Piotr Trojanek 2022-01-03 16:48:01 +01:00 committed by Pierre-Marie de Rodat
parent bf7355a7e8
commit 42c54add83
1 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gcc/ada/errout.adb
View File

@ -827,27 +827,14 @@ package body Errout is
-------------------
procedure Error_Msg_CRT (Feature : String; N : Node_Id) is
CNRT : constant String := " not allowed in no run time mode";
CCRT : constant String := " not supported by configuration>";
S : String (1 .. Feature'Length + 1 + CCRT'Length);
L : Natural;
begin
S (1) := '|';
S (2 .. Feature'Length + 1) := Feature;
L := Feature'Length + 2;
if No_Run_Time_Mode then
S (L .. L + CNRT'Length - 1) := CNRT;
L := L + CNRT'Length - 1;
Error_Msg_N ('|' & Feature & " not allowed in no run time mode", N);
else pragma Assert (Configurable_Run_Time_Mode);
S (L .. L + CCRT'Length - 1) := CCRT;
L := L + CCRT'Length - 1;
Error_Msg_N ('|' & Feature & " not supported by configuration>", N);
end if;
Error_Msg_N (S (1 .. L), N);
Configurable_Run_Time_Violations := Configurable_Run_Time_Violations + 1;
end Error_Msg_CRT;