File tree Expand file tree Collapse file tree 1 file changed +9
-9
lines changed Expand file tree Collapse file tree 1 file changed +9
-9
lines changed Original file line number Diff line number Diff line change @@ -240,15 +240,15 @@ procedure Main is
240240 Next_SF : SF_Id := First_SF_Id;
241241 Files : Natural;
242242
243- procedure Wait_Gnatcheck ;
244- -- Wait for one gnatcheck child process to finish and
243+ procedure Wait_Lkql_Checker ;
244+ -- Wait for one Lkql_Checker child process to finish and
245245 -- analyze its output. Also deal with the gprbuild child if any.
246246
247- -- ------------------
248- -- Wait_Gnatcheck --
249- -- ------------------
247+ -- ---------------------
248+ -- Wait_Lkql_Checker --
249+ -- ---------------------
250250
251- procedure Wait_Gnatcheck is
251+ procedure Wait_Lkql_Checker is
252252 Process_Found : Boolean := False;
253253 begin
254254 loop
@@ -323,7 +323,7 @@ procedure Main is
323323 exit ;
324324 end if ;
325325 end loop ;
326- end Wait_Gnatcheck ;
326+ end Wait_Lkql_Checker ;
327327
328328 begin
329329 -- Process sources to take pragma Annotate into account
@@ -366,7 +366,7 @@ procedure Main is
366366 end if ;
367367
368368 if Job >= Process_Num then
369- Wait_Gnatcheck ;
369+ Wait_Lkql_Checker ;
370370 end if ;
371371 end loop ;
372372
@@ -380,7 +380,7 @@ procedure Main is
380380 -- Wait for remaining children
381381
382382 while Current /= Total_Jobs loop
383- Wait_Gnatcheck ;
383+ Wait_Lkql_Checker ;
384384 end loop ;
385385
386386 if not Arg.Debug_Mode.Get then
You can’t perform that action at this time.
0 commit comments