extended when once again
This commit is contained in:
parent
ad4f5e7962
commit
a5f8c720f4
@ -1121,8 +1121,7 @@ let clock_unification_pass verbose debug ast =
|
|||||||
| EVar([TBool], var) -> acc, e
|
| EVar([TBool], var) -> acc, e
|
||||||
| EConst([TBool], cons) -> acc, e
|
| EConst([TBool], cons) -> acc, e
|
||||||
| EMonOp([TBool], MOp_not, e) -> count_not e (acc + 1)
|
| EMonOp([TBool], MOp_not, e) -> count_not e (acc + 1)
|
||||||
| EComp(_, _, e1, e2) -> acc, e
|
| _ -> acc, e
|
||||||
| _ -> raise (PassExn "count_not failure")
|
|
||||||
in
|
in
|
||||||
|
|
||||||
let verify_when e1 e2 =
|
let verify_when e1 e2 =
|
||||||
|
Loading…
Reference in New Issue
Block a user