From b9bd50be737ff13967edf442717673fd9100941f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 23 Mar 2023 07:25:15 +0100
Subject: vhdl: make instance_package_body forward_ref, adjust

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

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

diff --git a/src/vhdl/vhdl-sem_inst.adb b/src/vhdl/vhdl-sem_inst.adb
index 66754d91d..02e63836d 100644
--- a/src/vhdl/vhdl-sem_inst.adb
+++ b/src/vhdl/vhdl-sem_inst.adb
@@ -614,7 +614,9 @@ package body Vhdl.Sem_Inst is
                   --  Do not instantiate the body of a package while
                   --  instantiating a shared package.
                   if not Is_Within_Shared_Instance then
-                     Instantiate_Iir_Field (Res, N, F);
+                     Set_Instance_Package_Body
+                       (Res, Instantiate_Iir (Get_Instance_Package_Body (N),
+                                              False));
                   end if;
 
                when Field_Subtype_Definition =>
-- 
cgit v1.2.3