diff options
Diffstat (limited to 'src/vhdl/simulate/elaboration.adb')
| -rw-r--r-- | src/vhdl/simulate/elaboration.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/simulate/elaboration.adb b/src/vhdl/simulate/elaboration.adb index 14a915ec2..33868a804 100644 --- a/src/vhdl/simulate/elaboration.adb +++ b/src/vhdl/simulate/elaboration.adb @@ -21,7 +21,6 @@ with Str_Table; with Errorout; use Errorout; with Evaluation; with Execution; use Execution; ---with Simulation; use Simulation; with Iirs_Utils; use Iirs_Utils; with Libraries; with Name_Table; @@ -318,8 +317,11 @@ package body Elaboration is Obj_Info : constant Sim_Info_Acc := Get_Info (Obj); Res : Block_Instance_Acc; begin + Nbr_Block_Instances := Nbr_Block_Instances + 1; + Res := new Block_Instance_Type' (Max_Objs => Obj_Info.Nbr_Objects, + Id => Nbr_Block_Instances, Block_Scope => Obj_Info.Frame_Scope, Up_Block => Father, Label => Stmt, |