Commit 2779fac2 authored by Martin Pépin's avatar Martin Pépin
Browse files

a

parent a1a9939f
......@@ -28,7 +28,7 @@ pre_build:
run: simulator $(CPU).net
@echo "==> Running CPU"
./run.sh digital_clock
./simulator/simul.native --asm test/asm/clock.s _CPU_build/cpu.net | ocaml printer.ml
test: minijazz simulator pre_build
@echo "==> Building asm tests"
......
......@@ -37,9 +37,7 @@ let update_code code new_code =
let get_code input = String.sub input 0 7
let print_date date =
let s = Array.map string_of_int date in
print_string (s.(0)^" - "^s.(1)^" - "^s.(2));
print_newline()
Printf.printf "%d - %d - %d\n" date.(0) date.(1) date.(2)
let rec main code date =
let s = ref (get_code (input_line stdin)) in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment