From: christiaanb Date: Wed, 23 Jun 2010 10:02:12 +0000 (+0200) Subject: show function id should just be a basic identifier X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=3f39038911a675d91b5147761e16296d3ab25743;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git show function id should just be a basic identifier --- diff --git a/clash/CLasH/VHDL/Constants.hs b/clash/CLasH/VHDL/Constants.hs index 4267e2e..980dcd1 100644 --- a/clash/CLasH/VHDL/Constants.hs +++ b/clash/CLasH/VHDL/Constants.hs @@ -353,7 +353,7 @@ showIdString :: String showIdString = "show" showId :: AST.VHDLId -showId = AST.unsafeVHDLExtId showIdString +showId = AST.unsafeVHDLBasicId showIdString -- | write function identifier (from std.textio) writeId :: AST.VHDLId diff --git a/clash/CLasH/VHDL/VHDLTools.hs b/clash/CLasH/VHDL/VHDLTools.hs index f04c1dc..bc5f497 100644 --- a/clash/CLasH/VHDL/VHDLTools.hs +++ b/clash/CLasH/VHDL/VHDLTools.hs @@ -723,7 +723,7 @@ mkVectorShow elemTM vectorTM = AST.:-: AST.PrimLit "1")) tailRet = AST.ReturnSm (Just $ AST.PrimName $ AST.NSimple resId) showSpec = AST.Function showId [AST.IfaceVarDec vecPar vectorTM, AST.IfaceVarDec parenPar booleanTM] stringTM - doShowId = AST.unsafeVHDLExtId "doshow" + doShowId = AST.unsafeVHDLBasicId "doshow" doShowDef = AST.SubProgBody doShowSpec [] [doShowRet] where doShowSpec = AST.Function doShowId [AST.IfaceVarDec vecPar vectorTM] stringTM