Merge pull request #30 from samoht/varints

Improve performance for encoding varints

CHANGES.md

@@ -1,8 +1,11 @@
 ### 0.2.0 (2020-12-18)
 
-- Improve performance of variable-size integers encoding. (#24, @samoht)
-- Require `short_hash` operations to be explicitly unstaged. (#15, @CraigFe)
-- Require `equal` and `compare` operations to be explicitly unstaged. (#16, @samoht)
+- Improve performance of variable-size integers encoding and decoding.
+  (#24, #30, @samoht)
+- Require `short_hash` operations to be explicitly unstaged.
+  (#15, @CraigFe)
+- Require `equal` and `compare` operations to be explicitly unstaged.
+  (#16, @samoht)
 
 ### 0.1.0 (2020-10-16)
 

src/repr/type_binary.ml

@@ -50,14 +50,14 @@ module Encode = struct
   let bool b = char (if b then '\255' else '\000')
 
   let int i k =
-    let rec aux n =
+    let rec aux n k =
       if n >= 0 && n < 128 then k chars.(n)
       else
         let out = 128 lor (n land 127) in
         k chars.(out);
-        aux (n lsr 7)
+        aux (n lsr 7) k
     in
-    aux i
+    aux i k
 
   let len n i =
     match n with