|
@@ -316,7 +316,8 @@ let inline_constructors ctx original_e =
|
|
|
let iv_is_const iv = match iv.iv_kind with IVKField(_,_,Some(_)) -> true | _ -> false in
|
|
|
if is_lvalue && iv_is_const fiv then raise Not_found;
|
|
|
if fiv.iv_closed then raise Not_found;
|
|
|
- if not captured || (not is_lvalue && fiv.iv_state == IVSUnassigned) then cancel_iv fiv efield.epos;
|
|
|
+ if not is_lvalue && fiv.iv_state == IVSUnassigned then raise Not_found;
|
|
|
+ if not captured then cancel_iv fiv efield.epos;
|
|
|
IOFInlineVar(fiv)
|
|
|
with Not_found ->
|
|
|
cancel_iv iv efield.epos;
|