From e8e5c3d2ab5783d65fcd7a33a7b35c103179ece8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 12 May 2015 20:06:22 +0200
Subject: Add context declaration and reference (vhdl 2008).

---
 src/vhdl/iirs.adb | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

(limited to 'src/vhdl/iirs.adb')

diff --git a/src/vhdl/iirs.adb b/src/vhdl/iirs.adb
index 4340b9c5d..99b875610 100644
--- a/src/vhdl/iirs.adb
+++ b/src/vhdl/iirs.adb
@@ -243,6 +243,7 @@ package body Iirs is
            | Iir_Kind_Error
            | Iir_Kind_Library_Clause
            | Iir_Kind_Use_Clause
+           | Iir_Kind_Context_Reference
            | Iir_Kind_Null_Literal
            | Iir_Kind_String_Literal8
            | Iir_Kind_Simple_Aggregate
@@ -297,6 +298,7 @@ package body Iirs is
            | Iir_Kind_Package_Declaration
            | Iir_Kind_Package_Body
            | Iir_Kind_Configuration_Declaration
+           | Iir_Kind_Context_Declaration
            | Iir_Kind_Unit_Declaration
            | Iir_Kind_Library_Declaration
            | Iir_Kind_Attribute_Declaration
@@ -2311,7 +2313,23 @@ package body Iirs is
       Set_Field3 (Target, Chain);
    end Set_Use_Clause_Chain;
 
-   function Get_Selected_Name (Target : Iir_Use_Clause) return Iir is
+   function Get_Context_Reference_Chain (Target : Iir) return Iir is
+   begin
+      pragma Assert (Target /= Null_Iir);
+      pragma Assert (Has_Context_Reference_Chain (Get_Kind (Target)),
+                     "no field Context_Reference_Chain");
+      return Get_Field3 (Target);
+   end Get_Context_Reference_Chain;
+
+   procedure Set_Context_Reference_Chain (Target : Iir; Chain : Iir) is
+   begin
+      pragma Assert (Target /= Null_Iir);
+      pragma Assert (Has_Context_Reference_Chain (Get_Kind (Target)),
+                     "no field Context_Reference_Chain");
+      Set_Field3 (Target, Chain);
+   end Set_Context_Reference_Chain;
+
+   function Get_Selected_Name (Target : Iir) return Iir is
    begin
       pragma Assert (Target /= Null_Iir);
       pragma Assert (Has_Selected_Name (Get_Kind (Target)),
@@ -2319,7 +2337,7 @@ package body Iirs is
       return Get_Field1 (Target);
    end Get_Selected_Name;
 
-   procedure Set_Selected_Name (Target : Iir_Use_Clause; Name : Iir) is
+   procedure Set_Selected_Name (Target : Iir; Name : Iir) is
    begin
       pragma Assert (Target /= Null_Iir);
       pragma Assert (Has_Selected_Name (Get_Kind (Target)),
-- 
cgit v1.2.3