From f428ef73d3c779bf00e9d493bad4eddf5bb9d0cb Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Thu, 25 Jun 2009 15:19:09 +0200 Subject: [PATCH] Remove the function wrapper hack from HighOrdAlu. Compile the alu now gives a nice design with a four bit inverter, four bit and gate and a multiplexer! --- HighOrdAlu.hs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/HighOrdAlu.hs b/HighOrdAlu.hs index 6458f3c..f49d511 100644 --- a/HighOrdAlu.hs +++ b/HighOrdAlu.hs @@ -12,15 +12,12 @@ constant :: e -> Op D4 e constant e a b = e +> (e +> (e +> (singleton e ))) -inv = hwnot - invop :: Op n Bit -invop a b = map inv a +invop a b = map hwnot a -xand = hwand andop :: Op n Bit -andop a b = zipWith xand a b +andop a b = zipWith hwand a b type Op n e = (TFVec n e -> TFVec n e -> TFVec n e) type Opcode = Bit @@ -32,4 +29,5 @@ alu op1 op2 opc a b = High -> op2 a b actual_alu :: Opcode -> TFVec D4 Bit -> TFVec D4 Bit -> TFVec D4 Bit -actual_alu = alu (constant Low) andop +--actual_alu = alu (constant Low) andop +actual_alu = alu invop andop -- 2.30.2