diff options
-rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/ada/lib-writ.adb | 6 |
2 files changed, 9 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e3fd0a1..7c09238 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,11 @@ 2019-07-11 Piotr Trojanek <trojanek@adacore.com> + * 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. + +2019-07-11 Piotr Trojanek <trojanek@adacore.com> + * checks.adb: Fix typo in comment. * sem.adb (Semantics): Avoid repeated calls to In_Extended_Main_Source_Unit by reusing an already-cached 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 (' '); |