git.annexia.org
/
ocaml-bitstring.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow bitstring to be compiled with Core.
[ocaml-bitstring.git]
/
pa_bitstring.ml
diff --git
a/pa_bitstring.ml
b/pa_bitstring.ml
index
58fe1ed
..
5b7b16e
100644
(file)
--- 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
<: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<
>> in
<:expr<
@@
-668,7
+668,7
@@
let output_bitmatch _loc bs cases =
| 32 ->
<:expr<
(* must allocate a new zero each time *)
| 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 ->
Bitstring.$lid:name$ $lid:data$ o zero
>>
| 64 ->