Don't inline alu.

diff --git a/Alu.hs b/Alu.hs
index 0fba3406d9bf55dfb532f93d46144adf58c988cc..adc350f06dff902d2dc8250191f7c692270aa4e5 100644 (file)
--- a/Alu.hs
+++ b/Alu.hs
@@ -53,6 +53,7 @@ register_bank (addr, High, d) s = -- Write
 type AluOp = Bit
 
 alu :: AluOp -> Bit -> Bit -> Bit
+{-# NOINLINE alu #-}
 alu High a b = a `hwand` b
 alu Low a b = a `hwor` b