From ee868ded42dccf7679190420e8d348aa8d727b98 Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Wed, 4 Mar 2009 11:34:25 +0100
Subject: [PATCH] Don't inline alu.

---
 Alu.hs | 1 +
 1 file changed, 1 insertion(+)

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
 
-- 
2.30.2