Skip to content

Commit 7c60946

Browse files
committed
Rename 'Add_Rule_Option' function to 'Add_Legacy_Rule_Option'
1 parent 65d5757 commit 7c60946

File tree

2 files changed

+10
-10
lines changed

2 files changed

+10
-10
lines changed

lkql_checker/src/gnatcheck-projects.adb

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1090,11 +1090,11 @@ package body Gnatcheck.Projects is
10901090
Process_Compiler_Instances;
10911091
end Process_Rule_Options;
10921092

1093-
---------------------
1094-
-- Add_Rule_Option --
1095-
---------------------
1093+
----------------------------
1094+
-- Add_Legacy_Rule_Option --
1095+
----------------------------
10961096

1097-
procedure Add_Rule_Option (Opt : String; Prepend : Boolean := False) is
1097+
procedure Add_Legacy_Rule_Option (Opt : String; Prepend : Boolean := False) is
10981098
use Ada.Strings.Unbounded;
10991099

11001100
Opt_Rec : constant Option_Record :=
@@ -1105,7 +1105,7 @@ package body Gnatcheck.Projects is
11051105
else
11061106
Rule_Options.Append (Opt_Rec);
11071107
end if;
1108-
end Add_Rule_Option;
1108+
end Add_Legacy_Rule_Option;
11091109

11101110
----------------------
11111111
-- Add_Rule_By_Name --
@@ -1117,7 +1117,7 @@ package body Gnatcheck.Projects is
11171117
Prefix : constant String :=
11181118
(if Lower_Rule = "all" then "+" else "+R");
11191119
begin
1120-
Add_Rule_Option (Prefix & Lower_Rule, Prepend => Prepend);
1120+
Add_Legacy_Rule_Option (Prefix & Lower_Rule, Prepend => Prepend);
11211121
end Add_Rule_By_Name;
11221122

11231123
------------------------
@@ -1235,7 +1235,7 @@ package body Gnatcheck.Projects is
12351235
end if;
12361236

12371237
when others =>
1238-
Add_Rule_Option (Full_Switch (Parser => Parser));
1238+
Add_Legacy_Rule_Option (Full_Switch (Parser => Parser));
12391239
Individual_Rules_Set := True;
12401240
end case;
12411241
if not Rules_Depreciation_Emitted then

lkql_checker/src/gnatcheck-projects.ads

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -240,15 +240,15 @@ package Gnatcheck.Projects is
240240
procedure Process_Rule_Options;
241241
-- Process all the rule options found as part of scanning arguments
242242

243-
procedure Add_Rule_Option (Opt : String; Prepend : Boolean := False);
243+
procedure Add_Legacy_Rule_Option (Opt : String; Prepend : Boolean := False);
244244
-- Add the given ``Opt`` to the list of rule options processed by
245245
-- ``Process_Rule_Options`` as a command-line rule option (e.g. +R...).
246246
-- If ``Prepend`` is set to True, add the rule option at the start of
247247
-- the processing list.
248248

249249
procedure Add_Rule_By_Name (Rule_Name : String; Prepend : Boolean := False);
250-
-- Use ``Add_Rule_Option`` to forge a new rule option enabling the given
251-
-- rule without any parameter.
250+
-- Use ``Add_Legacy_Rule_Option`` to forge a new rule option enabling the
251+
-- given rule without any parameter.
252252

253253
procedure Set_LKQL_Rule_File (File : String; Project_Relative : Boolean);
254254
-- Set the given ``File`` as the LKQL rule file to process during the

0 commit comments

Comments
 (0)