From f8eab7bbb02bf1db6db8ff2697db8dd85080582b Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Wed, 12 Aug 2009 17:11:43 +0200
Subject: [PATCH] Don't inline register_bank.

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

diff --git a/Alu.hs b/Alu.hs
index edb4d1a..e1aff99 100644
--- a/Alu.hs
+++ b/Alu.hs
@@ -30,6 +30,7 @@ type RegAddr = Bit
 type RegisterBankState = State (Word, Word)
 --data RegisterBankState = Regs { r0, r1 :: Bit} deriving (Show)
 
+{-# NOINLINE register_bank #-}
 register_bank :: 
   RegAddr -- ^ Address
   -> Bit -- ^ Write Enable
-- 
2.30.2