X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=pa_bitstring.ml;fp=pa_bitstring.ml;h=5b7b16e9892bf1a2cf8e00487065148b6f26a4d3;hb=e7c7bd5bed1125a1aa073fd1bf0797a2df42e6aa;hp=58fe1ed3dd5afa2e55f25d7b51cbf2f9e1c0f82f;hpb=4b8ed191d11baaaa5c042c4408cb5063907e2e89;p=ocaml-bitstring.git

diff --git a/pa_bitstring.ml b/pa_bitstring.ml
index 58fe1ed..5b7b16e 100644
--- a/pa_bitstring.ml
+++ b/pa_bitstring.ml
@@ -631,7 +631,7 @@ let output_bitmatch _loc bs cases =
 		<:expr<
                   let o =
 		    ($lid:original_off$ lsr 3) + $`int:field_byte_offset$ in
-                  Char.code (String.unsafe_get $lid:data$ o)              
+                  Bitstring.char_code (String.unsafe_get $lid:data$ o)              
                 >> in
 
               <:expr<
@@ -668,7 +668,7 @@ let output_bitmatch _loc bs cases =
 		  | 32 ->
 		      <:expr<
 			(* must allocate a new zero each time *)
-			let zero = Int32.of_int 0 in
+			let zero = Bitstring.int32_of_int 0 in
 			Bitstring.$lid:name$ $lid:data$ o zero
 		      >>
 		  | 64 ->