Browse Source

don't spawn useless monomorphs

Dan Korostelev 6 years ago
parent
commit
e6ecc549fa
1 changed files with 2 additions and 2 deletions
  1. 2 2
      src/optimization/inline.ml

+ 2 - 2
src/optimization/inline.ml

@@ -152,8 +152,8 @@ let api_inline ctx c field params p =
 			if not (Common.defined ctx.com Define.JsEnumsAsArrays) then
 			if not (Common.defined ctx.com Define.JsEnumsAsArrays) then
 				Some iof
 				Some iof
 			else begin
 			else begin
-				let enum = mk (TField (o, FDynamic "__enum__")) (mk_mono()) p in
-				let null = mk (TConst TNull) (mk_mono()) p in
+				let enum = mk (TField (o, FDynamic "__enum__")) t_dynamic p in
+				let null = mk (TConst TNull) t_dynamic p in
 				let not_enum = mk (TBinop (Ast.OpEq, enum, null)) tbool p in
 				let not_enum = mk (TBinop (Ast.OpEq, enum, null)) tbool p in
 				Some (mk (TBinop (Ast.OpBoolAnd, iof, not_enum)) tbool p)
 				Some (mk (TBinop (Ast.OpBoolAnd, iof, not_enum)) tbool p)
 			end
 			end