From 9d6ed84c8d147725d8d8cf4deac9ca07869cbf3b Mon Sep 17 00:00:00 2001 From: Christiaan Baaij Date: Wed, 3 Mar 2010 15:36:38 +0100 Subject: [PATCH] Add cpustate type alias --- "c\316\273ash.lhs" | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git "a/c\316\273ash.lhs" "b/c\316\273ash.lhs" index a6bd1c2..074ec91 100644 --- "a/c\316\273ash.lhs" +++ "b/c\316\273ash.lhs" @@ -1210,9 +1210,10 @@ fu op inputs (addr1, addr2) = regIn \end{code} \begin{code} -cpu :: State [Word | 4] -> Word - -> [(Index 6, Index 6) | 4] - -> (State [Word | 4], Word) +type CpuState = State [Word | 4] + +cpu :: CpuState -> Word -> [(Index 6, Index 6) | 4] + -> (CpuState, Word) cpu (State regsOut) input addrs = (State regsIn, out) where regsIn = [ fu const inputs (addrs!0) @@ -1422,7 +1423,7 @@ earlier mentioned properties do indeed exist. % number - used to balance the columns on the last page % adjust value as needed - may need to be readjusted if % the document is modified later -%\IEEEtriggeratref{8} +\IEEEtriggeratref{14} % The "triggered" command can be changed if desired: %\IEEEtriggercmd{\enlargethispage{-5in}} -- 2.30.2