diff options
Diffstat (limited to 'src/vhdl/vhdl-canon.adb')
| -rw-r--r-- | src/vhdl/vhdl-canon.adb | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb index f93d66d52..a9efeb457 100644 --- a/src/vhdl/vhdl-canon.adb +++ b/src/vhdl/vhdl-canon.adb @@ -1730,6 +1730,7 @@ package body Vhdl.Canon is procedure Canon_Psl_Property_Directive (Stmt : Iir) is + use PSL.Nodes; use PSL.NFAs; Prop : PSL_Node; Fa : PSL_NFA; @@ -1741,6 +1742,16 @@ package body Vhdl.Canon is Set_Psl_Property (Stmt, Prop); -- Generate the NFA. + case Get_Kind (Prop) is + when N_Async_Abort + | N_Sync_Abort => + Prop := Get_Property (Prop); + Set_PSL_Abort_Flag (Stmt, True); + when N_Abort => + null; + when others => + null; + end case; Fa := PSL.Build.Build_FA (Prop); Set_PSL_NFA (Stmt, Fa); |