projects
/
matthijs
/
master-project
/
dsd-paper.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use function names instead of operators in the higher order CPU.
[matthijs/master-project/dsd-paper.git]
/
cλash.lhs
diff --git
a/cλash.lhs
b/cλash.lhs
index b5e074dcc6e0980349814d0db84ca0eb1f27b379..447e3ac171045a47d42c71f5f61853a4d6f07e18 100644
(file)
--- a/
cλash.lhs
+++ b/
cλash.lhs
@@
-1272,9
+1272,9
@@
cpu :: CpuState -> Word -> [(Index 6, Index 6) | 4]
cpu (State s) input addrs opc = (State s', out)
where
s' = [ fu (multiop opc) inputs (addrs!0)
cpu (State s) input addrs opc = (State s', out)
where
s' = [ fu (multiop opc) inputs (addrs!0)
- , fu
(+)
inputs (addrs!1)
- , fu
(-)
inputs (addrs!2)
- , fu
(*)
inputs (addrs!3)
+ , fu
add
inputs (addrs!1)
+ , fu
sub
inputs (addrs!2)
+ , fu
mul
inputs (addrs!3)
]
inputs = 0 +> (1 +> (input +> s))
out = head s'
]
inputs = 0 +> (1 +> (input +> s))
out = head s'