From: Matthijs Kooijman 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