From 4e76c7da364ef4d493cbd111ff66178094bc5d64 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 22 Oct 2019 21:17:28 +0200
Subject: vhdl-prints: do not crash on vunit declarations.

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

diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb
index 88ae34fe6..ddcc888aa 100644
--- a/src/vhdl/vhdl-prints.adb
+++ b/src/vhdl/vhdl-prints.adb
@@ -4379,6 +4379,10 @@ package body Vhdl.Prints is
            | Iir_Kind_Group_Template_Declaration =>
             Disp_Name_Of (Ctxt, Expr);
 
+         when Iir_Kind_Function_Body
+           | Iir_Kind_Procedure_Body =>
+            Disp_Subprogram_Body (Ctxt, Expr);
+
          when Iir_Kind_Signature =>
             Disp_Signature (Ctxt, Expr);
 
-- 
cgit v1.2.3