Skip to content

Commit 015b217

Browse files
committed
lkql_checker: rename Wait_Gnatcheck to Wait_Lkql_Checker
1 parent 0374747 commit 015b217

File tree

1 file changed

+9
-9
lines changed

1 file changed

+9
-9
lines changed

lkql_checker/src/main.adb

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff 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

0 commit comments

Comments
 (0)