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-elaboration.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-elaboration.adb')
-rw-r--r-- | src/vhdl/simulate/simul-elaboration.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/simulate/simul-elaboration.adb b/src/vhdl/simulate/simul-elaboration.adb index bd4d3f875..9b0061822 100644 --- a/src/vhdl/simulate/simul-elaboration.adb +++ b/src/vhdl/simulate/simul-elaboration.adb @@ -2749,7 +2749,7 @@ package body Simul.Elaboration is Instance := Create_Block_Instance (Parent_Instance, Arch, Stmt); Instance.Block_Scope := Get_Info (Entity); - Instance.Up_Block := null; -- Packages_Instance; + Instance.Up_Block := Global_Instances; -- LRM93 §12.1 -- Elaboration of a block statement involves first elaborating each not |