瀏覽代碼

[hxb] write type for TMeta

Rudy Ges 1 年之前
父節點
當前提交
6df6d4bab6
共有 2 個文件被更改,包括 2 次插入2 次删除
  1. 1 1
      src/compiler/hxb/hxbReader.ml
  2. 1 1
      src/compiler/hxb/hxbWriter.ml

+ 1 - 1
src/compiler/hxb/hxbReader.ml

@@ -1122,7 +1122,7 @@ class hxb_reader
 					| 65 ->
 						let m = self#read_metadata_entry in
 						let e1 = loop () in
-						TMeta (m,e1),(Some e1.etype)
+						TMeta (m,e1),None
 
 					(* calls 70 - 79 *)
 					| 70 ->

+ 1 - 1
src/compiler/hxb/hxbWriter.ml

@@ -1488,7 +1488,7 @@ module HxbWriter = struct
 				Chunk.write_u8 writer.chunk 65;
 				write_metadata_entry writer m;
 				loop e1;
-				false;
+				true;
 			(* branching 80-89 *)
 			| TIf(e1,e2,None) ->
 				Chunk.write_u8 writer.chunk 80;