From 13daf66fb94e9fc883b83ddbe75d7d554bdd7ff4 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sun, 24 Nov 2019 15:11:41 +0000 Subject: Do not mutate the expression in the for loop --- src/Verismith/Verilog/Mutate.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Verismith/Verilog/Mutate.hs b/src/Verismith/Verilog/Mutate.hs index 2f17de5..318e8e6 100644 --- a/src/Verismith/Verilog/Mutate.hs +++ b/src/Verismith/Verilog/Mutate.hs @@ -115,7 +115,7 @@ instance Mutate Statement where mutExpr f (TaskEnable a) = TaskEnable $ mutExpr f a mutExpr f (SysTaskEnable a) = SysTaskEnable $ mutExpr f a mutExpr f (CondStmnt a b c) = CondStmnt (f a) (mutExpr f <$> b) $ mutExpr f <$> c - mutExpr f (ForLoop a1 e a2 s) = ForLoop (mutExpr f a1) (f e) (mutExpr f a2) $ mutExpr f s + mutExpr f (ForLoop a1 e a2 s) = ForLoop (mutExpr f a1) e (mutExpr f a2) $ mutExpr f s instance Mutate Parameter where mutExpr _ = id -- cgit