diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-12-04 03:39:59 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-12-04 03:39:59 +0100 |
commit | 9ee3c82ab5a0b59eef5c91181dd282e7f5bcac61 (patch) | |
tree | e483d05bb155102ae6b4f0ddaf176442e2d00e41 /src/vhdl/simulate/simul-execution.adb | |
parent | 57cc5b5215f018ac0e5d9c5c16a5ad7c39c67cf1 (diff) | |
download | ghdl-9ee3c82ab5a0b59eef5c91181dd282e7f5bcac61.tar.gz ghdl-9ee3c82ab5a0b59eef5c91181dd282e7f5bcac61.tar.bz2 ghdl-9ee3c82ab5a0b59eef5c91181dd282e7f5bcac61.zip |
simul: WIP for nested packages.
Diffstat (limited to 'src/vhdl/simulate/simul-execution.adb')
-rw-r--r-- | src/vhdl/simulate/simul-execution.adb | 8 |
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; |