소스 검색

[analyzer] ignore calls and field access on unbound vars as well (do deal with `__global__.__loadprim()`)

Simon Krajewski 11 년 전
부모
커밋
b5b14e286a
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      analyzer.ml

+ 1 - 1
analyzer.ml

@@ -187,7 +187,7 @@ module Simplifier = struct
 		in
 		let has_unbound = ref false in
 		let rec loop e = match e.eexpr with
-			| TLocal v when Meta.has Meta.Unbound v.v_meta && v.v_name <> "`trace" ->
+			| TCall({eexpr = TLocal v | TField({eexpr = TLocal v},_)},_) | TField({eexpr = TLocal v},_) | TLocal v when Meta.has Meta.Unbound v.v_meta && v.v_name <> "`trace" ->
 				has_unbound := true;
 				e
 			| TBlock el ->