From 8c6e8db93f3ef85f7edf242d83c3e7e9af194636 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 19 Sep 2016 02:32:16 +0200
Subject: vhdl08: create interface subprogram declaration.

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

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

diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index ffb50bcbd..ff54513fb 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -92,6 +92,16 @@ package body Ghdllocal is
 
          Canon.Canonicalize (Unit);
 
+         --  FIXME: for Main only ?
+         if Get_Kind (Lib_Unit) = Iir_Kind_Package_Declaration
+           and then not Get_Need_Body (Lib_Unit)
+           and then Get_Need_Instance_Bodies (Lib_Unit)
+         then
+            --  Create the bodies for instances
+            Set_Package_Instantiation_Bodies_Chain
+              (Lib_Unit, Canon.Create_Instantiation_Bodies (Lib_Unit));
+         end if;
+
          if (Main or Flags.List_All) and then Flags.List_Canon then
             Disp_Vhdl.Disp_Vhdl (Unit);
          end if;
-- 
cgit v1.2.3