diff options
| -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 a1a1f699..1d2037a6 100644 --- a/riscv/platform_impl.ml +++ b/riscv/platform_impl.ml @@ -124,7 +124,7 @@ let make_dtb dts = (* Call the dtc compiler, assumed to be at /usr/bin/dtc *) (* simple and stupid for now *) let rec accum_bytes cin acc = match ( - try Some (input_byte cfrom) + try Some (input_byte cin) with End_of_file -> None ) with | Some b -> accum_bytes cin (b :: acc) |