From 674dbc204d3b572186df85803b086ddb9a790837 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 11 Jul 2019 08:03:33 +0000 Subject: [PATCH] [Ada] Use high-level wrappers for Lib.Units.Table 2019-07-11 Piotr Trojanek 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 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/lib-writ.adb | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e3fd0a1ee47..7c09238a52f 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2019-07-11 Piotr Trojanek + + * 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 * checks.adb: Fix typo in comment. diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index 31ef8e2feba..987afcb9a8a 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 (' '); -- 2.30.2