瀏覽代碼

deal with neko's reversed eval order for calls (see #4787)

Simon Krajewski 9 年之前
父節點
當前提交
fc3f34c278
共有 1 個文件被更改,包括 5 次插入0 次删除
  1. 5 0
      analyzer.ml

+ 5 - 0
analyzer.ml

@@ -550,6 +550,11 @@ module Fusion = struct
 							e
 							e
 						| TCall({eexpr = TLocal v},_) when is_really_unbound v ->
 						| TCall({eexpr = TLocal v},_) when is_really_unbound v ->
 							e
 							e
+						| TCall(e1,el) when com.platform = Neko ->
+							(* Neko has this reversed at the moment (issue #4787) *)
+							let el = List.map replace el in
+							let e1 = replace e1 in
+							{e with eexpr = TCall(e1,el)}
 						| _ ->
 						| _ ->
 							Type.map_expr replace e
 							Type.map_expr replace e
 					in
 					in