add bootstrapping test script
This commit is contained in:
parent
d49bac83c3
commit
c63860654c
2 changed files with 16 additions and 1 deletions
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue