In a '{...} as foo' binding, save the original bitstring offset and

[ocaml-bitstring.git] / pa_bitstring.ml

diff --git a/pa_bitstring.ml b/pa_bitstring.ml
index 1414612..58fe1ed 100644 (file)
--- 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