浏览代码

bring back previous `@:implicitCast` type

Simon Krajewski 1 年之前
父节点
当前提交
bb63999b1c
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/context/abstractCast.ml

+ 1 - 1
src/context/abstractCast.ml

@@ -49,7 +49,7 @@ and do_check_cast ctx uctx tleft eright p =
 		else match a.a_impl with
 			| Some c -> recurse cf (fun () ->
 				let ret = make_static_call ctx c cf a tl [eright] tleft p in
-				{ ret with eexpr = TMeta( (Meta.ImplicitCast,[],ret.epos), ret) }
+				{ ret with eexpr = TMeta( (Meta.ImplicitCast,[],ret.epos), ret); etype = tleft }
 			)
 			| None -> die "" __LOC__
 	in