substs table fix: string spacing

This commit is contained in:
ProgramSnail 2025-03-02 16:03:55 +03:00
parent a8a68b4148
commit 7ab5944536

View file

@ -382,7 +382,8 @@ module ByteCode = struct
List.iter List.iter
(fun (c, l) -> (fun (c, l) ->
Buffer.add_int32_ne subst_table @@ Int32.of_int c; Buffer.add_int32_ne subst_table @@ Int32.of_int c;
Buffer.add_string subst_table l) Buffer.add_string subst_table l;
Buffer.add_char subst_table (Char.chr 0))
!substs; !substs;
Buffer.add_int32_ne file (Int32.of_int @@ Bytes.length str_table); Buffer.add_int32_ne file (Int32.of_int @@ Bytes.length str_table);
Buffer.add_int32_ne file (Int32.of_int @@ !glob_count); Buffer.add_int32_ne file (Int32.of_int @@ !glob_count);