Skip to content
Snippets Groups Projects
Commit 922a41c1 authored by Ralf Jung's avatar Ralf Jung
Browse files

'Fork' is atomic

parent 47d81be1
No related branches found
Tags hope-2015-coq-1
No related merge requests found
......@@ -179,6 +179,7 @@ Definition atomic (e : expr) :=
| Store e1 e2 => bool_decide (is_Some (to_val e1) is_Some (to_val e2))
| CAS e0 e1 e2 =>
bool_decide (is_Some (to_val e0) is_Some (to_val e1) is_Some (to_val e2))
| Fork _ => true
(* Make "skip" atomic *)
| App (Rec _ _ (Lit _)) (Lit _) => true
| _ => false
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment