فهرست منبع

add more unbound checks

Simon Krajewski 9 سال پیش
والد
کامیت
402beaf98b
1فایلهای تغییر یافته به همراه2 افزوده شده و 0 حذف شده
  1. 2 0
      analyzer.ml

+ 2 - 0
analyzer.ml

@@ -1498,6 +1498,8 @@ module TexprTransformer = struct
 					| _ ->
 						{e with eexpr = TBinop(OpAssign,e1,{e4 with eexpr = TBinop(op,e2,e3)})}
 				end
+			| TCall({eexpr = TLocal v},_) when is_really_unbound v ->
+				e
 			| TCall({eexpr = TConst (TString "fun")},[{eexpr = TConst (TInt i32)}]) ->
 				func ctx (Int32.to_int i32)
 			| _ ->