Forráskód Böngészése

[hxb] nothing to see here

Rudy Ges 1 éve
szülő
commit
5e4e368829
2 módosított fájl, 2 hozzáadás és 2 törlés
  1. 1 1
      src/compiler/hxb/hxbReader.ml
  2. 1 1
      src/compiler/hxb/hxbWriter.ml

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

@@ -1884,7 +1884,7 @@ class hxb_reader
 				let read_field () =
 				let read_field () =
 					let name = self#read_string in
 					let name = self#read_string in
 					let pos,name_pos = self#read_pos_pair in
 					let pos,name_pos = self#read_pos_pair in
-					let index = read_byte ch in
+					let index = read_uleb128 ch in
 
 
 					{ null_enum_field with
 					{ null_enum_field with
 						ef_name = name;
 						ef_name = name;

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

@@ -2031,7 +2031,7 @@ module HxbWriter = struct
 			Chunk.write_list writer.chunk (PMap.foldi (fun s f acc -> (s,f) :: acc) e.e_constrs []) (fun (s,ef) ->
 			Chunk.write_list writer.chunk (PMap.foldi (fun s f acc -> (s,f) :: acc) e.e_constrs []) (fun (s,ef) ->
 				Chunk.write_string writer.chunk s;
 				Chunk.write_string writer.chunk s;
 				write_pos_pair writer ef.ef_pos ef.ef_name_pos;
 				write_pos_pair writer ef.ef_pos ef.ef_name_pos;
-				Chunk.write_u8 writer.chunk ef.ef_index
+				Chunk.write_uleb128 writer.chunk ef.ef_index
 			);
 			);
 		| TAbstractDecl a ->
 		| TAbstractDecl a ->
 			()
 			()