10381038 C_Language => C_Instrumenter'Access ,
10391039 CPP_Language => CPP_Instrumenter'Access );
10401040
1041- -- Start of processing for Instrument_Units_Of_Interest
1041+ -- Start of processing for Instrument_Units_Of_Interest
10421042
10431043begin
10441044 -- Set the instrumentation tag
@@ -1203,6 +1203,7 @@ begin
12031203 CPP_Instrumenter := Create_CPP_Instrumenter (IC.Tag);
12041204
12051205 if Dump_Config.Trigger = Manual then
1206+
12061207 -- Replace manual dump indications for C-like languages
12071208
12081209 for Lang in C_Family_Language loop
@@ -1248,7 +1249,6 @@ begin
12481249 Instrument_Source_Args.Append
12491250 (Common_Switches (Cmd_Instrument_Source));
12501251 for Cur in Instrumented_Sources.Iterate loop
1251-
12521252 declare
12531253 Unit_Args : String_Vectors.Vector :=
12541254 Instrument_Source_Args.Copy;
@@ -1274,12 +1274,7 @@ begin
12741274
12751275 -- Add the arguments that are specific to the compilation unit
12761276
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));
12831278 Unit_Args.Append (+" --sid=" & Obj_SID);
12841279
12851280 -- We instrument the body, spec and separates as a whole
0 commit comments