浏览代码

keep inline var constraints when -D haxe3 is set

Simon Krajewski 13 年之前
父节点
当前提交
1ae48da4a3
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      typeload.ml

+ 1 - 1
typeload.ml

@@ -950,7 +950,7 @@ let init_class ctx c p herits fields =
 					if not inline then mark_used cf;
 					let e = type_var_field ctx t e stat p in
 					let e = (match cf.cf_kind with
-					| Var v when not stat ->
+					| Var v when not stat || (v.v_read = AccInline && Common.defined ctx.com "haxe3") ->
 						let e = ctx.g.do_optimize ctx e in
 						let rec is_const e =
 							match e.eexpr with