projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Merge branch 'cλash' of http://git.stderr.nl/matthijs/projects/master-project
[matthijs/master-project/cλash.git]
/
HighOrdAlu.hs
diff --git
a/HighOrdAlu.hs
b/HighOrdAlu.hs
index 331fa1debd0b4f20a071b126398ee498b552967d..d453f640b91737a2a3dc0af0baa902d175822210 100644
(file)
--- a/
HighOrdAlu.hs
+++ b/
HighOrdAlu.hs
@@
-10,12
+10,11
@@
import Data.RangedWord
constant :: e -> Op D4 e
constant e a b =
- e +> (e +> (e +> (singleton e )))
+ copy (lengthT a) e
invop :: Op n Bit
invop a b = map hwnot a
-
andop :: Op n Bit
andop a b = zipWith hwand a b