diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-01-03 20:41:22 +0100 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-01-03 20:41:22 +0100 |
| commit | 1b32dfecc4fd1c9d9d024bb053c43ea17021cc65 (patch) | |
| tree | a52a6527a6dd0f34f07f61c20b77b42c1d8ff720 /cpu/example_cpu.ml | |
| parent | 1ff268ab13dd299c4cdc1e379df5397bd6a394e3 (diff) | |
| download | SystDigit-Projet-1b32dfecc4fd1c9d9d024bb053c43ea17021cc65.tar.gz SystDigit-Projet-1b32dfecc4fd1c9d9d024bb053c43ea17021cc65.zip | |
Monitor now works correctly.
Diffstat (limited to 'cpu/example_cpu.ml')
| -rw-r--r-- | cpu/example_cpu.ml | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/cpu/example_cpu.ml b/cpu/example_cpu.ml index 2d60bec..e626cae 100644 --- a/cpu/example_cpu.ml +++ b/cpu/example_cpu.ml @@ -10,10 +10,13 @@ let sumz n i = let p = let width = 16 in - let sum, r = sumz width (get "in") in + let sum, r = sumz width (get "input") in program - [ "in", width ] - [ "out", width, sum; - "r", 1, r ] + [ "input", width; + "ser_in", 8 ] + [ "output", width, sum; + "r", 1, r; + "ser_busy", 1, (const "0"); + "ser_out", 8, get "ser_in"; ] let () = Netlist_gen.print stdout p |