diff options
author | Robert Dewar <dewar@adacore.com> | 2015-01-06 09:14:09 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-06 10:14:09 +0100 |
commit | ac16e74cdf9135046892193eeb6eee7c8a8d4123 (patch) | |
tree | a6c9ae2d13ce15da801b75989ca200a9d7fc88a5 /gcc/ada/bcheck.adb | |
parent | 4b6f99f50583af11b3e6798ef4c5bf91b8c28fcd (diff) |
ali-util.adb, [...]: Minor change of name Name_Table_Info => Name_Table_Int.
2015-01-06 Robert Dewar <dewar@adacore.com>
* ali-util.adb, sem_prag.adb, rtsfind.adb, sem_util.adb, sem_res.adb,
ali.adb, binde.adb, namet.adb, namet.ads, gnatls.adb, bcheck.adb:
Minor change of name Name_Table_Info => Name_Table_Int.
From-SVN: r219230
Diffstat (limited to 'gcc/ada/bcheck.adb')
-rw-r--r-- | gcc/ada/bcheck.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/bcheck.adb b/gcc/ada/bcheck.adb index dd723b36910..172e1300377 100644 --- a/gcc/ada/bcheck.adb +++ b/gcc/ada/bcheck.adb @@ -170,7 +170,7 @@ package body Bcheck is goto Continue; end if; - Src := Source_Id (Get_Name_Table_Info (Sdep.Table (D).Sfile)); + Src := Source_Id (Get_Name_Table_Int (Sdep.Table (D).Sfile)); -- If the time stamps match, or all checksums match, then we -- are OK, otherwise we have a definite error. @@ -468,12 +468,12 @@ package body Bcheck is WR : With_Record renames Withs.Table (W); begin - if Get_Name_Table_Info (WR.Uname) /= 0 then + if Get_Name_Table_Int (WR.Uname) /= 0 then declare WU : Unit_Record renames Units.Table (Unit_Id - (Get_Name_Table_Info (WR.Uname))); + (Get_Name_Table_Int (WR.Uname))); begin -- Case 1. Elaborate_All for with'ed unit @@ -1048,7 +1048,7 @@ package body Bcheck is if AFN /= No_File then declare WAI : constant ALI_Id := - ALI_Id (Get_Name_Table_Info (AFN)); + ALI_Id (Get_Name_Table_Int (AFN)); WTE : ALIs_Record renames ALIs.Table (WAI); begin @@ -1199,7 +1199,7 @@ package body Bcheck is declare Unit : constant Unit_Name_Type := Name_Find; - Info : constant Int := Get_Name_Table_Info (Unit); + Info : constant Int := Get_Name_Table_Int (Unit); begin if Info /= 0 then |