[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index e3fd0a1ee47603640e357782f43329eb3650699c..7c09238a52f3e0b6e96a3b6aa5fa7cbc67fcb077 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+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.

diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb
index 31ef8e2febab903a2743a9ec94a349d83c0d4390..987afcb9a8ab64e6875227f5b08d0e3b8ac23184 100644 (file)
--- 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 (' ');