diff options
| author | Prashanth Mundkur <prashanth.mundkur@gmail.com> | 2018-10-23 15:17:22 -0700 |
|---|---|---|
| committer | Prashanth Mundkur <prashanth.mundkur@gmail.com> | 2018-10-23 15:45:09 -0700 |
| commit | 3996eb6db344efd123a95e8024882dcfc9a6a7c8 (patch) | |
| tree | b1d8ae86afaff7bc316c2601c09a6262553b8052 /platform_impl.ml | |
| parent | a8f693209aac1d47c24466b6eb8186115e77ea99 (diff) | |
| download | sail-riscv-3996eb6db344efd123a95e8024882dcfc9a6a7c8.zip sail-riscv-3996eb6db344efd123a95e8024882dcfc9a6a7c8.tar.gz sail-riscv-3996eb6db344efd123a95e8024882dcfc9a6a7c8.tar.bz2 | |
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 'platform_impl.ml')
| -rw-r--r-- | platform_impl.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/platform_impl.ml b/platform_impl.ml index e593dce..c5cc3ff 100644 --- a/platform_impl.ml +++ b/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 |