File tree Expand file tree Collapse file tree 3 files changed +7
-7
lines changed Expand file tree Collapse file tree 3 files changed +7
-7
lines changed Original file line number Diff line number Diff line change @@ -1339,18 +1339,18 @@ package body Gnatcheck.Rules.Rule_Table is
13391339 Set_Compiler_Checks;
13401340 end Process_Compiler_Instances ;
13411341
1342- -- ----------------------------
1343- -- Processed_Rule_File_Name --
1344- -- ----------------------------
1342+ -- -----------------------------------
1343+ -- Processed_Legacy_Rule_File_Name --
1344+ -- -----------------------------------
13451345
1346- function Processed_Rule_File_Name return String is
1346+ function Processed_Legacy_Rule_File_Name return String is
13471347 begin
13481348 if Rule_File_Stack.Is_Empty then
13491349 return " " ;
13501350 else
13511351 return Rule_File_Stack.Table (Rule_File_Stack.Last).Full_Name.all ;
13521352 end if ;
1353- end Processed_Rule_File_Name ;
1353+ end Processed_Legacy_Rule_File_Name ;
13541354
13551355 -- -------------
13561356 -- Rule_Name --
Original file line number Diff line number Diff line change @@ -89,7 +89,7 @@ package Gnatcheck.Rules.Rule_Table is
8989 -- related information (tag maps, compiler options...).
9090 -- This should be called after rule options processing.
9191
92- function Processed_Rule_File_Name return String;
92+ function Processed_Legacy_Rule_File_Name return String;
9393 -- Returns the full path to the rule file currently being processed.
9494 -- Returns an empty string if no rule file is processed at the moment of
9595 -- the call.
Original file line number Diff line number Diff line change @@ -538,7 +538,7 @@ package body Gnatcheck.Rules is
538538
539539 function Find_File (Name : String) return String is
540540 Rule_File_Dir : constant String :=
541- Dir_Name (Gnatcheck.Rules.Rule_Table.Processed_Rule_File_Name );
541+ Dir_Name (Gnatcheck.Rules.Rule_Table.Processed_Legacy_Rule_File_Name );
542542
543543 begin
544544 if GNAT.OS_Lib.Is_Regular_File (Rule_File_Dir & Name) then
You can’t perform that action at this time.
0 commit comments