X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;ds=sidebyside;f=Alu.hs;h=adc350f06dff902d2dc8250191f7c692270aa4e5;hb=ee868ded42dccf7679190420e8d348aa8d727b98;hp=0fba3406d9bf55dfb532f93d46144adf58c988cc;hpb=2ee391fd9b32f39872abfcf339e949f5139c6cbd;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

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