From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Wed, 4 Mar 2009 10:34:25 +0000 (+0100)
Subject: Don't inline alu.
X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fc%CE%BBash.git;a=commitdiff_plain;h=ee868ded42dccf7679190420e8d348aa8d727b98

Don't inline alu.
---

diff --git a/Alu.hs b/Alu.hs
index 0fba340..adc350f 100644
--- 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