Module Field_ops_lib.With_shift

Internal module.

type t = {
x : Hardcaml.Signal.t;
shift : int;
}
val width : t -> int
val no_shift : Hardcaml.Signal.t -> t
val create : shift:int -> Hardcaml.Signal.t -> t
val sll : t -> by:int -> t
val map : f:( Hardcaml.Signal.t -> Hardcaml.Signal.t ) -> t -> t
val uresize : t -> int -> t
val pipe_add : scope:Hardcaml.Scope.t -> enable:Hardcaml.Signal.t -> clock:Hardcaml.Signal.t -> stages:int -> t list -> t
val sum : t list -> t
val mixed : init:t -> [ `Add of t | `Sub of t ] list -> t
val to_signal : t -> Hardcaml.Signal.t