projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
As identifiers are z-encoded instead of extended they are no longer case sensitive...
[matthijs/master-project/cλash.git]
/
clash
/
CLasH
/
VHDL
/
VHDLTools.hs
diff --git
a/clash/CLasH/VHDL/VHDLTools.hs
b/clash/CLasH/VHDL/VHDLTools.hs
index bc5f497038f6e7b8167135899d1644d4db85b611..723f08acb718d968de22940ee1b836c30e1b8183 100644
(file)
--- a/
clash/CLasH/VHDL/VHDLTools.hs
+++ b/
clash/CLasH/VHDL/VHDLTools.hs
@@
-206,10
+206,7
@@
dataconToVHDLExpr dc = do
varToVHDLId ::
CoreSyn.CoreBndr
-> AST.VHDLId
varToVHDLId ::
CoreSyn.CoreBndr
-> AST.VHDLId
-varToVHDLId var = mkVHDLExtId (varToString var ++ varToStringUniq var ++ show (lowers $ varToStringUniq var))
- where
- lowers :: String -> Int
- lowers xs = length [x | x <- xs, Char.isLower x]
+varToVHDLId var = mkVHDLExtId $ varToUniqString var
-- Creates a VHDL Name from a binder
varToVHDLName ::
-- Creates a VHDL Name from a binder
varToVHDLName ::
@@
-223,6
+220,14
@@
varToString ::
-> String
varToString = OccName.occNameString . Name.nameOccName . Var.varName
-> String
varToString = OccName.occNameString . Name.nameOccName . Var.varName
+varToUniqString ::
+ CoreSyn.CoreBndr
+ -> String
+varToUniqString var = (varToString var ++ varToStringUniq var ++ show (lowers $ varToStringUniq var))
+ where
+ lowers :: String -> Int
+ lowers xs = length [x | x <- xs, Char.isLower x]
+
-- Get the string version a Var's unique
varToStringUniq :: Var.Var -> String
varToStringUniq = show . Var.varUnique
-- Get the string version a Var's unique
varToStringUniq :: Var.Var -> String
varToStringUniq = show . Var.varUnique