From: Matthijs Kooijman Date: Wed, 12 Aug 2009 15:11:43 +0000 (+0200) Subject: Don't inline register_bank. X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=f8eab7bbb02bf1db6db8ff2697db8dd85080582b;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git Don't inline register_bank. --- 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