From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 11 Jul 2019 08:03:33 +0000 (+0000)
Subject: [Ada] Use high-level wrappers for Lib.Units.Table
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=674dbc204d3b572186df85803b086ddb9a790837;p=gcc.git

[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 e3fd0a1ee47..7c09238a52f 100644
--- 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 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 (' ');