inlining annotations

mransan · Nov 27, 2023 · 122d5f9 · 122d5f9
1 parent c4dec4c
commit 122d5f9
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/src/runtime/pbrt.ml b/src/runtime/pbrt.ml
@@ -391,9 +391,14 @@ module Encoder = struct
     self.b <- self.initial;
     self.start <- cap self
 
-  let to_string self = Bytes.sub_string self.b self.start (cap self - self.start)
-  let to_bytes self = Bytes.sub self.b self.start (cap self - self.start)
-  let write_chunks w self = w self.b self.start (cap self - self.start)
+  let[@inline] to_string self =
+    Bytes.sub_string self.b self.start (cap self - self.start)
+
+  let[@inline] to_bytes self =
+    Bytes.sub self.b self.start (cap self - self.start)
+
+  let[@inline] write_chunks w self : unit =
+    w self.b self.start (cap self - self.start)
 
   let next_cap_ self =
     min Sys.max_string_length