diff options
Diffstat (limited to 'src/vhdl/vhdl-nodes_walk.adb')
| -rw-r--r-- | src/vhdl/vhdl-nodes_walk.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-nodes_walk.adb b/src/vhdl/vhdl-nodes_walk.adb index 0f9b0e8ab..8a39a1bd1 100644 --- a/src/vhdl/vhdl-nodes_walk.adb +++ b/src/vhdl/vhdl-nodes_walk.adb @@ -156,7 +156,7 @@ package body Vhdl.Nodes_Walk is begin El := Chain; while Is_Valid (El) loop - case Iir_Kinds_Concurrent_Statement (Get_Kind (El)) is + case Get_Kind (El) is when Iir_Kinds_Simple_Concurrent_Statement | Iir_Kind_Component_Instantiation_Statement | Iir_Kind_Psl_Default_Clock => |