aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/simulate/simul-environments.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/simulate/simul-environments.ads')
-rw-r--r--src/vhdl/simulate/simul-environments.ads3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/simulate/simul-environments.ads b/src/vhdl/simulate/simul-environments.ads
index f8104e096..bc2414be0 100644
--- a/src/vhdl/simulate/simul-environments.ads
+++ b/src/vhdl/simulate/simul-environments.ads
@@ -229,7 +229,7 @@ package Simul.Environments is
-- The annotation depends on the kind of the node.
type Sim_Info_Kind is
- (Kind_Block, Kind_Process, Kind_Frame, Kind_Package,
+ (Kind_Block, Kind_Process, Kind_Frame, Kind_Protected, Kind_Package,
Kind_Scalar_Type, Kind_File_Type,
Kind_Object, Kind_Signal,
Kind_File,
@@ -248,6 +248,7 @@ package Simul.Environments is
case Kind is
when Kind_Block
| Kind_Frame
+ | Kind_Protected
| Kind_Process
| Kind_Package =>
-- Number of objects/signals.