Fixed bug about state

mirage · Sep 23, 2017 · 4091ea3 · 4091ea3
1 parent be2d68b
commit 4091ea3
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