From: Christiaan Baaij <christiaan.baaij@gmail.com>
Date: Tue, 18 Aug 2009 12:54:09 +0000 (+0200)
Subject: No longer allow slashes in extended names, they are now stripped
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=6a83cf67b0711acdf5a3215ff096c392f2d5d7bf;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

No longer allow slashes in extended names, they are now stripped
---

diff --git "a/c\316\273ash/CLasH/VHDL/VHDLTools.hs" "b/c\316\273ash/CLasH/VHDL/VHDLTools.hs"
index fedd8f5..e273da8 100644
--- "a/c\316\273ash/CLasH/VHDL/VHDLTools.hs"
+++ "b/c\316\273ash/CLasH/VHDL/VHDLTools.hs"
@@ -239,7 +239,7 @@ mkVHDLExtId s =
   AST.unsafeVHDLExtId $ strip_invalid s
   where 
     -- Allowed characters, taken from ForSyde's mkVHDLExtId
-    allowed = ['A'..'Z'] ++ ['a'..'z'] ++ ['0'..'9'] ++ " \"#&\\'()*+,./:;<=>_|!$%@?[]^`{}~-"
+    allowed = ['A'..'Z'] ++ ['a'..'z'] ++ ['0'..'9'] ++ " \"#&'()*+,./:;<=>_|!$%@?[]^`{}~-"
     strip_invalid = filter (`elem` allowed)
 
 -- Create a record field selector that selects the given label from the record