From 1b3915222c3755692ae1693ef1bb8f9d3dc52172 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 14 Jan 2022 06:24:33 +0100
Subject: synth: handle macro-expanded package body.  Fix #1948

---
 src/synth/synth-vhdl_decls.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/synth/synth-vhdl_decls.adb')

diff --git a/src/synth/synth-vhdl_decls.adb b/src/synth/synth-vhdl_decls.adb
index 5eefbdaef..c7ab62d8e 100644
--- a/src/synth/synth-vhdl_decls.adb
+++ b/src/synth/synth-vhdl_decls.adb
@@ -341,7 +341,8 @@ package body Synth.Vhdl_Decls is
 
       if Bod /= Null_Node then
          --  Macro expanded package instantiation.
-         raise Internal_Error;
+         Synth_Concurrent_Declarations
+           (Sub_Inst, Get_Declaration_Chain (Bod));
       else
          --  Shared body
          declare
-- 
cgit v1.2.3