X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;ds=inline;f=Translator.hs;h=b4301a3f1a0b6c3451c0636025bce2a8a947900d;hb=185b1f477826325e1076ec552a432335867e7b03;hp=15349f1bf5e6bf2d3837fe4c5f1d91e8022a3a9a;hpb=d1d3f4434d96bfa0254061043f6c9f92367cfcc1;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

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: