Skip to content

Commit c55eb67

Browse files
committed
Rename 'Processed_Rule_File_Name' function to 'Processed_Legacy_Rule_File_Name'
1 parent ba3d33e commit c55eb67

File tree

3 files changed

+7
-7
lines changed

3 files changed

+7
-7
lines changed

lkql_checker/src/gnatcheck-rules-rule_table.adb

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

lkql_checker/src/gnatcheck-rules-rule_table.ads

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff 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.

lkql_checker/src/gnatcheck-rules.adb

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff 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

0 commit comments

Comments
 (0)