[typer] don't have float constants typed as Int...

closes #7132
HaxeFoundation · Jun 6, 2018 · bcea7ec · bcea7ec
1 parent f1e00ac
commit bcea7ec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/typing/typeloadFields.ml b/src/typing/typeloadFields.ml
@@ -623,7 +623,7 @@ let bind_var (ctx,cctx,fctx) cf e =
 			else begin match e.eexpr,follow cf.cf_type with
 				| TConst (TInt i),TAbstract({a_path=[],"Float"},_) ->
 					(* turn int constant to float constant if expected type is float *)
-					{e with eexpr = TConst (TFloat (Int32.to_string i))}
+					{e with eexpr = TConst (TFloat (Int32.to_string i)); etype = cf.cf_type}
 				| _ ->
 					mk_cast e cf.cf_type e.epos
 			end