diff options
author | Yann Herklotz <git@ymhg.org> | 2019-03-30 23:02:13 +0000 |
---|---|---|
committer | Yann Herklotz <git@ymhg.org> | 2019-03-30 23:02:13 +0000 |
commit | 1b8b924ef24063e81c282387193d3a5e8dfada3e (patch) | |
tree | 35fae9788fe65901c896c92bbd3ccaff915a0c28 /src/VeriFuzz | |
parent | 6db4cd8963b878ab9cade7989f289126ba6b2c4d (diff) | |
download | verismith-1b8b924ef24063e81c282387193d3a5e8dfada3e.tar.gz verismith-1b8b924ef24063e81c282387193d3a5e8dfada3e.zip |
Add if statement type
Diffstat (limited to 'src/VeriFuzz')
-rw-r--r-- | src/VeriFuzz/AST.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/VeriFuzz/AST.hs b/src/VeriFuzz/AST.hs index 4ec966b..15e8d0b 100644 --- a/src/VeriFuzz/AST.hs +++ b/src/VeriFuzz/AST.hs @@ -488,6 +488,10 @@ data Statement = TimeCtrl { _statDelay :: {-# UNPACK #-} !Delay | StatCA { _stmntCA :: !ContAssign } -- ^ Statement continuous assignment. May not be correct. | TaskEnable { _stmntTask :: !Task } | SysTaskEnable { _stmntSysTask :: !Task } + | CondStmnt { _stmntCondExpr :: Expr + , _stmntCondTrue :: Maybe Statement + , _stmntCondFalse :: Maybe Statement + } deriving (Eq, Show, Ord, Data) makeLenses ''Statement |