diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2019-07-11 08:03:33 +0000 |
---|---|---|
committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-11 08:03:33 +0000 |
commit | 674dbc204d3b572186df85803b086ddb9a790837 (patch) | |
tree | 1f65f693a7344910fc270141c83df0e31ca10aba /gcc/ada/lib-writ.adb | |
parent | 929d520369a92d26bb734d79588ffde8aba6e8e8 (diff) | |
download | gcc-674dbc204d3b572186df85803b086ddb9a790837.zip gcc-674dbc204d3b572186df85803b086ddb9a790837.tar.gz gcc-674dbc204d3b572186df85803b086ddb9a790837.tar.bz2 |
[Ada] Use high-level wrappers for Lib.Units.Table
2019-07-11 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* lib-writ.adb (Ensure_System_Dependency,
Up_To_Date_ALI_File_Exists, Write_ALI): Replace low-level access
to table with a high-level query.
From-SVN: r273407
Diffstat (limited to 'gcc/ada/lib-writ.adb')
-rw-r--r-- | gcc/ada/lib-writ.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index 31ef8e2..987afcb 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -143,7 +143,7 @@ package body Lib.Writ is -- Nothing to do if we already compiled System for Unum in Units.First .. Last_Unit loop - if Units.Table (Unum).Source_Index = System_Source_File_Index then + if Source_Index (Unum) = System_Source_File_Index then return; end if; end loop; @@ -431,7 +431,7 @@ package body Lib.Writ is Id := First_Sdep_Entry; for J in 1 .. Num_Sdep loop - Sind := Units.Table (Sdep_Table (J)).Source_Index; + Sind := Source_Index (Sdep_Table (J)); while Sdep.Table (Id).Sfile /= File_Name (Sind) loop if Id = Sdep.Last then @@ -1563,7 +1563,7 @@ package body Lib.Writ is for J in 1 .. Num_Sdep loop Unum := Sdep_Table (J); Units.Table (Unum).Dependency_Num := J; - Sind := Units.Table (Unum).Source_Index; + Sind := Source_Index (Unum); Write_Info_Initiate ('D'); Write_Info_Char (' '); |