浏览代码

[hxb] read TTry

Rudy Ges 2 年之前
父节点
当前提交
7ce5904279
共有 1 个文件被更改,包括 7 次插入2 次删除
  1. 7 2
      src/compiler/hxb/hxbReader.ml

+ 7 - 2
src/compiler/hxb/hxbReader.ml

@@ -516,8 +516,13 @@ class hxb_reader
 					switch_exhaustive = true;
 				}
 			| 83 ->
-				(* TODO TTry *)
-				assert false
+				let e1 = self#read_texpr in
+				let catches = self#read_list16 (fun () ->
+					let v = self#read_var in
+					let e = self#read_texpr in
+					(v,e)
+				) in
+				TTry(e1,catches)
 			| 84 ->
 				let e1 = self#read_texpr in
 				let e2 = self#read_texpr in