add bootstrapping test script

This commit is contained in:
Lobo 2025-12-03 22:58:03 -03:00
parent d49bac83c3
commit c63860654c
2 changed files with 16 additions and 1 deletions

View file

@ -18,7 +18,7 @@ let rec run m pc =
in
try Machine.dispatch ~trace:debug m pc with
| effect Machine.Trace (pc, instr, args), k when debug ->
Fmt.epr "PC = %04x | %6s : %a@." pc (Instr.to_string instr)
Fmt.epr "PC = %04x | %6s %a@." pc (Instr.to_string instr)
(Fmt.list ~sep:(Fmt.any " ") (Fmt.fmt "%02x"))
args;
Out_channel.flush stderr;