diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-02-08 16:51:19 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-02-08 16:51:19 +0100 |
| commit | 5c18960e811ace9ad7418e452c4d5c802ad30e2f (patch) | |
| tree | 6059f42cebf652808c85eec46c74bdaf43321d09 /src/synth | |
| parent | b0bfbef2ef699e5b2823f9a4941b8690628b9b7a (diff) | |
| download | ghdl-5c18960e811ace9ad7418e452c4d5c802ad30e2f.tar.gz ghdl-5c18960e811ace9ad7418e452c4d5c802ad30e2f.tar.bz2 ghdl-5c18960e811ace9ad7418e452c4d5c802ad30e2f.zip | |
simul: improve support of PSL endpoints
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/elab-vhdl_stmts.adb | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/synth/elab-vhdl_stmts.adb b/src/synth/elab-vhdl_stmts.adb index ebb2380b2..79ef52d26 100644 --- a/src/synth/elab-vhdl_stmts.adb +++ b/src/synth/elab-vhdl_stmts.adb @@ -281,9 +281,18 @@ package body Elab.Vhdl_Stmts is | Iir_Kind_Psl_Assume_Directive | Iir_Kind_Psl_Assert_Directive | Iir_Kind_Psl_Cover_Directive - | Iir_Kind_Psl_Declaration - | Iir_Kind_Psl_Endpoint_Declaration => + | Iir_Kind_Psl_Declaration => null; + when Iir_Kind_Psl_Endpoint_Declaration => + declare + Val : Valtyp; + begin + Val := Create_Value_Memory + (Boolean_Type, Global_Pool'Access); + Write_Discrete (Val, 0); + Create_Object (Syn_Inst, Stmt, Val); + end; + when Iir_Kind_Component_Instantiation_Statement => if Is_Component_Instantiation (Stmt) then Elab_Component_Instantiation_Statement (Syn_Inst, Stmt); |