From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Tue, 10 Mar 2009 16:56:50 +0000 (+0100)
Subject: Remove a few stale TODOs.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=2fc713015ccdabfb4f979546c3ecd0dd40329bb8;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Remove a few stale TODOs.
---

diff --git a/Translator.hs b/Translator.hs
index a94e3f4..92251ee 100644
--- a/Translator.hs
+++ b/Translator.hs
@@ -272,7 +272,6 @@ resolvFunc hsfunc = do
   -- when it is a builtin function.
   Monad.unless (Map.member hsfunc flatfuncmap) $ do
   Monad.unless (elem hsfunc VHDL.builtin_hsfuncs) $ do
-  -- TODO: Builtin functions
   -- New function, resolve it
   core <- getA tsCoreModule
   -- Find the named function
diff --git a/VHDL.hs b/VHDL.hs
index 4d8b666..572e221 100644
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -35,7 +35,6 @@ createDesignFiles ::
   -> [(AST.VHDLId, AST.DesignFile)]
 
 createDesignFiles flatfuncmap =
-  -- TODO: Output types
   (mkVHDLId "types", AST.DesignFile ieee_context [type_package]) :
   map (Arrow.second $ AST.DesignFile full_context) units
   
@@ -171,8 +170,6 @@ createArchitecture hsfunc flatfunc = do
     args = flat_args flatfunc
     res  = flat_res  flatfunc
     defs = flat_defs flatfunc
-    -- TODO: Unique ty_decls
-    -- TODO: Store ty_decls somewhere
     procs = map mkStateProcSm (makeStatePairs flatfunc)
     procs' = map AST.CSPSm procs
     -- mkSigDec only uses vsTypes from the state