From 19dab14a7452c793dde71bf599202cb7783ba376 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 22 Mar 2023 03:37:21 +0100
Subject: vhdl: add iir_kind_package_instantiation_body

---
 src/vhdl/vhdl-prints.adb | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/vhdl/vhdl-prints.adb')

diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb
index dcf348099..b09c00db6 100644
--- a/src/vhdl/vhdl-prints.adb
+++ b/src/vhdl/vhdl-prints.adb
@@ -2631,6 +2631,12 @@ package body Vhdl.Prints is
                Disp_Token (Ctxt, Tok_Semi_Colon);
                Close_Hbox (Ctxt);
 
+            when Iir_Kind_Package_Instantiation_Body =>
+               Start_Hbox (Ctxt);
+               OOB.Put ("-- body for instantiation ");
+               Disp_Ident (Ctxt, Get_Identifier (Get_Package (Decl)));
+               Close_Hbox (Ctxt);
+
             when others =>
                Error_Kind ("disp_declaration_chain", Decl);
          end case;
-- 
cgit v1.2.3