diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-03-07 06:51:40 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-03-10 08:01:08 +0100 |
| commit | 61b5b41b0e9a3c9449f0b177517ac495e2adc5f3 (patch) | |
| tree | 2e32acc8225316f2fc46b2998201b3211c7650a9 /src/vhdl/simulate/execution.adb | |
| parent | df18e5968c8dd72dd6e3713ff149f1e352f2a676 (diff) | |
| download | ghdl-61b5b41b0e9a3c9449f0b177517ac495e2adc5f3.tar.gz ghdl-61b5b41b0e9a3c9449f0b177517ac495e2adc5f3.tar.bz2 ghdl-61b5b41b0e9a3c9449f0b177517ac495e2adc5f3.zip | |
simulation: add block id.
Diffstat (limited to 'src/vhdl/simulate/execution.adb')
| -rw-r--r-- | src/vhdl/simulate/execution.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/simulate/execution.adb b/src/vhdl/simulate/execution.adb index 573f44495..b391ee575 100644 --- a/src/vhdl/simulate/execution.adb +++ b/src/vhdl/simulate/execution.adb @@ -3320,6 +3320,7 @@ package body Execution is (Alloc_Block_Instance (Instance_Pool, Block_Instance_Type'(Max_Objs => Func_Info.Nbr_Objects, + Id => No_Block_Instance_Id, Block_Scope => Get_Info (Label).Frame_Scope, Up_Block => Up_Block, Label => Label, |