Преглед изворни кода

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