-> Entity
createTestbenchEntity bndr = entity
where
- vhdl_id = mkVHDLBasicId $ varToString bndr
+ vhdl_id = mkVHDLBasicId "testbench"
-- Create an AST entity declaration with no ports
ent_decl = AST.EntityDec vhdl_id []
-- Create a signature with no input and no output ports
(stimuliAssigns, stimuliDecs, cycles, used) <- createStimuliAssigns mCycles stimuli (head iIds)
let finalAssigns = (AST.CSSASm (AST.NSimple resetId AST.:<==:
AST.ConWforms []
- (AST.Wform [AST.WformElem (AST.PrimLit "'1'") (Just $ AST.PrimLit "3 ns")])
+ (AST.Wform [AST.WformElem (AST.PrimLit "'0'") (Just $ AST.PrimLit "0 ns"), AST.WformElem (AST.PrimLit "'1'") (Just $ AST.PrimLit "3 ns")])
Nothing)) : stimuliAssigns
let clkProc = createClkProc
let arch = AST.ArchBody