Commit 824b0b4c authored by Heiko Becker's avatar Heiko Becker
Browse files

Add commands equality function used in SSA validation

parent c82c1a45
......@@ -53,4 +53,11 @@ Fixpoint liveVars V (f:cmd V) :NatSet.t :=
match f with
| Let _ e g => NatSet.union (usedVars e) (liveVars g)
| Ret e => usedVars e
end.
Fixpoint cmdEq f1 f2 :=
match f1, f2 with
|Let x e g, Let y e' g' => expEqBool e e' && (x =? y) && cmdEq g g'
|Ret e, Ret e' => expEqBool e e'
|_, _ => false
end.
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment