|
@@ -52,6 +52,7 @@ let create_affection_checker () =
|
|
|
let rec might_be_affected e =
|
|
|
let rec loop e = match e.eexpr with
|
|
|
| TConst _ | TFunction _ | TTypeExpr _ -> ()
|
|
|
+ | TLocal {v_capture = true} -> raise Exit
|
|
|
| TLocal v when Hashtbl.mem modified_locals v.v_id -> raise Exit
|
|
|
| TField(e1,fa) when not (is_read_only_field_access e1 fa) -> raise Exit
|
|
|
| TCall _ | TNew _ -> raise Exit
|