| (* Uses Int32 as the underlying storage. All int16 values will be | |
| * stored signed-extended. E.g. -1 will be stored with all high bits set. | |
| *) | |
| include Ixx.Make (struct | |
| include Int32 | |
| let bitwidth = 16 | |
| let to_hex_string i = Printf.sprintf "%lx" (Int32.logand i 0xffffl) | |
| let of_int64 = Int64.to_int32 | |
| let to_int64 = Int64.of_int32 | |
| end) |