1038
1038
C_Language => C_Instrumenter'Access ,
1039
1039
CPP_Language => CPP_Instrumenter'Access );
1040
1040
1041
- -- Start of processing for Instrument_Units_Of_Interest
1041
+ -- Start of processing for Instrument_Units_Of_Interest
1042
1042
1043
1043
begin
1044
1044
-- Set the instrumentation tag
@@ -1203,6 +1203,7 @@ begin
1203
1203
CPP_Instrumenter := Create_CPP_Instrumenter (IC.Tag);
1204
1204
1205
1205
if Dump_Config.Trigger = Manual then
1206
+
1206
1207
-- Replace manual dump indications for C-like languages
1207
1208
1208
1209
for Lang in C_Family_Language loop
@@ -1248,7 +1249,6 @@ begin
1248
1249
Instrument_Source_Args.Append
1249
1250
(Common_Switches (Cmd_Instrument_Source));
1250
1251
for Cur in Instrumented_Sources.Iterate loop
1251
-
1252
1252
declare
1253
1253
Unit_Args : String_Vectors.Vector :=
1254
1254
Instrument_Source_Args.Copy;
@@ -1274,12 +1274,7 @@ begin
1274
1274
1275
1275
-- Add the arguments that are specific to the compilation unit
1276
1276
1277
- Unit_Args.Append
1278
- (Compilation_Unit_Options
1279
- (IC,
1280
- Desc,
1281
- LU_Info));
1282
-
1277
+ Unit_Args.Append (Compilation_Unit_Options (IC, Desc, LU_Info));
1283
1278
Unit_Args.Append (+" --sid=" & Obj_SID);
1284
1279
1285
1280
-- We instrument the body, spec and separates as a whole
0 commit comments