@@ -1884,7 +1884,7 @@ class hxb_reader
let read_field () =
let name = self#read_string 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
ef_name = name;
@@ -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_string writer.chunk s;
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 ->
()