sig
  exception TooManyFields
  exception Frozen
  val max_width : int
  module type S =
    sig
      type t = private int
      val empty : CCBitField.S.t
      type field
      val get : CCBitField.S.field -> CCBitField.S.t -> bool
      val set :
        CCBitField.S.field -> bool -> CCBitField.S.t -> CCBitField.S.t
      val mk_field : unit -> CCBitField.S.field
      val freeze : unit -> unit
      val total_width : unit -> int
    end
  module Make : functor (X : sig  end) -> S
  val all_bits_ : int -> int -> int
end