X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=bitstring_persistent.ml;h=6177b1d3d60542b09dbd915e25c92e51721dc8e6;hb=0fb4b24ebe3b85c935786f8e3e472d0d2292744e;hp=c848e36a17e1f7e3541638b4c43f5dc43a4b5b3d;hpb=46d02767bf223661c05127d86878a74be0bda712;p=ocaml-bitstring.git

diff --git a/bitstring_persistent.ml b/bitstring_persistent.ml
index c848e36..6177b1d 100644
--- a/bitstring_persistent.ml
+++ b/bitstring_persistent.ml
@@ -1,4 +1,4 @@
-(* 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
@@ -46,7 +46,7 @@ type 'a field = {
 }
 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
@@ -120,7 +120,7 @@ let _string_of_field { flen = flen;
     | 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
@@ -189,7 +189,7 @@ let create_pattern_field _loc =
   {
     field = <:patt< _ >>;
     flen = <:expr< 32 >>;
-    endian = ConstantEndian Bitmatch.BigEndian;
+    endian = ConstantEndian Bitstring.BigEndian;
     signed = false;
     t = Int;
     _loc = _loc;
@@ -242,7 +242,7 @@ let create_constructor_field _loc =
   {
     field = <:expr< 0 >>;
     flen = <:expr< 32 >>;
-    endian = ConstantEndian Bitmatch.BigEndian;
+    endian = ConstantEndian Bitstring.BigEndian;
     signed = false;
     t = Int;
     _loc = _loc;