diff options
| author | Prashanth Mundkur | 2018-10-23 15:17:22 -0700 |
|---|---|---|
| committer | Prashanth Mundkur | 2018-10-23 15:45:09 -0700 |
| commit | 1e7b116842ea0e0ad76a70e2736398ef2211dde9 (patch) | |
| tree | 32147929c1cf633e26a7b71e46e8952648bd98a2 /riscv/platform_impl.ml | |
| parent | 852929bb8b47993bcb642ada41802383a308c9c2 (diff) | |
RISC-V: use stderr for terminal output in OCaml backend.
Also add a brief README for booting Linux on the C and OCaml backends.
Diffstat (limited to 'riscv/platform_impl.ml')
| -rw-r--r-- | riscv/platform_impl.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/riscv/platform_impl.ml b/riscv/platform_impl.ml index e593dce9..c5cc3fff 100644 --- a/riscv/platform_impl.ml +++ b/riscv/platform_impl.ml @@ -159,7 +159,7 @@ let make_dtb dts = (* Call the dtc compiler, assumed to be at /usr/bin/dtc *) (* Terminal I/O *) let term_write char = - ignore (Unix.write_substring Unix.stdout (String.make 1 char) 0 1) + ignore (Unix.write_substring Unix.stderr (String.make 1 char) 0 1) let rec term_read () = let buf = Bytes.make 1 '\000' in |