@@ -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
0 commit comments