From: Tanya Lattner <tonic@nondot.org>
Date: Thu, 14 Apr 2011 23:35:31 +0000 (+0000)
Subject: Do not expand the opencl pragma names. This is so you can also have a define named... 
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=b38b6a77ab946ed331f06f6028963d781bac7431;p=clang

Do not expand the opencl pragma names. This is so you can also have a define named the samed as the pragma and they do not interfere (ie. cl_khr_fp64).



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 5585209e88..beb1af67ac 100644
--- 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";