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
Never inline the half_adder function.
[matthijs/master-project/cλash.git]
/
Adders.hs
diff --git
a/Adders.hs
b/Adders.hs
index 4745d8cd66b1984ae6e119f2e1e5399f38110ea2..7243b504063c0871350745daf98036839078d83b 100644
(file)
--- a/
Adders.hs
+++ b/
Adders.hs
@@
-59,6
+59,7
@@
no_carry_adder (a, b) = a `hwxor` b
-- Combinatoric stateless half adder
-- A -> B -> (S, C)
half_adder :: (Bit, Bit) -> (Bit, Bit)
+{-# NOINLINE half_adder #-}
half_adder (a, b) =
( a `hwxor` b, a `hwand` b )