浏览代码

TField might also be complex

Simon Krajewski 11 年之前
父节点
当前提交
8eac8c9282
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      filters.ml

+ 1 - 1
filters.ml

@@ -186,7 +186,7 @@ let promote_complex_rhs ctx e =
 	let rec is_complex e = match e.eexpr with
 		| TBlock _ | TSwitch _ | TIf _ | TTry _ | TCast(_,Some _) -> true
 		| TBinop(_,e1,e2) -> is_complex e1 || is_complex e2
-		| TParenthesis e | TMeta(_,e) | TCast(e, None) -> is_complex e
+		| TParenthesis e | TMeta(_,e) | TCast(e, None) | TField(e,_) -> is_complex e
 		| _ -> false
 	in
 	let rec loop f e = match e.eexpr with