let _string_of_field { flen = flen;
endian = endian; signed = signed; t = t;
_loc = _loc;
offset = offset; check = check; bind = bind;
save_offset_to = save_offset_to } =
let _string_of_field { flen = flen;
endian = endian; signed = signed; t = t;
_loc = _loc;
offset = offset; check = check; bind = bind;
save_offset_to = save_offset_to } =
- | Some expr ->
- match expr_is_constant expr with
- | Some i -> sprintf ", offset(%d)" i
- | None -> sprintf ", offset([expr])" in
+ | Some expr -> sprintf ", offset(%s)" (expr_printer expr) in