X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=pa_bitstring.ml;fp=pa_bitstring.ml;h=58fe1ed3dd5afa2e55f25d7b51cbf2f9e1c0f82f;hb=7967f0f8966db8ea22644554277a9bade43d3641;hp=1414612bdf33f730da60a7d5581c448ff83a2594;hpb=ef7b0ec370fc78bd51e797046168bb09ea8a7f4b;p=ocaml-bitstring.git

diff --git a/pa_bitstring.ml b/pa_bitstring.ml
index 1414612..58fe1ed 100644
--- a/pa_bitstring.ml
+++ b/pa_bitstring.ml
@@ -989,7 +989,8 @@ let output_bitmatch _loc bs cases =
 	match bind with
 	| Some name ->
 	    <:expr<
-	      let $lid:name$ = ($lid:data$, $lid:off$, $lid:len$) in
+	      let $lid:name$ = ($lid:data$,
+                                $lid:original_off$, $lid:original_len$) in
 	      $inner$
 	      >>
 	| None -> inner in