From 2fc713015ccdabfb4f979546c3ecd0dd40329bb8 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Tue, 10 Mar 2009 17:56:50 +0100 Subject: [PATCH] Remove a few stale TODOs. --- Translator.hs | 1 - VHDL.hs | 3 --- 2 files changed, 4 deletions(-) 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 -- 2.30.2