-(* Bitmatch persistent patterns.
+(* Bitstring persistent patterns.
* Copyright (C) 2008 Red Hat Inc., Richard W.M. Jones
*
* This library is free software; you can redistribute it and/or
}
and field_type = Int | String | Bitstring (* field type *)
and endian_expr =
- | ConstantEndian of Bitmatch.endian (* a constant little/big/nativeendian *)
+ | ConstantEndian of Bitstring.endian (* a constant little/big/nativeendian *)
| EndianExpr of expr (* an endian expression *)
type pattern = patt field list
| None -> "[non-const-len]" in
let endian =
match endian with
- | ConstantEndian endian -> Bitmatch.string_of_endian endian
+ | ConstantEndian endian -> Bitstring.string_of_endian endian
| EndianExpr _ -> "endian([expr])" in
let signed = if signed then "signed" else "unsigned" in
let t = string_of_field_type t in
{
field = <:patt< _ >>;
flen = <:expr< 32 >>;
- endian = ConstantEndian Bitmatch.BigEndian;
+ endian = ConstantEndian Bitstring.BigEndian;
signed = false;
t = Int;
_loc = _loc;
{
field = <:expr< 0 >>;
flen = <:expr< 32 >>;
- endian = ConstantEndian Bitmatch.BigEndian;
+ endian = ConstantEndian Bitstring.BigEndian;
signed = false;
t = Int;
_loc = _loc;