From: Ian Lynagh <igloo@earth.li>
Date: Thu, 5 Aug 2010 13:50:11 +0000 (+0000)
Subject: Don't restrict filenames in line pragmas to printable characters; fixes #4207
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ddec0ec0a7772c434f2c7b4d284e9280067ed26b

Don't restrict filenames in line pragmas to printable characters; fixes #4207
"printable" is ASCII-only, whereas in other locales we can get things like
# 1 "<línea-de-orden>"
---

diff --git a/compiler/cmm/CmmLex.x b/compiler/cmm/CmmLex.x
index 1963479..a5defb6 100644
--- a/compiler/cmm/CmmLex.x
+++ b/compiler/cmm/CmmLex.x
@@ -74,7 +74,7 @@ $white_no_nl+		;
 -- single-line line pragmas, of the form
 --    # <line> "<file>" <extra-stuff> \n
 <line_prag> $digit+			{ setLine line_prag1 }
-<line_prag1> \" ($printable # \")* \"	{ setFile line_prag2 }
+<line_prag1> \" [^\"]* \"	{ setFile line_prag2 }
 <line_prag2> .*				{ pop }
 
 <0> {