From 185b1f477826325e1076ec552a432335867e7b03 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Wed, 11 Feb 2009 18:58:53 +0100 Subject: [PATCH] Add more builtin functions. --- Translator.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Translator.hs b/Translator.hs index 15349f1..b4301a3 100644 --- a/Translator.hs +++ b/Translator.hs @@ -194,7 +194,10 @@ addBuiltIn (BuiltIn name args res) = do builtin_funcs = [ - BuiltIn "hwxor" [(Single ("a", VHDL.bit_ty)), (Single ("b", VHDL.bit_ty))] (Single ("o", VHDL.bit_ty)) + BuiltIn "hwxor" [(Single ("a", VHDL.bit_ty)), (Single ("b", VHDL.bit_ty))] (Single ("o", VHDL.bit_ty)), + BuiltIn "hwand" [(Single ("a", VHDL.bit_ty)), (Single ("b", VHDL.bit_ty))] (Single ("o", VHDL.bit_ty)), + BuiltIn "hwor" [(Single ("a", VHDL.bit_ty)), (Single ("b", VHDL.bit_ty))] (Single ("o", VHDL.bit_ty)), + BuiltIn "hwnot" [(Single ("a", VHDL.bit_ty))] (Single ("o", VHDL.bit_ty)) ] -- vim: set ts=8 sw=2 sts=2 expandtab: -- 2.30.2