Skip to content

Commit ef912e7

Browse files
committed
instrument-projects.adb: simplify warning message formatting code
1 parent c174f57 commit ef912e7

File tree

1 file changed

+12
-14
lines changed

1 file changed

+12
-14
lines changed

tools/gnatcov/instrument-projects.adb

Lines changed: 12 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,6 @@
1717
------------------------------------------------------------------------------
1818

1919
with Ada.Characters.Handling; use Ada.Characters.Handling;
20-
with Ada.Characters.Latin_1; use Ada.Characters.Latin_1;
2120
with Ada.Containers.Hashed_Maps;
2221
with Ada.Containers.Indefinite_Ordered_Maps;
2322
with Ada.Containers.Indefinite_Ordered_Sets;
@@ -954,23 +953,22 @@ is
954953
-- will not cover the whole project tree.
955954

956955
declare
957-
All_File_Names : Unbounded_String := +"";
956+
All_File_Names : Unbounded_String;
958957
begin
959958
for File_Name of Non_Root_Src_Calls loop
960-
All_File_Names :=
961-
All_File_Names & (+File_Name) & Ada.Characters.Latin_1.LF;
959+
Append (All_File_Names, File_Name);
960+
Append (All_File_Names, ASCII.LF);
962961
end loop;
963962

964-
Outputs.Warn ("Manual dump trigger indications were found in"
965-
& " subprojects in the following files:"
966-
& Ada.Characters.Latin_1.LF
967-
& (+All_File_Names)
968-
& "The coverage report built from the source traces"
969-
& " they will produce will show all code from"
970-
& " projects higher in the project tree as not"
971-
& " covered. To get a full coverage analysis,"
972-
& " consider placing the manual dump buffers"
973-
& " indication in the root project.");
963+
Outputs.Warn
964+
("Manual dump trigger indications were found in subprojects in"
965+
& " the following files:" & ASCII.LF
966+
& (+All_File_Names)
967+
& "The coverage report built from the source traces they will"
968+
& " produce will show all code from projects higher in the"
969+
& " project tree as not covered. To get a full coverage"
970+
& " analysis, consider placing the manual dump buffers"
971+
& " indication in the root project.");
974972
end;
975973
end if;
976974
end Insert_Manual_Dump_Trigger;

0 commit comments

Comments
 (0)