From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Wed, 11 Feb 2009 17:58:53 +0000 (+0100)
Subject: Add more builtin functions.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=185b1f477826325e1076ec552a432335867e7b03;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Add more builtin functions.
---

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: