X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Alu.hs;h=e1aff99e98bbafc444ef29035dcaed1c2817781f;hb=f8eab7bbb02bf1db6db8ff2697db8dd85080582b;hp=edb4d1a7440d63b9447ec7264fdc2595700cdd8a;hpb=26fa82ed9c6c355343972ff1ca254b2cb4931b06;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

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