From 363b29906c13537fa612171f8f8855bb12cbc2d9 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Mon, 22 Jun 2009 15:16:43 +0200 Subject: [PATCH] Append the Unique to generated VHDL entity id's. --- VHDL.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/VHDL.hs b/VHDL.hs index 3c641a0..bc992ef 100644 --- a/VHDL.hs +++ b/VHDL.hs @@ -114,7 +114,7 @@ createEntity (fname, expr) = do -- There must be a let at top level let (CoreSyn.Let binds (CoreSyn.Var res)) = letexpr res' <- mkMap res - let vhdl_id = mkVHDLBasicId $ bndrToString fname + let vhdl_id = mkVHDLBasicId $ bndrToString fname ++ "_" ++ varToStringUniq fname let ent_decl' = createEntityAST vhdl_id args' res' let AST.EntityDec entity_id _ = ent_decl' let signature = Entity entity_id args' res' @@ -695,9 +695,11 @@ bndrToVHDLId = mkVHDLExtId . OccName.occNameString . Name.nameOccName . Var.varN bndrToString :: CoreSyn.CoreBndr -> String - bndrToString = OccName.occNameString . Name.nameOccName . Var.varName +-- Get the string version a Var's unique +varToStringUniq = show . Var.varUnique + -- Extracts the string version of the name nameToString :: Name.Name -> String nameToString = OccName.occNameString . Name.nameOccName -- 2.30.2