diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-06-21 21:24:15 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-06-21 21:24:15 +0200 |
| commit | 212268f54c947f4360a7d0e5b45faa97f76a4a9d (patch) | |
| tree | 76a19a1ff148903c412f9f2191901ee6797b2939 /parse.adb | |
| parent | 270280a34295fa42785f9c8d99ad24b93d411e0c (diff) | |
| download | ghdl-212268f54c947f4360a7d0e5b45faa97f76a4a9d.tar.gz ghdl-212268f54c947f4360a7d0e5b45faa97f76a4a9d.tar.bz2 ghdl-212268f54c947f4360a7d0e5b45faa97f76a4a9d.zip | |
Add psl cover directive (ticket19).
Diffstat (limited to 'parse.adb')
| -rw-r--r-- | parse.adb | 14 |
1 files changed, 12 insertions, 2 deletions
@@ -5640,7 +5640,16 @@ package body Parse is is Res : Iir; begin - Res := Create_Iir (Iir_Kind_Psl_Assert_Statement); + case Current_Token is + when Tok_Psl_Assert => + Res := Create_Iir (Iir_Kind_Psl_Assert_Statement); + when Tok_Psl_Cover => + Res := Create_Iir (Iir_Kind_Psl_Cover_Statement); + when others => + raise Internal_Error; + end case; + + -- Scan extended PSL tokens. Scanner.Flag_Psl := True; -- Skip 'assert' @@ -5791,7 +5800,8 @@ package body Parse is | Tok_Psl_Endpoint => Postponed_Not_Allowed; Stmt := Parse_Psl_Declaration; - when Tok_Psl_Assert => + when Tok_Psl_Assert + | Tok_Psl_Cover => Postponed_Not_Allowed; Stmt := Parse_Psl_Assert_Statement; when others => |