diff options
-rw-r--r-- | src/vhdl/vhdl-nodes_walk.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-nodes_walk.adb b/src/vhdl/vhdl-nodes_walk.adb index 0bbddef3b..7a539a030 100644 --- a/src/vhdl/vhdl-nodes_walk.adb +++ b/src/vhdl/vhdl-nodes_walk.adb @@ -157,7 +157,8 @@ package body Vhdl.Nodes_Walk is while Is_Valid (El) loop case Iir_Kinds_Concurrent_Statement (Get_Kind (El)) is when Iir_Kinds_Simple_Concurrent_Statement - | Iir_Kind_Component_Instantiation_Statement => + | Iir_Kind_Component_Instantiation_Statement + | Iir_Kind_Psl_Default_Clock => Status := Cb.all (El); when Iir_Kind_Block_Statement => Status := Cb.all (El); |