X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fc%CE%BBash.git;a=blobdiff_plain;f=HighOrdAlu.hs;h=8467c38d92ad815bc55053937a5445aac4a0f01f;hp=bdbdc3c28821a8aae361e33d445cffb5c05d41bc;hb=HEAD;hpb=579289ed9e6b89fcf1da4f6ee4234332f2905195 diff --git a/HighOrdAlu.hs b/HighOrdAlu.hs index bdbdc3c..8467c38 100644 --- a/HighOrdAlu.hs +++ b/HighOrdAlu.hs @@ -28,4 +28,4 @@ actual_alu :: (Opcode, Vector D4 (SizedInt D8), Vector D4 (SizedInt D8)) -> Vect --actual_alu = alu (constant Low) andop actual_alu (opc, a, b) = alu (anyset (+) (0 :: SizedInt D8)) (andop (-)) opc a b -runalu = P.map actual_alu sim_input \ No newline at end of file +runalu = P.map actual_alu sim_input