We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent e681c92 commit d184b81Copy full SHA for d184b81
plugins/x86/x86_legacy_bil_pp.ml
@@ -511,13 +511,15 @@ let buf = Buffer.create 57
511
512
let ft =
513
let out_string = Stdlib.Buffer.add_substring buf
514
- and out_spaces _ = Stdlib.Buffer.add_char buf ' ' in
+ and out_spaces _ = Stdlib.Buffer.add_char buf ' '
515
+ and out_width : string -> pos:int -> len:int -> int = fun s ~pos ~len -> len in
516
let ft = Format.formatter_of_buffer buf in
517
Format.pp_set_formatter_out_functions ft
518
{
519
Format.out_string;
520
out_flush = ignore;
521
out_spaces;
522
+ out_width;
523
out_newline = ignore;
524
out_indent = out_spaces;
525
};
0 commit comments