Bläddra i källkod

[hxb] write type for TMeta

Rudy Ges 1 år sedan
förälder
incheckning
6df6d4bab6
2 ändrade filer med 2 tillägg och 2 borttagningar
  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 ->
 					| 65 ->
 						let m = self#read_metadata_entry in
 						let m = self#read_metadata_entry in
 						let e1 = loop () in
 						let e1 = loop () in
-						TMeta (m,e1),(Some e1.etype)
+						TMeta (m,e1),None
 
 
 					(* calls 70 - 79 *)
 					(* calls 70 - 79 *)
 					| 70 ->
 					| 70 ->

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

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