Skip to content

Commit d184b81

Browse files
committed
fix(build): build with 5.4.0
1 parent e681c92 commit d184b81

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

plugins/x86/x86_legacy_bil_pp.ml

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -511,13 +511,15 @@ let buf = Buffer.create 57
511511

512512
let ft =
513513
let out_string = Stdlib.Buffer.add_substring buf
514-
and out_spaces _ = Stdlib.Buffer.add_char buf ' ' in
514+
and out_spaces _ = Stdlib.Buffer.add_char buf ' '
515+
and out_width : string -> pos:int -> len:int -> int = fun s ~pos ~len -> len in
515516
let ft = Format.formatter_of_buffer buf in
516517
Format.pp_set_formatter_out_functions ft
517518
{
518519
Format.out_string;
519520
out_flush = ignore;
520521
out_spaces;
522+
out_width;
521523
out_newline = ignore;
522524
out_indent = out_spaces;
523525
};

0 commit comments

Comments
 (0)