From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Mon, 9 Mar 2009 09:26:42 +0000 (+0100)
Subject: Make createEntity preserve the Entity on builtin functions.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=96f7f06d240a28893e3e982d1184727a6c79ca76;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Make createEntity preserve the Entity on builtin functions.
---

diff --git a/VHDL.hs b/VHDL.hs
index 6f3705e..cdff47a 100644
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -38,12 +38,13 @@ getDesignFiles funcs =
 createEntity ::
   HsFunction        -- | The function signature
   -> FuncData       -- | The function data collected so far
-  -> Maybe Entity   -- | The resulting entity
+  -> Maybe Entity   -- | The resulting entity. Should return the existing
+                    ---  Entity for builtin functions.
 
 createEntity hsfunc fdata = 
   case flatFunc fdata of
     -- Skip (builtin) functions without a FlatFunction
-    Nothing -> Nothing
+    Nothing -> funcEntity fdata
     -- Create an entity for all other functions
     Just flatfunc ->
       let