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

---
 src/vhdl/errorout.adb | 4 ++++
 1 file changed, 4 insertions(+)

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

diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb
index a364120..b5fe537 100644
--- a/src/vhdl/errorout.adb
+++ b/src/vhdl/errorout.adb
@@ -621,6 +621,8 @@ package body Errorout is
                     & '(' & Image_Identifier (Arch) & ')';
                end if;
             end;
+         when Iir_Kind_Context_Declaration =>
+            return Disp_Identifier (Node, "context");
          when Iir_Kind_Package_Instantiation_Declaration =>
             return Disp_Identifier (Node, "instantiation package");
 
@@ -634,6 +636,8 @@ package body Errorout is
             return Disp_Node (Get_Library_Unit (Node));
          when Iir_Kind_Use_Clause =>
             return "use clause";
+         when Iir_Kind_Context_Reference =>
+            return "context reference";
          when Iir_Kind_Disconnection_Specification =>
             return "disconnection specification";
 
-- 
cgit