浏览代码

try to update FAnon/FDynamic access in the end (closes #6263)

Simon Krajewski 8 年之前
父节点
当前提交
a03477e59e
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      src/optimization/analyzerTexpr.ml

+ 4 - 0
src/optimization/analyzerTexpr.ml

@@ -1006,6 +1006,10 @@ module Cleanup = struct
 					| _ ->
 						{e with eexpr = TWhile(e1,e2,NormalWhile)}
 				end
+			| TField(e1,(FAnon {cf_name = s} | FDynamic s)) ->
+				let e1 = loop e1 in
+				let fa = quick_field_dynamic e1.etype s in
+				{e with eexpr = TField(e1,fa)}
 			| TField({eexpr = TTypeExpr _},_) ->
 				e
 			| TTypeExpr (TClassDecl c) ->