浏览代码

neko bugfix when single var in a switch case

Nicolas Cannasse 14 年之前
父节点
当前提交
44e693bb1f
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      optimizer.ml

+ 2 - 0
optimizer.ml

@@ -461,6 +461,8 @@ let sanitize_expr e =
 		{ e with eexpr = TTry (e1,catches) }
 	| TSwitch (e1,cases,def) ->
 		let e1 = parent e1 in
+		let cases = List.map (fun (el,e) -> el, complex e) cases in
+		let def = (match def with None -> None | Some e -> Some (complex e)) in
 		{ e with eexpr = TSwitch (e1,cases,def) }
 	| _ ->
 		e