|
17 | 17 | ------------------------------------------------------------------------------
|
18 | 18 |
|
19 | 19 | with Ada.Characters.Handling; use Ada.Characters.Handling;
|
20 |
| -with Ada.Characters.Latin_1; use Ada.Characters.Latin_1; |
21 | 20 | with Ada.Containers.Hashed_Maps;
|
22 | 21 | with Ada.Containers.Indefinite_Ordered_Maps;
|
23 | 22 | with Ada.Containers.Indefinite_Ordered_Sets;
|
|
954 | 953 | -- will not cover the whole project tree.
|
955 | 954 |
|
956 | 955 | declare
|
957 |
| - All_File_Names : Unbounded_String := +""; |
| 956 | + All_File_Names : Unbounded_String; |
958 | 957 | begin
|
959 | 958 | 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); |
962 | 961 | end loop;
|
963 | 962 |
|
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."); |
974 | 972 | end;
|
975 | 973 | end if;
|
976 | 974 | end Insert_Manual_Dump_Trigger;
|
|
0 commit comments