diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-01-02 19:21:04 +0100 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-01-02 19:21:04 +0100 |
| commit | 4e1aaf316457f4d4f045fd3ebe500cd70f6bafcc (patch) | |
| tree | e9907c38424f1b3e727a8f661a0d9eb611d7cbaa /cpu/cpu.ml | |
| parent | 6fdfebbc65949d6ad55ee5a47bd6b5bdbc74a91f (diff) | |
| download | SystDigit-Projet-4e1aaf316457f4d4f045fd3ebe500cd70f6bafcc.tar.gz SystDigit-Projet-4e1aaf316457f4d4f045fd3ebe500cd70f6bafcc.zip | |
Renamed example cpu file
Diffstat (limited to 'cpu/cpu.ml')
| -rw-r--r-- | cpu/cpu.ml | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/cpu/cpu.ml b/cpu/cpu.ml deleted file mode 100644 index 2d60bec..0000000 --- a/cpu/cpu.ml +++ /dev/null @@ -1,19 +0,0 @@ -open Netlist_gen - -(* Dumb CPU that just does an 8-bit addition *) - -let sumz n i = - let x, set_x = loop n in - let r = reg n x in - let o1, o2 = Alu.nadder n i r (const "0") in - set_x o1, o2 - -let p = - let width = 16 in - let sum, r = sumz width (get "in") in - program - [ "in", width ] - [ "out", width, sum; - "r", 1, r ] - -let () = Netlist_gen.print stdout p |