From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Tue, 17 Feb 2009 14:58:31 +0000 (+0100)
Subject: Always import IEEE.std_logic_1164 in the generated VHDL.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=322d29e9564826fc9e7e3c743c38a0d5d353594e;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Always import IEEE.std_logic_1164 in the generated VHDL.
---

diff --git a/VHDL.hs b/VHDL.hs
index 5d57bb5..ad47364 100644
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -26,8 +26,11 @@ getDesignFile = do
   -- session.
   funcs <- getFuncs
   let units = concat $ map getLibraryUnits funcs
+  let context = [
+        AST.Library $ mkVHDLId "IEEE",
+        AST.Use $ (AST.NSimple $ mkVHDLId "IEEE.std_logic_1164") AST.:.: AST.All]
   return $ AST.DesignFile 
-    []
+    context
     units
   
 -- | Create an entity for a given function