X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;ds=sidebyside;f=Alu.hs;h=adc350f06dff902d2dc8250191f7c692270aa4e5;hb=ee868ded42dccf7679190420e8d348aa8d727b98;hp=0fba3406d9bf55dfb532f93d46144adf58c988cc;hpb=2ee391fd9b32f39872abfcf339e949f5139c6cbd;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git 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