-- Create component instantiations for all function applications
insts <- mapM (mkCompInsSm sigs) apps
let procs = map mkStateProcSm (getOwnStates hsfunc flatfunc)
-- Create component instantiations for all function applications
insts <- mapM (mkCompInsSm sigs) apps
let procs = map mkStateProcSm (getOwnStates hsfunc flatfunc)
rising_edge_clk = AST.PrimFCall $ AST.FCall rising_edge [Nothing AST.:=>: (AST.ADName $ AST.NSimple clk)]
statement = AST.IfSm rising_edge_clk [assign] [] Nothing
rising_edge_clk = AST.PrimFCall $ AST.FCall rising_edge [Nothing AST.:=>: (AST.ADName $ AST.NSimple clk)]
statement = AST.IfSm rising_edge_clk [assign] [] Nothing