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/binde.adb | |
| parent | 4b6f99f50583af11b3e6798ef4c5bf91b8c28fcd (diff) | |
| download | gcc-ac16e74cdf9135046892193eeb6eee7c8a8d4123.zip gcc-ac16e74cdf9135046892193eeb6eee7c8a8d4123.tar.gz gcc-ac16e74cdf9135046892193eeb6eee7c8a8d4123.tar.bz2 | |
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/binde.adb')
| -rw-r--r-- | gcc/ada/binde.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/binde.adb b/gcc/ada/binde.adb index 6c43ab8..785afa5 100644 --- a/gcc/ada/binde.adb +++ b/gcc/ada/binde.adb @@ -901,7 +901,7 @@ package body Binde is then declare Info : constant Int := - Get_Name_Table_Info (Withs.Table (W).Uname); + Get_Name_Table_Int (Withs.Table (W).Uname); begin -- If the unit is unknown, for some unknown reason, fail @@ -1225,7 +1225,7 @@ package body Binde is -- when we have a subprogram body with no spec, and some -- obsolete unit with's a previous (now disappeared) spec. - if Get_Name_Table_Info (Withs.Table (W).Uname) = 0 then + if Get_Name_Table_Int (Withs.Table (W).Uname) = 0 then Error_Msg_File_1 := Units.Table (U).Sfile; Error_Msg_Unit_1 := Withs.Table (W).Uname; Error_Msg ("{ depends on $ which no longer exists"); @@ -1602,7 +1602,7 @@ package body Binde is ---------------- function Unit_Id_Of (Uname : Unit_Name_Type) return Unit_Id is - Info : constant Int := Get_Name_Table_Info (Uname); + Info : constant Int := Get_Name_Table_Int (Uname); begin pragma Assert (Info /= 0 and then Unit_Id (Info) /= No_Unit_Id); return Unit_Id (Info); |