Apply loop unrolling to int encodings

Author: andersfugmann

src/ocaml_protoc_plugin/reader.ml

@@ -46,7 +46,7 @@ let read_varint t =
       inner acc (Int.add bit 7)
     | false -> acc
   in
-  inner 0L 0
+  (inner[@unrolled 10]) 0L 0
 
 let read_varint_unboxed t = read_varint t |> Int64.to_int
 

src/ocaml_protoc_plugin/writer.ml

@@ -38,7 +38,7 @@ let write_varint buffer ~offset v =
       Bytes.unsafe_set buffer offset ((v land 0x7fL) lor 0b1000_0000L |> Int64.to_int |> Char.unsafe_chr);
       inner ~offset:next_offset rem
   in
-  inner ~offset v
+  (inner[@unrolled 10]) ~offset v
 
 let write_varint_unboxed buffer ~offset v = write_varint buffer ~offset (Int64.of_int v)