Skip to content

Commit a9aeb0a

Browse files
committed
Remove the 'Set_Default_Target'
1 parent b6598dc commit a9aeb0a

File tree

3 files changed

+0
-17
lines changed

3 files changed

+0
-17
lines changed

lkql_checker/src/gnatcheck-projects.adb

Lines changed: 0 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -778,17 +778,6 @@ package body Gnatcheck.Projects is
778778
GPR2.Project.Registry.Pack.Check_Attributes (+"Check");
779779
end Register_Tool_Attributes;
780780

781-
------------------------
782-
-- Set_Default_Target --
783-
------------------------
784-
785-
procedure Set_Default_Target is
786-
begin
787-
if not Gnatkp_Mode and then Should_Use_Codepeer_Target then
788-
GPR2.KB.Set_Default_Target ("codepeer");
789-
end if;
790-
end Set_Default_Target;
791-
792781
-------------------------
793782
-- Set_External_Values --
794783
-------------------------

lkql_checker/src/gnatcheck-projects.ads

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -327,10 +327,6 @@ package Gnatcheck.Projects is
327327
-- General project file processing --
328328
-------------------------------------
329329

330-
procedure Set_Default_Target;
331-
-- If codepeer is on PATH, replaces default target with "codepeer",
332-
-- does nothing in gnatkp mode.
333-
334330
procedure Initialize_Environment;
335331
-- Initializes the environment for extracting the information from the
336332
-- project file. This includes setting the parameters specific for the

lkql_checker/src/gnatcheck_main.adb

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -462,8 +462,6 @@ begin
462462
end if;
463463
end if;
464464

465-
Gnatcheck.Projects.Set_Default_Target;
466-
467465
-- If we have the project file specified as a tool parameter, analyze it.
468466

469467
Gnatcheck.Projects.Process_Project_File (Gnatcheck_Prj);

0 commit comments

Comments
 (0)