2
0
Rudy Ges 2 жил өмнө
parent
commit
7ce5904279

+ 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