From d827259e262f5203953013da136840dba713a4df Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 10 Oct 2016 05:54:36 +0200
Subject: ghdl --dir: handle context declaration.

---
 src/ghdldrv/ghdllocal.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/ghdldrv/ghdllocal.adb')

diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index 534c7b2eb..b1050e5fe 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -533,6 +533,8 @@ package body Ghdllocal is
             Put ("package instance ");
          when Iir_Kind_Package_Body =>
             Put ("package body ");
+         when Iir_Kind_Context_Declaration =>
+            Put ("context ");
          when others =>
             Put ("???");
             return;
-- 
cgit v1.2.3