Skip to content

Commit 496832d

Browse files
committed
compiler_wrappers-gcc.adb: use the Null_Unbounded_String constant
1 parent c26fe66 commit 496832d

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

tools/gnatcov/compiler_wrappers-gcc.adb

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -65,8 +65,8 @@ is
6565

6666
No_Compilation_Command : constant Compilation_Command_Type :=
6767
(Language => All_Languages,
68-
Filename => +"",
69-
Target => +"",
68+
Filename => Null_Unbounded_String,
69+
Target => Null_Unbounded_String,
7070
Instrumentation_Sources => String_Vectors.Empty_Vector);
7171

7272
package Compilation_Command_Vectors is new Ada.Containers.Vectors
@@ -84,8 +84,8 @@ is
8484
-- driver.
8585

8686
No_Assembly_Command : constant Assembly_Command_Type :=
87-
(Filename => +"",
88-
Target => +"");
87+
(Filename => Null_Unbounded_String,
88+
Target => Null_Unbounded_String);
8989

9090
package Assembly_Command_Vectors is new Ada.Containers.Vectors
9191
(Index_Type => Positive, Element_Type => Assembly_Command_Type);
@@ -115,7 +115,7 @@ is
115115
Libraries => String_Vectors.Empty_Vector,
116116
Object_Files => String_Vectors.Empty_Vector,
117117
Source_Files => String_Vectors.Empty_Vector,
118-
Target => +"");
118+
Target => Null_Unbounded_String);
119119

120120
type Compilation_Database is record
121121
Compilation_Commands : Compilation_Command_Vectors.Vector;
@@ -220,7 +220,7 @@ is
220220
for C of Command loop
221221
if C = ' ' and then Arg /= "" then
222222
Result.Append (Arg);
223-
Arg := +"";
223+
Arg := Null_Unbounded_String;
224224
else
225225
Append (Arg, C);
226226
end if;

0 commit comments

Comments
 (0)