瀏覽代碼

[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 ->