Merge pull request #34 from mirage/fix-state

Fixed bug about state
mirage · Oct 18, 2017 · a6f6b2b · a6f6b2b
2 parents be2d68b + 4091ea3
commit a6f6b2b
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/decompress.ml b/lib/decompress.ml
@@ -2613,7 +2613,7 @@ struct
                      src dst t) src dst t
           else k state.dictionary src dst t
         | 16 ->
-          let aux n src dst t =
+          let aux state n src dst t =
             if state.idx + n + 3 > state.max
             then error t Invalid_dictionary
             else begin
@@ -2628,9 +2628,9 @@ struct
             end
           in
 
-          KDictionary.get_bits 2 aux src dst t
+          KDictionary.get_bits 2 (aux state) src dst t
         | 17 ->
-          let aux n src dst t =
+          let aux state n src dst t =
             if state.idx + n + 3 > state.max
             then error t Invalid_dictionary
             else begin
@@ -2642,7 +2642,7 @@ struct
             end
           in
 
-          KDictionary.get_bits 3 aux src dst t
+          KDictionary.get_bits 3 (aux state) src dst t
         | 18 ->
           let aux state n src dst t =
             if state.idx + n + 11 > state.max