simul: WIP for nested packages.

1 files changed, 6 insertions, 2 deletions

diff --git a/src/vhdl/simulate/simul-execution.adb b/src/vhdl/simulate/simul-execution.adb
index 7876c04ba..c8320ecf0 100644
--- a/src/vhdl/simulate/simul-execution.adb
+++ b/src/vhdl/simulate/simul-execution.adb
@@ -94,8 +94,12 @@ package body Simul.Execution is
                raise Internal_Error;
             end;
          when Kind_Package =>
-            pragma Assert (Scope.Pkg_Parent = Global_Info);
-            return Global_Instances.Objects (Scope.Pkg_Slot).Instance;
+            declare
+               Parent : Block_Instance_Acc;
+            begin
+               Parent := Get_Instance_By_Scope (Instance, Scope.Pkg_Parent);
+               return Parent.Objects (Scope.Pkg_Slot).Instance;
+            end;
          when others =>
             raise Internal_Error;
       end case;