Do not expand the opencl pragma names. This is so you can also have a define named...

git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@129549 91177308-0d34-0410-b5e6-96231b3b80d8

diff --git a/lib/Parse/ParsePragma.cpp b/lib/Parse/ParsePragma.cpp
index 5585209e88e786e445b73f34f1cfd2379ffbb754..beb1af67acccaa77768b298a56e5619f09fbfcdd 100644 (file)
--- a/lib/Parse/ParsePragma.cpp
+++ b/lib/Parse/ParsePragma.cpp
@@ -387,7 +387,7 @@ void
 PragmaOpenCLExtensionHandler::HandlePragma(Preprocessor &PP, 
                                            PragmaIntroducerKind Introducer,
                                            Token &Tok) {
-  PP.Lex(Tok);
+  PP.LexUnexpandedToken(Tok);
   if (Tok.isNot(tok::identifier)) {
     PP.Diag(Tok.getLocation(), diag::warn_pragma_expected_identifier) <<
       "OPENCL";