annotate clang/lib/Lex/Preprocessor.cpp @ 266:00f31e85ec16 default tip

Added tag current for changeset 31d058e83c98
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 14 Oct 2023 10:13:55 +0900
parents 731cecd08f47
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
150
anatofuz
parents:
diff changeset
1 //===- Preprocessor.cpp - C Language Family Preprocessor Implementation ---===//
anatofuz
parents:
diff changeset
2 //
anatofuz
parents:
diff changeset
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
anatofuz
parents:
diff changeset
4 // See https://llvm.org/LICENSE.txt for license information.
anatofuz
parents:
diff changeset
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
anatofuz
parents:
diff changeset
6 //
anatofuz
parents:
diff changeset
7 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
8 //
anatofuz
parents:
diff changeset
9 // This file implements the Preprocessor interface.
anatofuz
parents:
diff changeset
10 //
anatofuz
parents:
diff changeset
11 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
12 //
anatofuz
parents:
diff changeset
13 // Options to support:
anatofuz
parents:
diff changeset
14 // -H - Print the name of each header file used.
anatofuz
parents:
diff changeset
15 // -d[DNI] - Dump various things.
anatofuz
parents:
diff changeset
16 // -fworking-directory - #line's with preprocessor's working dir.
anatofuz
parents:
diff changeset
17 // -fpreprocessed
anatofuz
parents:
diff changeset
18 // -dependency-file,-M,-MM,-MF,-MG,-MP,-MT,-MQ,-MD,-MMD
anatofuz
parents:
diff changeset
19 // -W*
anatofuz
parents:
diff changeset
20 // -w
anatofuz
parents:
diff changeset
21 //
anatofuz
parents:
diff changeset
22 // Messages to emit:
anatofuz
parents:
diff changeset
23 // "Multiple include guards may be useful for:\n"
anatofuz
parents:
diff changeset
24 //
anatofuz
parents:
diff changeset
25 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
26
anatofuz
parents:
diff changeset
27 #include "clang/Lex/Preprocessor.h"
anatofuz
parents:
diff changeset
28 #include "clang/Basic/Builtins.h"
anatofuz
parents:
diff changeset
29 #include "clang/Basic/FileManager.h"
anatofuz
parents:
diff changeset
30 #include "clang/Basic/FileSystemStatCache.h"
anatofuz
parents:
diff changeset
31 #include "clang/Basic/IdentifierTable.h"
anatofuz
parents:
diff changeset
32 #include "clang/Basic/LLVM.h"
anatofuz
parents:
diff changeset
33 #include "clang/Basic/LangOptions.h"
anatofuz
parents:
diff changeset
34 #include "clang/Basic/Module.h"
anatofuz
parents:
diff changeset
35 #include "clang/Basic/SourceLocation.h"
anatofuz
parents:
diff changeset
36 #include "clang/Basic/SourceManager.h"
anatofuz
parents:
diff changeset
37 #include "clang/Basic/TargetInfo.h"
anatofuz
parents:
diff changeset
38 #include "clang/Lex/CodeCompletionHandler.h"
anatofuz
parents:
diff changeset
39 #include "clang/Lex/ExternalPreprocessorSource.h"
anatofuz
parents:
diff changeset
40 #include "clang/Lex/HeaderSearch.h"
anatofuz
parents:
diff changeset
41 #include "clang/Lex/LexDiagnostic.h"
anatofuz
parents:
diff changeset
42 #include "clang/Lex/Lexer.h"
anatofuz
parents:
diff changeset
43 #include "clang/Lex/LiteralSupport.h"
anatofuz
parents:
diff changeset
44 #include "clang/Lex/MacroArgs.h"
anatofuz
parents:
diff changeset
45 #include "clang/Lex/MacroInfo.h"
anatofuz
parents:
diff changeset
46 #include "clang/Lex/ModuleLoader.h"
anatofuz
parents:
diff changeset
47 #include "clang/Lex/Pragma.h"
anatofuz
parents:
diff changeset
48 #include "clang/Lex/PreprocessingRecord.h"
anatofuz
parents:
diff changeset
49 #include "clang/Lex/PreprocessorLexer.h"
anatofuz
parents:
diff changeset
50 #include "clang/Lex/PreprocessorOptions.h"
anatofuz
parents:
diff changeset
51 #include "clang/Lex/ScratchBuffer.h"
anatofuz
parents:
diff changeset
52 #include "clang/Lex/Token.h"
anatofuz
parents:
diff changeset
53 #include "clang/Lex/TokenLexer.h"
anatofuz
parents:
diff changeset
54 #include "llvm/ADT/APInt.h"
anatofuz
parents:
diff changeset
55 #include "llvm/ADT/ArrayRef.h"
anatofuz
parents:
diff changeset
56 #include "llvm/ADT/DenseMap.h"
anatofuz
parents:
diff changeset
57 #include "llvm/ADT/STLExtras.h"
anatofuz
parents:
diff changeset
58 #include "llvm/ADT/SmallString.h"
anatofuz
parents:
diff changeset
59 #include "llvm/ADT/SmallVector.h"
anatofuz
parents:
diff changeset
60 #include "llvm/ADT/StringRef.h"
anatofuz
parents:
diff changeset
61 #include "llvm/Support/Capacity.h"
anatofuz
parents:
diff changeset
62 #include "llvm/Support/ErrorHandling.h"
anatofuz
parents:
diff changeset
63 #include "llvm/Support/MemoryBuffer.h"
anatofuz
parents:
diff changeset
64 #include "llvm/Support/raw_ostream.h"
anatofuz
parents:
diff changeset
65 #include <algorithm>
anatofuz
parents:
diff changeset
66 #include <cassert>
anatofuz
parents:
diff changeset
67 #include <memory>
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
68 #include <optional>
150
anatofuz
parents:
diff changeset
69 #include <string>
anatofuz
parents:
diff changeset
70 #include <utility>
anatofuz
parents:
diff changeset
71 #include <vector>
anatofuz
parents:
diff changeset
72
anatofuz
parents:
diff changeset
73 using namespace clang;
anatofuz
parents:
diff changeset
74
anatofuz
parents:
diff changeset
75 LLVM_INSTANTIATE_REGISTRY(PragmaHandlerRegistry)
anatofuz
parents:
diff changeset
76
anatofuz
parents:
diff changeset
77 ExternalPreprocessorSource::~ExternalPreprocessorSource() = default;
anatofuz
parents:
diff changeset
78
anatofuz
parents:
diff changeset
79 Preprocessor::Preprocessor(std::shared_ptr<PreprocessorOptions> PPOpts,
anatofuz
parents:
diff changeset
80 DiagnosticsEngine &diags, LangOptions &opts,
anatofuz
parents:
diff changeset
81 SourceManager &SM, HeaderSearch &Headers,
anatofuz
parents:
diff changeset
82 ModuleLoader &TheModuleLoader,
anatofuz
parents:
diff changeset
83 IdentifierInfoLookup *IILookup, bool OwnsHeaders,
anatofuz
parents:
diff changeset
84 TranslationUnitKind TUKind)
anatofuz
parents:
diff changeset
85 : PPOpts(std::move(PPOpts)), Diags(&diags), LangOpts(opts),
anatofuz
parents:
diff changeset
86 FileMgr(Headers.getFileMgr()), SourceMgr(SM),
anatofuz
parents:
diff changeset
87 ScratchBuf(new ScratchBuffer(SourceMgr)), HeaderInfo(Headers),
anatofuz
parents:
diff changeset
88 TheModuleLoader(TheModuleLoader), ExternalSource(nullptr),
anatofuz
parents:
diff changeset
89 // As the language options may have not been loaded yet (when
anatofuz
parents:
diff changeset
90 // deserializing an ASTUnit), adding keywords to the identifier table is
anatofuz
parents:
diff changeset
91 // deferred to Preprocessor::Initialize().
anatofuz
parents:
diff changeset
92 Identifiers(IILookup), PragmaHandlers(new PragmaNamespace(StringRef())),
anatofuz
parents:
diff changeset
93 TUKind(TUKind), SkipMainFilePreamble(0, true),
anatofuz
parents:
diff changeset
94 CurSubmoduleState(&NullSubmoduleState) {
anatofuz
parents:
diff changeset
95 OwnsHeaderSearch = OwnsHeaders;
anatofuz
parents:
diff changeset
96
anatofuz
parents:
diff changeset
97 // Default to discarding comments.
anatofuz
parents:
diff changeset
98 KeepComments = false;
anatofuz
parents:
diff changeset
99 KeepMacroComments = false;
anatofuz
parents:
diff changeset
100 SuppressIncludeNotFoundError = false;
anatofuz
parents:
diff changeset
101
anatofuz
parents:
diff changeset
102 // Macro expansion is enabled.
anatofuz
parents:
diff changeset
103 DisableMacroExpansion = false;
anatofuz
parents:
diff changeset
104 MacroExpansionInDirectivesOverride = false;
anatofuz
parents:
diff changeset
105 InMacroArgs = false;
anatofuz
parents:
diff changeset
106 ArgMacro = nullptr;
anatofuz
parents:
diff changeset
107 InMacroArgPreExpansion = false;
anatofuz
parents:
diff changeset
108 NumCachedTokenLexers = 0;
anatofuz
parents:
diff changeset
109 PragmasEnabled = true;
anatofuz
parents:
diff changeset
110 ParsingIfOrElifDirective = false;
anatofuz
parents:
diff changeset
111 PreprocessedOutput = false;
anatofuz
parents:
diff changeset
112
anatofuz
parents:
diff changeset
113 // We haven't read anything from the external source.
anatofuz
parents:
diff changeset
114 ReadMacrosFromExternalSource = false;
anatofuz
parents:
diff changeset
115
anatofuz
parents:
diff changeset
116 BuiltinInfo = std::make_unique<Builtin::Context>();
anatofuz
parents:
diff changeset
117
anatofuz
parents:
diff changeset
118 // "Poison" __VA_ARGS__, __VA_OPT__ which can only appear in the expansion of
anatofuz
parents:
diff changeset
119 // a macro. They get unpoisoned where it is allowed.
anatofuz
parents:
diff changeset
120 (Ident__VA_ARGS__ = getIdentifierInfo("__VA_ARGS__"))->setIsPoisoned();
anatofuz
parents:
diff changeset
121 SetPoisonReason(Ident__VA_ARGS__,diag::ext_pp_bad_vaargs_use);
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
122 (Ident__VA_OPT__ = getIdentifierInfo("__VA_OPT__"))->setIsPoisoned();
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
123 SetPoisonReason(Ident__VA_OPT__,diag::ext_pp_bad_vaopt_use);
150
anatofuz
parents:
diff changeset
124
anatofuz
parents:
diff changeset
125 // Initialize the pragma handlers.
anatofuz
parents:
diff changeset
126 RegisterBuiltinPragmas();
anatofuz
parents:
diff changeset
127
anatofuz
parents:
diff changeset
128 // Initialize builtin macros like __LINE__ and friends.
anatofuz
parents:
diff changeset
129 RegisterBuiltinMacros();
anatofuz
parents:
diff changeset
130
anatofuz
parents:
diff changeset
131 if(LangOpts.Borland) {
anatofuz
parents:
diff changeset
132 Ident__exception_info = getIdentifierInfo("_exception_info");
anatofuz
parents:
diff changeset
133 Ident___exception_info = getIdentifierInfo("__exception_info");
anatofuz
parents:
diff changeset
134 Ident_GetExceptionInfo = getIdentifierInfo("GetExceptionInformation");
anatofuz
parents:
diff changeset
135 Ident__exception_code = getIdentifierInfo("_exception_code");
anatofuz
parents:
diff changeset
136 Ident___exception_code = getIdentifierInfo("__exception_code");
anatofuz
parents:
diff changeset
137 Ident_GetExceptionCode = getIdentifierInfo("GetExceptionCode");
anatofuz
parents:
diff changeset
138 Ident__abnormal_termination = getIdentifierInfo("_abnormal_termination");
anatofuz
parents:
diff changeset
139 Ident___abnormal_termination = getIdentifierInfo("__abnormal_termination");
anatofuz
parents:
diff changeset
140 Ident_AbnormalTermination = getIdentifierInfo("AbnormalTermination");
anatofuz
parents:
diff changeset
141 } else {
anatofuz
parents:
diff changeset
142 Ident__exception_info = Ident__exception_code = nullptr;
anatofuz
parents:
diff changeset
143 Ident__abnormal_termination = Ident___exception_info = nullptr;
anatofuz
parents:
diff changeset
144 Ident___exception_code = Ident___abnormal_termination = nullptr;
anatofuz
parents:
diff changeset
145 Ident_GetExceptionInfo = Ident_GetExceptionCode = nullptr;
anatofuz
parents:
diff changeset
146 Ident_AbnormalTermination = nullptr;
anatofuz
parents:
diff changeset
147 }
anatofuz
parents:
diff changeset
148
anatofuz
parents:
diff changeset
149 // If using a PCH where a #pragma hdrstop is expected, start skipping tokens.
anatofuz
parents:
diff changeset
150 if (usingPCHWithPragmaHdrStop())
anatofuz
parents:
diff changeset
151 SkippingUntilPragmaHdrStop = true;
anatofuz
parents:
diff changeset
152
anatofuz
parents:
diff changeset
153 // If using a PCH with a through header, start skipping tokens.
anatofuz
parents:
diff changeset
154 if (!this->PPOpts->PCHThroughHeader.empty() &&
anatofuz
parents:
diff changeset
155 !this->PPOpts->ImplicitPCHInclude.empty())
anatofuz
parents:
diff changeset
156 SkippingUntilPCHThroughHeader = true;
anatofuz
parents:
diff changeset
157
240
matac
parents: 239
diff changeset
158 #ifndef noCbC
matac
parents: 239
diff changeset
159 SavedDepth = 0;
matac
parents: 239
diff changeset
160 SavedTokenFlag = false;
matac
parents: 239
diff changeset
161 #endif
matac
parents: 239
diff changeset
162
150
anatofuz
parents:
diff changeset
163 if (this->PPOpts->GeneratePreamble)
anatofuz
parents:
diff changeset
164 PreambleConditionalStack.startRecording();
anatofuz
parents:
diff changeset
165
anatofuz
parents:
diff changeset
166 MaxTokens = LangOpts.MaxTokens;
anatofuz
parents:
diff changeset
167 }
anatofuz
parents:
diff changeset
168
anatofuz
parents:
diff changeset
169 Preprocessor::~Preprocessor() {
anatofuz
parents:
diff changeset
170 assert(BacktrackPositions.empty() && "EnableBacktrack/Backtrack imbalance!");
anatofuz
parents:
diff changeset
171
anatofuz
parents:
diff changeset
172 IncludeMacroStack.clear();
anatofuz
parents:
diff changeset
173
anatofuz
parents:
diff changeset
174 // Free any cached macro expanders.
anatofuz
parents:
diff changeset
175 // This populates MacroArgCache, so all TokenLexers need to be destroyed
anatofuz
parents:
diff changeset
176 // before the code below that frees up the MacroArgCache list.
anatofuz
parents:
diff changeset
177 std::fill(TokenLexerCache, TokenLexerCache + NumCachedTokenLexers, nullptr);
anatofuz
parents:
diff changeset
178 CurTokenLexer.reset();
anatofuz
parents:
diff changeset
179
anatofuz
parents:
diff changeset
180 // Free any cached MacroArgs.
anatofuz
parents:
diff changeset
181 for (MacroArgs *ArgList = MacroArgCache; ArgList;)
anatofuz
parents:
diff changeset
182 ArgList = ArgList->deallocate();
anatofuz
parents:
diff changeset
183
anatofuz
parents:
diff changeset
184 // Delete the header search info, if we own it.
anatofuz
parents:
diff changeset
185 if (OwnsHeaderSearch)
anatofuz
parents:
diff changeset
186 delete &HeaderInfo;
anatofuz
parents:
diff changeset
187 }
anatofuz
parents:
diff changeset
188
anatofuz
parents:
diff changeset
189 void Preprocessor::Initialize(const TargetInfo &Target,
anatofuz
parents:
diff changeset
190 const TargetInfo *AuxTarget) {
anatofuz
parents:
diff changeset
191 assert((!this->Target || this->Target == &Target) &&
anatofuz
parents:
diff changeset
192 "Invalid override of target information");
anatofuz
parents:
diff changeset
193 this->Target = &Target;
anatofuz
parents:
diff changeset
194
anatofuz
parents:
diff changeset
195 assert((!this->AuxTarget || this->AuxTarget == AuxTarget) &&
anatofuz
parents:
diff changeset
196 "Invalid override of aux target information.");
anatofuz
parents:
diff changeset
197 this->AuxTarget = AuxTarget;
anatofuz
parents:
diff changeset
198
anatofuz
parents:
diff changeset
199 // Initialize information about built-ins.
anatofuz
parents:
diff changeset
200 BuiltinInfo->InitializeTarget(Target, AuxTarget);
anatofuz
parents:
diff changeset
201 HeaderInfo.setTarget(Target);
anatofuz
parents:
diff changeset
202
anatofuz
parents:
diff changeset
203 // Populate the identifier table with info about keywords for the current language.
anatofuz
parents:
diff changeset
204 Identifiers.AddKeywords(LangOpts);
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
205
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
206 // Initialize the __FTL_EVAL_METHOD__ macro to the TargetInfo.
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
207 setTUFPEvalMethod(getTargetInfo().getFPEvalMethod());
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
208
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
209 if (getLangOpts().getFPEvalMethod() == LangOptions::FEM_UnsetOnCommandLine)
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
210 // Use setting from TargetInfo.
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
211 setCurrentFPEvalMethod(SourceLocation(), Target.getFPEvalMethod());
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
212 else
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
213 // Set initial value of __FLT_EVAL_METHOD__ from the command line.
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
214 setCurrentFPEvalMethod(SourceLocation(), getLangOpts().getFPEvalMethod());
150
anatofuz
parents:
diff changeset
215 }
anatofuz
parents:
diff changeset
216
anatofuz
parents:
diff changeset
217 void Preprocessor::InitializeForModelFile() {
anatofuz
parents:
diff changeset
218 NumEnteredSourceFiles = 0;
anatofuz
parents:
diff changeset
219
anatofuz
parents:
diff changeset
220 // Reset pragmas
anatofuz
parents:
diff changeset
221 PragmaHandlersBackup = std::move(PragmaHandlers);
anatofuz
parents:
diff changeset
222 PragmaHandlers = std::make_unique<PragmaNamespace>(StringRef());
anatofuz
parents:
diff changeset
223 RegisterBuiltinPragmas();
anatofuz
parents:
diff changeset
224
anatofuz
parents:
diff changeset
225 // Reset PredefinesFileID
anatofuz
parents:
diff changeset
226 PredefinesFileID = FileID();
anatofuz
parents:
diff changeset
227 }
anatofuz
parents:
diff changeset
228
anatofuz
parents:
diff changeset
229 void Preprocessor::FinalizeForModelFile() {
anatofuz
parents:
diff changeset
230 NumEnteredSourceFiles = 1;
anatofuz
parents:
diff changeset
231
anatofuz
parents:
diff changeset
232 PragmaHandlers = std::move(PragmaHandlersBackup);
anatofuz
parents:
diff changeset
233 }
anatofuz
parents:
diff changeset
234
anatofuz
parents:
diff changeset
235 void Preprocessor::DumpToken(const Token &Tok, bool DumpFlags) const {
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
236 llvm::errs() << tok::getTokenName(Tok.getKind());
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
237
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
238 if (!Tok.isAnnotation())
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
239 llvm::errs() << " '" << getSpelling(Tok) << "'";
150
anatofuz
parents:
diff changeset
240
anatofuz
parents:
diff changeset
241 if (!DumpFlags) return;
anatofuz
parents:
diff changeset
242
anatofuz
parents:
diff changeset
243 llvm::errs() << "\t";
anatofuz
parents:
diff changeset
244 if (Tok.isAtStartOfLine())
anatofuz
parents:
diff changeset
245 llvm::errs() << " [StartOfLine]";
anatofuz
parents:
diff changeset
246 if (Tok.hasLeadingSpace())
anatofuz
parents:
diff changeset
247 llvm::errs() << " [LeadingSpace]";
anatofuz
parents:
diff changeset
248 if (Tok.isExpandDisabled())
anatofuz
parents:
diff changeset
249 llvm::errs() << " [ExpandDisabled]";
anatofuz
parents:
diff changeset
250 if (Tok.needsCleaning()) {
anatofuz
parents:
diff changeset
251 const char *Start = SourceMgr.getCharacterData(Tok.getLocation());
anatofuz
parents:
diff changeset
252 llvm::errs() << " [UnClean='" << StringRef(Start, Tok.getLength())
anatofuz
parents:
diff changeset
253 << "']";
anatofuz
parents:
diff changeset
254 }
anatofuz
parents:
diff changeset
255
anatofuz
parents:
diff changeset
256 llvm::errs() << "\tLoc=<";
anatofuz
parents:
diff changeset
257 DumpLocation(Tok.getLocation());
anatofuz
parents:
diff changeset
258 llvm::errs() << ">";
anatofuz
parents:
diff changeset
259 }
anatofuz
parents:
diff changeset
260
anatofuz
parents:
diff changeset
261 void Preprocessor::DumpLocation(SourceLocation Loc) const {
anatofuz
parents:
diff changeset
262 Loc.print(llvm::errs(), SourceMgr);
anatofuz
parents:
diff changeset
263 }
anatofuz
parents:
diff changeset
264
anatofuz
parents:
diff changeset
265 void Preprocessor::DumpMacro(const MacroInfo &MI) const {
anatofuz
parents:
diff changeset
266 llvm::errs() << "MACRO: ";
anatofuz
parents:
diff changeset
267 for (unsigned i = 0, e = MI.getNumTokens(); i != e; ++i) {
anatofuz
parents:
diff changeset
268 DumpToken(MI.getReplacementToken(i));
anatofuz
parents:
diff changeset
269 llvm::errs() << " ";
anatofuz
parents:
diff changeset
270 }
anatofuz
parents:
diff changeset
271 llvm::errs() << "\n";
anatofuz
parents:
diff changeset
272 }
anatofuz
parents:
diff changeset
273
anatofuz
parents:
diff changeset
274 void Preprocessor::PrintStats() {
anatofuz
parents:
diff changeset
275 llvm::errs() << "\n*** Preprocessor Stats:\n";
anatofuz
parents:
diff changeset
276 llvm::errs() << NumDirectives << " directives found:\n";
anatofuz
parents:
diff changeset
277 llvm::errs() << " " << NumDefined << " #define.\n";
anatofuz
parents:
diff changeset
278 llvm::errs() << " " << NumUndefined << " #undef.\n";
anatofuz
parents:
diff changeset
279 llvm::errs() << " #include/#include_next/#import:\n";
anatofuz
parents:
diff changeset
280 llvm::errs() << " " << NumEnteredSourceFiles << " source files entered.\n";
anatofuz
parents:
diff changeset
281 llvm::errs() << " " << MaxIncludeStackDepth << " max include stack depth\n";
anatofuz
parents:
diff changeset
282 llvm::errs() << " " << NumIf << " #if/#ifndef/#ifdef.\n";
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
283 llvm::errs() << " " << NumElse << " #else/#elif/#elifdef/#elifndef.\n";
150
anatofuz
parents:
diff changeset
284 llvm::errs() << " " << NumEndif << " #endif.\n";
anatofuz
parents:
diff changeset
285 llvm::errs() << " " << NumPragma << " #pragma.\n";
anatofuz
parents:
diff changeset
286 llvm::errs() << NumSkipped << " #if/#ifndef#ifdef regions skipped\n";
anatofuz
parents:
diff changeset
287
anatofuz
parents:
diff changeset
288 llvm::errs() << NumMacroExpanded << "/" << NumFnMacroExpanded << "/"
anatofuz
parents:
diff changeset
289 << NumBuiltinMacroExpanded << " obj/fn/builtin macros expanded, "
anatofuz
parents:
diff changeset
290 << NumFastMacroExpanded << " on the fast path.\n";
anatofuz
parents:
diff changeset
291 llvm::errs() << (NumFastTokenPaste+NumTokenPaste)
anatofuz
parents:
diff changeset
292 << " token paste (##) operations performed, "
anatofuz
parents:
diff changeset
293 << NumFastTokenPaste << " on the fast path.\n";
anatofuz
parents:
diff changeset
294
anatofuz
parents:
diff changeset
295 llvm::errs() << "\nPreprocessor Memory: " << getTotalMemory() << "B total";
anatofuz
parents:
diff changeset
296
anatofuz
parents:
diff changeset
297 llvm::errs() << "\n BumpPtr: " << BP.getTotalMemory();
anatofuz
parents:
diff changeset
298 llvm::errs() << "\n Macro Expanded Tokens: "
anatofuz
parents:
diff changeset
299 << llvm::capacity_in_bytes(MacroExpandedTokens);
anatofuz
parents:
diff changeset
300 llvm::errs() << "\n Predefines Buffer: " << Predefines.capacity();
anatofuz
parents:
diff changeset
301 // FIXME: List information for all submodules.
anatofuz
parents:
diff changeset
302 llvm::errs() << "\n Macros: "
anatofuz
parents:
diff changeset
303 << llvm::capacity_in_bytes(CurSubmoduleState->Macros);
anatofuz
parents:
diff changeset
304 llvm::errs() << "\n #pragma push_macro Info: "
anatofuz
parents:
diff changeset
305 << llvm::capacity_in_bytes(PragmaPushMacroInfo);
anatofuz
parents:
diff changeset
306 llvm::errs() << "\n Poison Reasons: "
anatofuz
parents:
diff changeset
307 << llvm::capacity_in_bytes(PoisonReasons);
anatofuz
parents:
diff changeset
308 llvm::errs() << "\n Comment Handlers: "
anatofuz
parents:
diff changeset
309 << llvm::capacity_in_bytes(CommentHandlers) << "\n";
anatofuz
parents:
diff changeset
310 }
anatofuz
parents:
diff changeset
311
anatofuz
parents:
diff changeset
312 Preprocessor::macro_iterator
anatofuz
parents:
diff changeset
313 Preprocessor::macro_begin(bool IncludeExternalMacros) const {
anatofuz
parents:
diff changeset
314 if (IncludeExternalMacros && ExternalSource &&
anatofuz
parents:
diff changeset
315 !ReadMacrosFromExternalSource) {
anatofuz
parents:
diff changeset
316 ReadMacrosFromExternalSource = true;
anatofuz
parents:
diff changeset
317 ExternalSource->ReadDefinedMacros();
anatofuz
parents:
diff changeset
318 }
anatofuz
parents:
diff changeset
319
anatofuz
parents:
diff changeset
320 // Make sure we cover all macros in visible modules.
anatofuz
parents:
diff changeset
321 for (const ModuleMacro &Macro : ModuleMacros)
anatofuz
parents:
diff changeset
322 CurSubmoduleState->Macros.insert(std::make_pair(Macro.II, MacroState()));
anatofuz
parents:
diff changeset
323
anatofuz
parents:
diff changeset
324 return CurSubmoduleState->Macros.begin();
anatofuz
parents:
diff changeset
325 }
anatofuz
parents:
diff changeset
326
anatofuz
parents:
diff changeset
327 size_t Preprocessor::getTotalMemory() const {
anatofuz
parents:
diff changeset
328 return BP.getTotalMemory()
anatofuz
parents:
diff changeset
329 + llvm::capacity_in_bytes(MacroExpandedTokens)
anatofuz
parents:
diff changeset
330 + Predefines.capacity() /* Predefines buffer. */
anatofuz
parents:
diff changeset
331 // FIXME: Include sizes from all submodules, and include MacroInfo sizes,
anatofuz
parents:
diff changeset
332 // and ModuleMacros.
anatofuz
parents:
diff changeset
333 + llvm::capacity_in_bytes(CurSubmoduleState->Macros)
anatofuz
parents:
diff changeset
334 + llvm::capacity_in_bytes(PragmaPushMacroInfo)
anatofuz
parents:
diff changeset
335 + llvm::capacity_in_bytes(PoisonReasons)
anatofuz
parents:
diff changeset
336 + llvm::capacity_in_bytes(CommentHandlers);
anatofuz
parents:
diff changeset
337 }
anatofuz
parents:
diff changeset
338
anatofuz
parents:
diff changeset
339 Preprocessor::macro_iterator
anatofuz
parents:
diff changeset
340 Preprocessor::macro_end(bool IncludeExternalMacros) const {
anatofuz
parents:
diff changeset
341 if (IncludeExternalMacros && ExternalSource &&
anatofuz
parents:
diff changeset
342 !ReadMacrosFromExternalSource) {
anatofuz
parents:
diff changeset
343 ReadMacrosFromExternalSource = true;
anatofuz
parents:
diff changeset
344 ExternalSource->ReadDefinedMacros();
anatofuz
parents:
diff changeset
345 }
anatofuz
parents:
diff changeset
346
anatofuz
parents:
diff changeset
347 return CurSubmoduleState->Macros.end();
anatofuz
parents:
diff changeset
348 }
anatofuz
parents:
diff changeset
349
anatofuz
parents:
diff changeset
350 /// Compares macro tokens with a specified token value sequence.
anatofuz
parents:
diff changeset
351 static bool MacroDefinitionEquals(const MacroInfo *MI,
anatofuz
parents:
diff changeset
352 ArrayRef<TokenValue> Tokens) {
anatofuz
parents:
diff changeset
353 return Tokens.size() == MI->getNumTokens() &&
anatofuz
parents:
diff changeset
354 std::equal(Tokens.begin(), Tokens.end(), MI->tokens_begin());
anatofuz
parents:
diff changeset
355 }
anatofuz
parents:
diff changeset
356
anatofuz
parents:
diff changeset
357 StringRef Preprocessor::getLastMacroWithSpelling(
anatofuz
parents:
diff changeset
358 SourceLocation Loc,
anatofuz
parents:
diff changeset
359 ArrayRef<TokenValue> Tokens) const {
anatofuz
parents:
diff changeset
360 SourceLocation BestLocation;
anatofuz
parents:
diff changeset
361 StringRef BestSpelling;
anatofuz
parents:
diff changeset
362 for (Preprocessor::macro_iterator I = macro_begin(), E = macro_end();
anatofuz
parents:
diff changeset
363 I != E; ++I) {
anatofuz
parents:
diff changeset
364 const MacroDirective::DefInfo
anatofuz
parents:
diff changeset
365 Def = I->second.findDirectiveAtLoc(Loc, SourceMgr);
anatofuz
parents:
diff changeset
366 if (!Def || !Def.getMacroInfo())
anatofuz
parents:
diff changeset
367 continue;
anatofuz
parents:
diff changeset
368 if (!Def.getMacroInfo()->isObjectLike())
anatofuz
parents:
diff changeset
369 continue;
anatofuz
parents:
diff changeset
370 if (!MacroDefinitionEquals(Def.getMacroInfo(), Tokens))
anatofuz
parents:
diff changeset
371 continue;
anatofuz
parents:
diff changeset
372 SourceLocation Location = Def.getLocation();
anatofuz
parents:
diff changeset
373 // Choose the macro defined latest.
anatofuz
parents:
diff changeset
374 if (BestLocation.isInvalid() ||
anatofuz
parents:
diff changeset
375 (Location.isValid() &&
anatofuz
parents:
diff changeset
376 SourceMgr.isBeforeInTranslationUnit(BestLocation, Location))) {
anatofuz
parents:
diff changeset
377 BestLocation = Location;
anatofuz
parents:
diff changeset
378 BestSpelling = I->first->getName();
anatofuz
parents:
diff changeset
379 }
anatofuz
parents:
diff changeset
380 }
anatofuz
parents:
diff changeset
381 return BestSpelling;
anatofuz
parents:
diff changeset
382 }
anatofuz
parents:
diff changeset
383
anatofuz
parents:
diff changeset
384 void Preprocessor::recomputeCurLexerKind() {
anatofuz
parents:
diff changeset
385 if (CurLexer)
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
386 CurLexerKind = CurLexer->isDependencyDirectivesLexer()
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
387 ? CLK_DependencyDirectivesLexer
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
388 : CLK_Lexer;
150
anatofuz
parents:
diff changeset
389 else if (CurTokenLexer)
anatofuz
parents:
diff changeset
390 CurLexerKind = CLK_TokenLexer;
anatofuz
parents:
diff changeset
391 else
anatofuz
parents:
diff changeset
392 CurLexerKind = CLK_CachingLexer;
anatofuz
parents:
diff changeset
393 }
anatofuz
parents:
diff changeset
394
anatofuz
parents:
diff changeset
395 bool Preprocessor::SetCodeCompletionPoint(const FileEntry *File,
anatofuz
parents:
diff changeset
396 unsigned CompleteLine,
anatofuz
parents:
diff changeset
397 unsigned CompleteColumn) {
anatofuz
parents:
diff changeset
398 assert(File);
anatofuz
parents:
diff changeset
399 assert(CompleteLine && CompleteColumn && "Starts from 1:1");
anatofuz
parents:
diff changeset
400 assert(!CodeCompletionFile && "Already set");
anatofuz
parents:
diff changeset
401
anatofuz
parents:
diff changeset
402 // Load the actual file's contents.
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
403 std::optional<llvm::MemoryBufferRef> Buffer =
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
404 SourceMgr.getMemoryBufferForFileOrNone(File);
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
405 if (!Buffer)
150
anatofuz
parents:
diff changeset
406 return true;
anatofuz
parents:
diff changeset
407
anatofuz
parents:
diff changeset
408 // Find the byte position of the truncation point.
anatofuz
parents:
diff changeset
409 const char *Position = Buffer->getBufferStart();
anatofuz
parents:
diff changeset
410 for (unsigned Line = 1; Line < CompleteLine; ++Line) {
anatofuz
parents:
diff changeset
411 for (; *Position; ++Position) {
anatofuz
parents:
diff changeset
412 if (*Position != '\r' && *Position != '\n')
anatofuz
parents:
diff changeset
413 continue;
anatofuz
parents:
diff changeset
414
anatofuz
parents:
diff changeset
415 // Eat \r\n or \n\r as a single line.
anatofuz
parents:
diff changeset
416 if ((Position[1] == '\r' || Position[1] == '\n') &&
anatofuz
parents:
diff changeset
417 Position[0] != Position[1])
anatofuz
parents:
diff changeset
418 ++Position;
anatofuz
parents:
diff changeset
419 ++Position;
anatofuz
parents:
diff changeset
420 break;
anatofuz
parents:
diff changeset
421 }
anatofuz
parents:
diff changeset
422 }
anatofuz
parents:
diff changeset
423
anatofuz
parents:
diff changeset
424 Position += CompleteColumn - 1;
anatofuz
parents:
diff changeset
425
anatofuz
parents:
diff changeset
426 // If pointing inside the preamble, adjust the position at the beginning of
anatofuz
parents:
diff changeset
427 // the file after the preamble.
anatofuz
parents:
diff changeset
428 if (SkipMainFilePreamble.first &&
anatofuz
parents:
diff changeset
429 SourceMgr.getFileEntryForID(SourceMgr.getMainFileID()) == File) {
anatofuz
parents:
diff changeset
430 if (Position - Buffer->getBufferStart() < SkipMainFilePreamble.first)
anatofuz
parents:
diff changeset
431 Position = Buffer->getBufferStart() + SkipMainFilePreamble.first;
anatofuz
parents:
diff changeset
432 }
anatofuz
parents:
diff changeset
433
anatofuz
parents:
diff changeset
434 if (Position > Buffer->getBufferEnd())
anatofuz
parents:
diff changeset
435 Position = Buffer->getBufferEnd();
anatofuz
parents:
diff changeset
436
anatofuz
parents:
diff changeset
437 CodeCompletionFile = File;
anatofuz
parents:
diff changeset
438 CodeCompletionOffset = Position - Buffer->getBufferStart();
anatofuz
parents:
diff changeset
439
anatofuz
parents:
diff changeset
440 auto NewBuffer = llvm::WritableMemoryBuffer::getNewUninitMemBuffer(
anatofuz
parents:
diff changeset
441 Buffer->getBufferSize() + 1, Buffer->getBufferIdentifier());
anatofuz
parents:
diff changeset
442 char *NewBuf = NewBuffer->getBufferStart();
anatofuz
parents:
diff changeset
443 char *NewPos = std::copy(Buffer->getBufferStart(), Position, NewBuf);
anatofuz
parents:
diff changeset
444 *NewPos = '\0';
anatofuz
parents:
diff changeset
445 std::copy(Position, Buffer->getBufferEnd(), NewPos+1);
anatofuz
parents:
diff changeset
446 SourceMgr.overrideFileContents(File, std::move(NewBuffer));
anatofuz
parents:
diff changeset
447
anatofuz
parents:
diff changeset
448 return false;
anatofuz
parents:
diff changeset
449 }
anatofuz
parents:
diff changeset
450
anatofuz
parents:
diff changeset
451 void Preprocessor::CodeCompleteIncludedFile(llvm::StringRef Dir,
anatofuz
parents:
diff changeset
452 bool IsAngled) {
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
453 setCodeCompletionReached();
150
anatofuz
parents:
diff changeset
454 if (CodeComplete)
anatofuz
parents:
diff changeset
455 CodeComplete->CodeCompleteIncludedFile(Dir, IsAngled);
anatofuz
parents:
diff changeset
456 }
anatofuz
parents:
diff changeset
457
anatofuz
parents:
diff changeset
458 void Preprocessor::CodeCompleteNaturalLanguage() {
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
459 setCodeCompletionReached();
150
anatofuz
parents:
diff changeset
460 if (CodeComplete)
anatofuz
parents:
diff changeset
461 CodeComplete->CodeCompleteNaturalLanguage();
anatofuz
parents:
diff changeset
462 }
anatofuz
parents:
diff changeset
463
anatofuz
parents:
diff changeset
464 /// getSpelling - This method is used to get the spelling of a token into a
anatofuz
parents:
diff changeset
465 /// SmallVector. Note that the returned StringRef may not point to the
anatofuz
parents:
diff changeset
466 /// supplied buffer if a copy can be avoided.
anatofuz
parents:
diff changeset
467 StringRef Preprocessor::getSpelling(const Token &Tok,
anatofuz
parents:
diff changeset
468 SmallVectorImpl<char> &Buffer,
anatofuz
parents:
diff changeset
469 bool *Invalid) const {
anatofuz
parents:
diff changeset
470 // NOTE: this has to be checked *before* testing for an IdentifierInfo.
anatofuz
parents:
diff changeset
471 if (Tok.isNot(tok::raw_identifier) && !Tok.hasUCN()) {
anatofuz
parents:
diff changeset
472 // Try the fast path.
anatofuz
parents:
diff changeset
473 if (const IdentifierInfo *II = Tok.getIdentifierInfo())
anatofuz
parents:
diff changeset
474 return II->getName();
anatofuz
parents:
diff changeset
475 }
anatofuz
parents:
diff changeset
476
anatofuz
parents:
diff changeset
477 // Resize the buffer if we need to copy into it.
anatofuz
parents:
diff changeset
478 if (Tok.needsCleaning())
anatofuz
parents:
diff changeset
479 Buffer.resize(Tok.getLength());
anatofuz
parents:
diff changeset
480
anatofuz
parents:
diff changeset
481 const char *Ptr = Buffer.data();
anatofuz
parents:
diff changeset
482 unsigned Len = getSpelling(Tok, Ptr, Invalid);
anatofuz
parents:
diff changeset
483 return StringRef(Ptr, Len);
anatofuz
parents:
diff changeset
484 }
anatofuz
parents:
diff changeset
485
anatofuz
parents:
diff changeset
486 /// CreateString - Plop the specified string into a scratch buffer and return a
anatofuz
parents:
diff changeset
487 /// location for it. If specified, the source location provides a source
anatofuz
parents:
diff changeset
488 /// location for the token.
anatofuz
parents:
diff changeset
489 void Preprocessor::CreateString(StringRef Str, Token &Tok,
anatofuz
parents:
diff changeset
490 SourceLocation ExpansionLocStart,
anatofuz
parents:
diff changeset
491 SourceLocation ExpansionLocEnd) {
anatofuz
parents:
diff changeset
492 Tok.setLength(Str.size());
anatofuz
parents:
diff changeset
493
anatofuz
parents:
diff changeset
494 const char *DestPtr;
anatofuz
parents:
diff changeset
495 SourceLocation Loc = ScratchBuf->getToken(Str.data(), Str.size(), DestPtr);
anatofuz
parents:
diff changeset
496
anatofuz
parents:
diff changeset
497 if (ExpansionLocStart.isValid())
anatofuz
parents:
diff changeset
498 Loc = SourceMgr.createExpansionLoc(Loc, ExpansionLocStart,
anatofuz
parents:
diff changeset
499 ExpansionLocEnd, Str.size());
anatofuz
parents:
diff changeset
500 Tok.setLocation(Loc);
anatofuz
parents:
diff changeset
501
anatofuz
parents:
diff changeset
502 // If this is a raw identifier or a literal token, set the pointer data.
anatofuz
parents:
diff changeset
503 if (Tok.is(tok::raw_identifier))
anatofuz
parents:
diff changeset
504 Tok.setRawIdentifierData(DestPtr);
anatofuz
parents:
diff changeset
505 else if (Tok.isLiteral())
anatofuz
parents:
diff changeset
506 Tok.setLiteralData(DestPtr);
anatofuz
parents:
diff changeset
507 }
anatofuz
parents:
diff changeset
508
anatofuz
parents:
diff changeset
509 SourceLocation Preprocessor::SplitToken(SourceLocation Loc, unsigned Length) {
anatofuz
parents:
diff changeset
510 auto &SM = getSourceManager();
anatofuz
parents:
diff changeset
511 SourceLocation SpellingLoc = SM.getSpellingLoc(Loc);
anatofuz
parents:
diff changeset
512 std::pair<FileID, unsigned> LocInfo = SM.getDecomposedLoc(SpellingLoc);
anatofuz
parents:
diff changeset
513 bool Invalid = false;
anatofuz
parents:
diff changeset
514 StringRef Buffer = SM.getBufferData(LocInfo.first, &Invalid);
anatofuz
parents:
diff changeset
515 if (Invalid)
anatofuz
parents:
diff changeset
516 return SourceLocation();
anatofuz
parents:
diff changeset
517
anatofuz
parents:
diff changeset
518 // FIXME: We could consider re-using spelling for tokens we see repeatedly.
anatofuz
parents:
diff changeset
519 const char *DestPtr;
anatofuz
parents:
diff changeset
520 SourceLocation Spelling =
anatofuz
parents:
diff changeset
521 ScratchBuf->getToken(Buffer.data() + LocInfo.second, Length, DestPtr);
anatofuz
parents:
diff changeset
522 return SM.createTokenSplitLoc(Spelling, Loc, Loc.getLocWithOffset(Length));
anatofuz
parents:
diff changeset
523 }
anatofuz
parents:
diff changeset
524
anatofuz
parents:
diff changeset
525 Module *Preprocessor::getCurrentModule() {
anatofuz
parents:
diff changeset
526 if (!getLangOpts().isCompilingModule())
anatofuz
parents:
diff changeset
527 return nullptr;
anatofuz
parents:
diff changeset
528
anatofuz
parents:
diff changeset
529 return getHeaderSearchInfo().lookupModule(getLangOpts().CurrentModule);
anatofuz
parents:
diff changeset
530 }
anatofuz
parents:
diff changeset
531
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
532 Module *Preprocessor::getCurrentModuleImplementation() {
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
533 if (!getLangOpts().isCompilingModuleImplementation())
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
534 return nullptr;
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
535
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
536 return getHeaderSearchInfo().lookupModule(getLangOpts().ModuleName);
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
537 }
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
538
150
anatofuz
parents:
diff changeset
539 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
540 // Preprocessor Initialization Methods
anatofuz
parents:
diff changeset
541 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
542
anatofuz
parents:
diff changeset
543 /// EnterMainSourceFile - Enter the specified FileID as the main source file,
anatofuz
parents:
diff changeset
544 /// which implicitly adds the builtin defines etc.
anatofuz
parents:
diff changeset
545 void Preprocessor::EnterMainSourceFile() {
anatofuz
parents:
diff changeset
546 // We do not allow the preprocessor to reenter the main file. Doing so will
anatofuz
parents:
diff changeset
547 // cause FileID's to accumulate information from both runs (e.g. #line
anatofuz
parents:
diff changeset
548 // information) and predefined macros aren't guaranteed to be set properly.
anatofuz
parents:
diff changeset
549 assert(NumEnteredSourceFiles == 0 && "Cannot reenter the main file!");
anatofuz
parents:
diff changeset
550 FileID MainFileID = SourceMgr.getMainFileID();
anatofuz
parents:
diff changeset
551
anatofuz
parents:
diff changeset
552 // If MainFileID is loaded it means we loaded an AST file, no need to enter
anatofuz
parents:
diff changeset
553 // a main file.
anatofuz
parents:
diff changeset
554 if (!SourceMgr.isLoadedFileID(MainFileID)) {
anatofuz
parents:
diff changeset
555 // Enter the main file source buffer.
anatofuz
parents:
diff changeset
556 EnterSourceFile(MainFileID, nullptr, SourceLocation());
anatofuz
parents:
diff changeset
557
anatofuz
parents:
diff changeset
558 // If we've been asked to skip bytes in the main file (e.g., as part of a
anatofuz
parents:
diff changeset
559 // precompiled preamble), do so now.
anatofuz
parents:
diff changeset
560 if (SkipMainFilePreamble.first > 0)
anatofuz
parents:
diff changeset
561 CurLexer->SetByteOffset(SkipMainFilePreamble.first,
anatofuz
parents:
diff changeset
562 SkipMainFilePreamble.second);
anatofuz
parents:
diff changeset
563
anatofuz
parents:
diff changeset
564 // Tell the header info that the main file was entered. If the file is later
anatofuz
parents:
diff changeset
565 // #imported, it won't be re-entered.
anatofuz
parents:
diff changeset
566 if (const FileEntry *FE = SourceMgr.getFileEntryForID(MainFileID))
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
567 markIncluded(FE);
150
anatofuz
parents:
diff changeset
568 }
anatofuz
parents:
diff changeset
569
anatofuz
parents:
diff changeset
570 // Preprocess Predefines to populate the initial preprocessor state.
anatofuz
parents:
diff changeset
571 std::unique_ptr<llvm::MemoryBuffer> SB =
anatofuz
parents:
diff changeset
572 llvm::MemoryBuffer::getMemBufferCopy(Predefines, "<built-in>");
anatofuz
parents:
diff changeset
573 assert(SB && "Cannot create predefined source buffer");
anatofuz
parents:
diff changeset
574 FileID FID = SourceMgr.createFileID(std::move(SB));
anatofuz
parents:
diff changeset
575 assert(FID.isValid() && "Could not create FileID for predefines?");
anatofuz
parents:
diff changeset
576 setPredefinesFileID(FID);
anatofuz
parents:
diff changeset
577
anatofuz
parents:
diff changeset
578 // Start parsing the predefines.
anatofuz
parents:
diff changeset
579 EnterSourceFile(FID, nullptr, SourceLocation());
anatofuz
parents:
diff changeset
580
anatofuz
parents:
diff changeset
581 if (!PPOpts->PCHThroughHeader.empty()) {
anatofuz
parents:
diff changeset
582 // Lookup and save the FileID for the through header. If it isn't found
anatofuz
parents:
diff changeset
583 // in the search path, it's a fatal error.
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
584 OptionalFileEntryRef File = LookupFile(
150
anatofuz
parents:
diff changeset
585 SourceLocation(), PPOpts->PCHThroughHeader,
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
586 /*isAngled=*/false, /*FromDir=*/nullptr, /*FromFile=*/nullptr,
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
587 /*CurDir=*/nullptr, /*SearchPath=*/nullptr, /*RelativePath=*/nullptr,
150
anatofuz
parents:
diff changeset
588 /*SuggestedModule=*/nullptr, /*IsMapped=*/nullptr,
anatofuz
parents:
diff changeset
589 /*IsFrameworkFound=*/nullptr);
anatofuz
parents:
diff changeset
590 if (!File) {
anatofuz
parents:
diff changeset
591 Diag(SourceLocation(), diag::err_pp_through_header_not_found)
anatofuz
parents:
diff changeset
592 << PPOpts->PCHThroughHeader;
anatofuz
parents:
diff changeset
593 return;
anatofuz
parents:
diff changeset
594 }
anatofuz
parents:
diff changeset
595 setPCHThroughHeaderFileID(
anatofuz
parents:
diff changeset
596 SourceMgr.createFileID(*File, SourceLocation(), SrcMgr::C_User));
anatofuz
parents:
diff changeset
597 }
anatofuz
parents:
diff changeset
598
anatofuz
parents:
diff changeset
599 // Skip tokens from the Predefines and if needed the main file.
anatofuz
parents:
diff changeset
600 if ((usingPCHWithThroughHeader() && SkippingUntilPCHThroughHeader) ||
anatofuz
parents:
diff changeset
601 (usingPCHWithPragmaHdrStop() && SkippingUntilPragmaHdrStop))
anatofuz
parents:
diff changeset
602 SkipTokensWhileUsingPCH();
anatofuz
parents:
diff changeset
603 }
anatofuz
parents:
diff changeset
604
anatofuz
parents:
diff changeset
605 void Preprocessor::setPCHThroughHeaderFileID(FileID FID) {
anatofuz
parents:
diff changeset
606 assert(PCHThroughHeaderFileID.isInvalid() &&
anatofuz
parents:
diff changeset
607 "PCHThroughHeaderFileID already set!");
anatofuz
parents:
diff changeset
608 PCHThroughHeaderFileID = FID;
anatofuz
parents:
diff changeset
609 }
anatofuz
parents:
diff changeset
610
anatofuz
parents:
diff changeset
611 bool Preprocessor::isPCHThroughHeader(const FileEntry *FE) {
anatofuz
parents:
diff changeset
612 assert(PCHThroughHeaderFileID.isValid() &&
anatofuz
parents:
diff changeset
613 "Invalid PCH through header FileID");
anatofuz
parents:
diff changeset
614 return FE == SourceMgr.getFileEntryForID(PCHThroughHeaderFileID);
anatofuz
parents:
diff changeset
615 }
anatofuz
parents:
diff changeset
616
anatofuz
parents:
diff changeset
617 bool Preprocessor::creatingPCHWithThroughHeader() {
anatofuz
parents:
diff changeset
618 return TUKind == TU_Prefix && !PPOpts->PCHThroughHeader.empty() &&
anatofuz
parents:
diff changeset
619 PCHThroughHeaderFileID.isValid();
anatofuz
parents:
diff changeset
620 }
anatofuz
parents:
diff changeset
621
anatofuz
parents:
diff changeset
622 bool Preprocessor::usingPCHWithThroughHeader() {
anatofuz
parents:
diff changeset
623 return TUKind != TU_Prefix && !PPOpts->PCHThroughHeader.empty() &&
anatofuz
parents:
diff changeset
624 PCHThroughHeaderFileID.isValid();
anatofuz
parents:
diff changeset
625 }
anatofuz
parents:
diff changeset
626
anatofuz
parents:
diff changeset
627 bool Preprocessor::creatingPCHWithPragmaHdrStop() {
anatofuz
parents:
diff changeset
628 return TUKind == TU_Prefix && PPOpts->PCHWithHdrStop;
anatofuz
parents:
diff changeset
629 }
anatofuz
parents:
diff changeset
630
anatofuz
parents:
diff changeset
631 bool Preprocessor::usingPCHWithPragmaHdrStop() {
anatofuz
parents:
diff changeset
632 return TUKind != TU_Prefix && PPOpts->PCHWithHdrStop;
anatofuz
parents:
diff changeset
633 }
anatofuz
parents:
diff changeset
634
anatofuz
parents:
diff changeset
635 /// Skip tokens until after the #include of the through header or
anatofuz
parents:
diff changeset
636 /// until after a #pragma hdrstop is seen. Tokens in the predefines file
anatofuz
parents:
diff changeset
637 /// and the main file may be skipped. If the end of the predefines file
anatofuz
parents:
diff changeset
638 /// is reached, skipping continues into the main file. If the end of the
anatofuz
parents:
diff changeset
639 /// main file is reached, it's a fatal error.
anatofuz
parents:
diff changeset
640 void Preprocessor::SkipTokensWhileUsingPCH() {
anatofuz
parents:
diff changeset
641 bool ReachedMainFileEOF = false;
anatofuz
parents:
diff changeset
642 bool UsingPCHThroughHeader = SkippingUntilPCHThroughHeader;
anatofuz
parents:
diff changeset
643 bool UsingPragmaHdrStop = SkippingUntilPragmaHdrStop;
anatofuz
parents:
diff changeset
644 Token Tok;
anatofuz
parents:
diff changeset
645 while (true) {
anatofuz
parents:
diff changeset
646 bool InPredefines =
anatofuz
parents:
diff changeset
647 (CurLexer && CurLexer->getFileID() == getPredefinesFileID());
anatofuz
parents:
diff changeset
648 switch (CurLexerKind) {
anatofuz
parents:
diff changeset
649 case CLK_Lexer:
anatofuz
parents:
diff changeset
650 CurLexer->Lex(Tok);
anatofuz
parents:
diff changeset
651 break;
anatofuz
parents:
diff changeset
652 case CLK_TokenLexer:
anatofuz
parents:
diff changeset
653 CurTokenLexer->Lex(Tok);
anatofuz
parents:
diff changeset
654 break;
anatofuz
parents:
diff changeset
655 case CLK_CachingLexer:
anatofuz
parents:
diff changeset
656 CachingLex(Tok);
anatofuz
parents:
diff changeset
657 break;
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
658 case CLK_DependencyDirectivesLexer:
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
659 CurLexer->LexDependencyDirectiveToken(Tok);
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
660 break;
150
anatofuz
parents:
diff changeset
661 case CLK_LexAfterModuleImport:
anatofuz
parents:
diff changeset
662 LexAfterModuleImport(Tok);
anatofuz
parents:
diff changeset
663 break;
anatofuz
parents:
diff changeset
664 }
anatofuz
parents:
diff changeset
665 if (Tok.is(tok::eof) && !InPredefines) {
anatofuz
parents:
diff changeset
666 ReachedMainFileEOF = true;
anatofuz
parents:
diff changeset
667 break;
anatofuz
parents:
diff changeset
668 }
anatofuz
parents:
diff changeset
669 if (UsingPCHThroughHeader && !SkippingUntilPCHThroughHeader)
anatofuz
parents:
diff changeset
670 break;
anatofuz
parents:
diff changeset
671 if (UsingPragmaHdrStop && !SkippingUntilPragmaHdrStop)
anatofuz
parents:
diff changeset
672 break;
anatofuz
parents:
diff changeset
673 }
anatofuz
parents:
diff changeset
674 if (ReachedMainFileEOF) {
anatofuz
parents:
diff changeset
675 if (UsingPCHThroughHeader)
anatofuz
parents:
diff changeset
676 Diag(SourceLocation(), diag::err_pp_through_header_not_seen)
anatofuz
parents:
diff changeset
677 << PPOpts->PCHThroughHeader << 1;
anatofuz
parents:
diff changeset
678 else if (!PPOpts->PCHWithHdrStopCreate)
anatofuz
parents:
diff changeset
679 Diag(SourceLocation(), diag::err_pp_pragma_hdrstop_not_seen);
anatofuz
parents:
diff changeset
680 }
anatofuz
parents:
diff changeset
681 }
anatofuz
parents:
diff changeset
682
anatofuz
parents:
diff changeset
683 void Preprocessor::replayPreambleConditionalStack() {
anatofuz
parents:
diff changeset
684 // Restore the conditional stack from the preamble, if there is one.
anatofuz
parents:
diff changeset
685 if (PreambleConditionalStack.isReplaying()) {
anatofuz
parents:
diff changeset
686 assert(CurPPLexer &&
anatofuz
parents:
diff changeset
687 "CurPPLexer is null when calling replayPreambleConditionalStack.");
anatofuz
parents:
diff changeset
688 CurPPLexer->setConditionalLevels(PreambleConditionalStack.getStack());
anatofuz
parents:
diff changeset
689 PreambleConditionalStack.doneReplaying();
anatofuz
parents:
diff changeset
690 if (PreambleConditionalStack.reachedEOFWhileSkipping())
anatofuz
parents:
diff changeset
691 SkipExcludedConditionalBlock(
anatofuz
parents:
diff changeset
692 PreambleConditionalStack.SkipInfo->HashTokenLoc,
anatofuz
parents:
diff changeset
693 PreambleConditionalStack.SkipInfo->IfTokenLoc,
anatofuz
parents:
diff changeset
694 PreambleConditionalStack.SkipInfo->FoundNonSkipPortion,
anatofuz
parents:
diff changeset
695 PreambleConditionalStack.SkipInfo->FoundElse,
anatofuz
parents:
diff changeset
696 PreambleConditionalStack.SkipInfo->ElseLoc);
anatofuz
parents:
diff changeset
697 }
anatofuz
parents:
diff changeset
698 }
anatofuz
parents:
diff changeset
699
anatofuz
parents:
diff changeset
700 void Preprocessor::EndSourceFile() {
anatofuz
parents:
diff changeset
701 // Notify the client that we reached the end of the source file.
anatofuz
parents:
diff changeset
702 if (Callbacks)
anatofuz
parents:
diff changeset
703 Callbacks->EndOfMainFile();
anatofuz
parents:
diff changeset
704 }
anatofuz
parents:
diff changeset
705
anatofuz
parents:
diff changeset
706 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
707 // Lexer Event Handling.
anatofuz
parents:
diff changeset
708 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
709
anatofuz
parents:
diff changeset
710 /// LookUpIdentifierInfo - Given a tok::raw_identifier token, look up the
anatofuz
parents:
diff changeset
711 /// identifier information for the token and install it into the token,
anatofuz
parents:
diff changeset
712 /// updating the token kind accordingly.
anatofuz
parents:
diff changeset
713 IdentifierInfo *Preprocessor::LookUpIdentifierInfo(Token &Identifier) const {
anatofuz
parents:
diff changeset
714 assert(!Identifier.getRawIdentifier().empty() && "No raw identifier data!");
anatofuz
parents:
diff changeset
715
anatofuz
parents:
diff changeset
716 // Look up this token, see if it is a macro, or if it is a language keyword.
anatofuz
parents:
diff changeset
717 IdentifierInfo *II;
anatofuz
parents:
diff changeset
718 if (!Identifier.needsCleaning() && !Identifier.hasUCN()) {
anatofuz
parents:
diff changeset
719 // No cleaning needed, just use the characters from the lexed buffer.
anatofuz
parents:
diff changeset
720 II = getIdentifierInfo(Identifier.getRawIdentifier());
anatofuz
parents:
diff changeset
721 } else {
anatofuz
parents:
diff changeset
722 // Cleaning needed, alloca a buffer, clean into it, then use the buffer.
anatofuz
parents:
diff changeset
723 SmallString<64> IdentifierBuffer;
anatofuz
parents:
diff changeset
724 StringRef CleanedStr = getSpelling(Identifier, IdentifierBuffer);
anatofuz
parents:
diff changeset
725
anatofuz
parents:
diff changeset
726 if (Identifier.hasUCN()) {
anatofuz
parents:
diff changeset
727 SmallString<64> UCNIdentifierBuffer;
anatofuz
parents:
diff changeset
728 expandUCNs(UCNIdentifierBuffer, CleanedStr);
anatofuz
parents:
diff changeset
729 II = getIdentifierInfo(UCNIdentifierBuffer);
anatofuz
parents:
diff changeset
730 } else {
anatofuz
parents:
diff changeset
731 II = getIdentifierInfo(CleanedStr);
anatofuz
parents:
diff changeset
732 }
anatofuz
parents:
diff changeset
733 }
anatofuz
parents:
diff changeset
734
anatofuz
parents:
diff changeset
735 // Update the token info (identifier info and appropriate token kind).
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
736 // FIXME: the raw_identifier may contain leading whitespace which is removed
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
737 // from the cleaned identifier token. The SourceLocation should be updated to
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
738 // refer to the non-whitespace character. For instance, the text "\\\nB" (a
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
739 // line continuation before 'B') is parsed as a single tok::raw_identifier and
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
740 // is cleaned to tok::identifier "B". After cleaning the token's length is
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
741 // still 3 and the SourceLocation refers to the location of the backslash.
150
anatofuz
parents:
diff changeset
742 Identifier.setIdentifierInfo(II);
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
743 Identifier.setKind(II->getTokenID());
150
anatofuz
parents:
diff changeset
744
anatofuz
parents:
diff changeset
745 return II;
anatofuz
parents:
diff changeset
746 }
anatofuz
parents:
diff changeset
747
anatofuz
parents:
diff changeset
748 void Preprocessor::SetPoisonReason(IdentifierInfo *II, unsigned DiagID) {
anatofuz
parents:
diff changeset
749 PoisonReasons[II] = DiagID;
anatofuz
parents:
diff changeset
750 }
anatofuz
parents:
diff changeset
751
anatofuz
parents:
diff changeset
752 void Preprocessor::PoisonSEHIdentifiers(bool Poison) {
anatofuz
parents:
diff changeset
753 assert(Ident__exception_code && Ident__exception_info);
anatofuz
parents:
diff changeset
754 assert(Ident___exception_code && Ident___exception_info);
anatofuz
parents:
diff changeset
755 Ident__exception_code->setIsPoisoned(Poison);
anatofuz
parents:
diff changeset
756 Ident___exception_code->setIsPoisoned(Poison);
anatofuz
parents:
diff changeset
757 Ident_GetExceptionCode->setIsPoisoned(Poison);
anatofuz
parents:
diff changeset
758 Ident__exception_info->setIsPoisoned(Poison);
anatofuz
parents:
diff changeset
759 Ident___exception_info->setIsPoisoned(Poison);
anatofuz
parents:
diff changeset
760 Ident_GetExceptionInfo->setIsPoisoned(Poison);
anatofuz
parents:
diff changeset
761 Ident__abnormal_termination->setIsPoisoned(Poison);
anatofuz
parents:
diff changeset
762 Ident___abnormal_termination->setIsPoisoned(Poison);
anatofuz
parents:
diff changeset
763 Ident_AbnormalTermination->setIsPoisoned(Poison);
anatofuz
parents:
diff changeset
764 }
anatofuz
parents:
diff changeset
765
anatofuz
parents:
diff changeset
766 void Preprocessor::HandlePoisonedIdentifier(Token & Identifier) {
anatofuz
parents:
diff changeset
767 assert(Identifier.getIdentifierInfo() &&
anatofuz
parents:
diff changeset
768 "Can't handle identifiers without identifier info!");
anatofuz
parents:
diff changeset
769 llvm::DenseMap<IdentifierInfo*,unsigned>::const_iterator it =
anatofuz
parents:
diff changeset
770 PoisonReasons.find(Identifier.getIdentifierInfo());
anatofuz
parents:
diff changeset
771 if(it == PoisonReasons.end())
anatofuz
parents:
diff changeset
772 Diag(Identifier, diag::err_pp_used_poisoned_id);
anatofuz
parents:
diff changeset
773 else
anatofuz
parents:
diff changeset
774 Diag(Identifier,it->second) << Identifier.getIdentifierInfo();
anatofuz
parents:
diff changeset
775 }
anatofuz
parents:
diff changeset
776
anatofuz
parents:
diff changeset
777 void Preprocessor::updateOutOfDateIdentifier(IdentifierInfo &II) const {
anatofuz
parents:
diff changeset
778 assert(II.isOutOfDate() && "not out of date");
anatofuz
parents:
diff changeset
779 getExternalSource()->updateOutOfDateIdentifier(II);
anatofuz
parents:
diff changeset
780 }
anatofuz
parents:
diff changeset
781
anatofuz
parents:
diff changeset
782 /// HandleIdentifier - This callback is invoked when the lexer reads an
anatofuz
parents:
diff changeset
783 /// identifier. This callback looks up the identifier in the map and/or
anatofuz
parents:
diff changeset
784 /// potentially macro expands it or turns it into a named token (like 'for').
anatofuz
parents:
diff changeset
785 ///
anatofuz
parents:
diff changeset
786 /// Note that callers of this method are guarded by checking the
anatofuz
parents:
diff changeset
787 /// IdentifierInfo's 'isHandleIdentifierCase' bit. If this method changes, the
anatofuz
parents:
diff changeset
788 /// IdentifierInfo methods that compute these properties will need to change to
anatofuz
parents:
diff changeset
789 /// match.
anatofuz
parents:
diff changeset
790 bool Preprocessor::HandleIdentifier(Token &Identifier) {
anatofuz
parents:
diff changeset
791 assert(Identifier.getIdentifierInfo() &&
anatofuz
parents:
diff changeset
792 "Can't handle identifiers without identifier info!");
anatofuz
parents:
diff changeset
793
anatofuz
parents:
diff changeset
794 IdentifierInfo &II = *Identifier.getIdentifierInfo();
anatofuz
parents:
diff changeset
795
anatofuz
parents:
diff changeset
796 // If the information about this identifier is out of date, update it from
anatofuz
parents:
diff changeset
797 // the external source.
anatofuz
parents:
diff changeset
798 // We have to treat __VA_ARGS__ in a special way, since it gets
anatofuz
parents:
diff changeset
799 // serialized with isPoisoned = true, but our preprocessor may have
anatofuz
parents:
diff changeset
800 // unpoisoned it if we're defining a C99 macro.
anatofuz
parents:
diff changeset
801 if (II.isOutOfDate()) {
anatofuz
parents:
diff changeset
802 bool CurrentIsPoisoned = false;
anatofuz
parents:
diff changeset
803 const bool IsSpecialVariadicMacro =
anatofuz
parents:
diff changeset
804 &II == Ident__VA_ARGS__ || &II == Ident__VA_OPT__;
anatofuz
parents:
diff changeset
805 if (IsSpecialVariadicMacro)
anatofuz
parents:
diff changeset
806 CurrentIsPoisoned = II.isPoisoned();
anatofuz
parents:
diff changeset
807
anatofuz
parents:
diff changeset
808 updateOutOfDateIdentifier(II);
anatofuz
parents:
diff changeset
809 Identifier.setKind(II.getTokenID());
anatofuz
parents:
diff changeset
810
anatofuz
parents:
diff changeset
811 if (IsSpecialVariadicMacro)
anatofuz
parents:
diff changeset
812 II.setIsPoisoned(CurrentIsPoisoned);
anatofuz
parents:
diff changeset
813 }
anatofuz
parents:
diff changeset
814
anatofuz
parents:
diff changeset
815 // If this identifier was poisoned, and if it was not produced from a macro
anatofuz
parents:
diff changeset
816 // expansion, emit an error.
anatofuz
parents:
diff changeset
817 if (II.isPoisoned() && CurPPLexer) {
anatofuz
parents:
diff changeset
818 HandlePoisonedIdentifier(Identifier);
anatofuz
parents:
diff changeset
819 }
anatofuz
parents:
diff changeset
820
anatofuz
parents:
diff changeset
821 // If this is a macro to be expanded, do it.
anatofuz
parents:
diff changeset
822 if (MacroDefinition MD = getMacroDefinition(&II)) {
anatofuz
parents:
diff changeset
823 auto *MI = MD.getMacroInfo();
anatofuz
parents:
diff changeset
824 assert(MI && "macro definition with no macro info?");
anatofuz
parents:
diff changeset
825 if (!DisableMacroExpansion) {
anatofuz
parents:
diff changeset
826 if (!Identifier.isExpandDisabled() && MI->isEnabled()) {
anatofuz
parents:
diff changeset
827 // C99 6.10.3p10: If the preprocessing token immediately after the
anatofuz
parents:
diff changeset
828 // macro name isn't a '(', this macro should not be expanded.
anatofuz
parents:
diff changeset
829 if (!MI->isFunctionLike() || isNextPPTokenLParen())
anatofuz
parents:
diff changeset
830 return HandleMacroExpandedIdentifier(Identifier, MD);
anatofuz
parents:
diff changeset
831 } else {
anatofuz
parents:
diff changeset
832 // C99 6.10.3.4p2 says that a disabled macro may never again be
anatofuz
parents:
diff changeset
833 // expanded, even if it's in a context where it could be expanded in the
anatofuz
parents:
diff changeset
834 // future.
anatofuz
parents:
diff changeset
835 Identifier.setFlag(Token::DisableExpand);
anatofuz
parents:
diff changeset
836 if (MI->isObjectLike() || isNextPPTokenLParen())
anatofuz
parents:
diff changeset
837 Diag(Identifier, diag::pp_disabled_macro_expansion);
anatofuz
parents:
diff changeset
838 }
anatofuz
parents:
diff changeset
839 }
anatofuz
parents:
diff changeset
840 }
anatofuz
parents:
diff changeset
841
anatofuz
parents:
diff changeset
842 // If this identifier is a keyword in a newer Standard or proposed Standard,
anatofuz
parents:
diff changeset
843 // produce a warning. Don't warn if we're not considering macro expansion,
anatofuz
parents:
diff changeset
844 // since this identifier might be the name of a macro.
anatofuz
parents:
diff changeset
845 // FIXME: This warning is disabled in cases where it shouldn't be, like
anatofuz
parents:
diff changeset
846 // "#define constexpr constexpr", "int constexpr;"
anatofuz
parents:
diff changeset
847 if (II.isFutureCompatKeyword() && !DisableMacroExpansion) {
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
848 Diag(Identifier, getIdentifierTable().getFutureCompatDiagKind(II, getLangOpts()))
150
anatofuz
parents:
diff changeset
849 << II.getName();
anatofuz
parents:
diff changeset
850 // Don't diagnose this keyword again in this translation unit.
anatofuz
parents:
diff changeset
851 II.setIsFutureCompatKeyword(false);
anatofuz
parents:
diff changeset
852 }
anatofuz
parents:
diff changeset
853
anatofuz
parents:
diff changeset
854 // If this is an extension token, diagnose its use.
anatofuz
parents:
diff changeset
855 // We avoid diagnosing tokens that originate from macro definitions.
anatofuz
parents:
diff changeset
856 // FIXME: This warning is disabled in cases where it shouldn't be,
anatofuz
parents:
diff changeset
857 // like "#define TY typeof", "TY(1) x".
anatofuz
parents:
diff changeset
858 if (II.isExtensionToken() && !DisableMacroExpansion)
anatofuz
parents:
diff changeset
859 Diag(Identifier, diag::ext_token_used);
anatofuz
parents:
diff changeset
860
anatofuz
parents:
diff changeset
861 // If this is the 'import' contextual keyword following an '@', note
anatofuz
parents:
diff changeset
862 // that the next token indicates a module name.
anatofuz
parents:
diff changeset
863 //
anatofuz
parents:
diff changeset
864 // Note that we do not treat 'import' as a contextual
anatofuz
parents:
diff changeset
865 // keyword when we're in a caching lexer, because caching lexers only get
anatofuz
parents:
diff changeset
866 // used in contexts where import declarations are disallowed.
anatofuz
parents:
diff changeset
867 //
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
868 // Likewise if this is the standard C++ import keyword.
150
anatofuz
parents:
diff changeset
869 if (((LastTokenWasAt && II.isModulesImport()) ||
anatofuz
parents:
diff changeset
870 Identifier.is(tok::kw_import)) &&
anatofuz
parents:
diff changeset
871 !InMacroArgs && !DisableMacroExpansion &&
anatofuz
parents:
diff changeset
872 (getLangOpts().Modules || getLangOpts().DebuggerSupport) &&
anatofuz
parents:
diff changeset
873 CurLexerKind != CLK_CachingLexer) {
anatofuz
parents:
diff changeset
874 ModuleImportLoc = Identifier.getLocation();
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
875 NamedModuleImportPath.clear();
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
876 IsAtImport = true;
150
anatofuz
parents:
diff changeset
877 ModuleImportExpectsIdentifier = true;
anatofuz
parents:
diff changeset
878 CurLexerKind = CLK_LexAfterModuleImport;
anatofuz
parents:
diff changeset
879 }
anatofuz
parents:
diff changeset
880 return true;
anatofuz
parents:
diff changeset
881 }
anatofuz
parents:
diff changeset
882
anatofuz
parents:
diff changeset
883 void Preprocessor::Lex(Token &Result) {
anatofuz
parents:
diff changeset
884 ++LexLevel;
anatofuz
parents:
diff changeset
885
anatofuz
parents:
diff changeset
886 // We loop here until a lex function returns a token; this avoids recursion.
anatofuz
parents:
diff changeset
887 bool ReturnedToken;
anatofuz
parents:
diff changeset
888 do {
anatofuz
parents:
diff changeset
889 switch (CurLexerKind) {
anatofuz
parents:
diff changeset
890 case CLK_Lexer:
anatofuz
parents:
diff changeset
891 ReturnedToken = CurLexer->Lex(Result);
anatofuz
parents:
diff changeset
892 break;
anatofuz
parents:
diff changeset
893 case CLK_TokenLexer:
anatofuz
parents:
diff changeset
894 ReturnedToken = CurTokenLexer->Lex(Result);
anatofuz
parents:
diff changeset
895 break;
anatofuz
parents:
diff changeset
896 case CLK_CachingLexer:
anatofuz
parents:
diff changeset
897 CachingLex(Result);
anatofuz
parents:
diff changeset
898 ReturnedToken = true;
anatofuz
parents:
diff changeset
899 break;
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
900 case CLK_DependencyDirectivesLexer:
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
901 ReturnedToken = CurLexer->LexDependencyDirectiveToken(Result);
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
902 break;
150
anatofuz
parents:
diff changeset
903 case CLK_LexAfterModuleImport:
anatofuz
parents:
diff changeset
904 ReturnedToken = LexAfterModuleImport(Result);
anatofuz
parents:
diff changeset
905 break;
anatofuz
parents:
diff changeset
906 }
anatofuz
parents:
diff changeset
907 } while (!ReturnedToken);
anatofuz
parents:
diff changeset
908
anatofuz
parents:
diff changeset
909 if (Result.is(tok::unknown) && TheModuleLoader.HadFatalFailure)
anatofuz
parents:
diff changeset
910 return;
anatofuz
parents:
diff changeset
911
anatofuz
parents:
diff changeset
912 if (Result.is(tok::code_completion) && Result.getIdentifierInfo()) {
anatofuz
parents:
diff changeset
913 // Remember the identifier before code completion token.
anatofuz
parents:
diff changeset
914 setCodeCompletionIdentifierInfo(Result.getIdentifierInfo());
anatofuz
parents:
diff changeset
915 setCodeCompletionTokenRange(Result.getLocation(), Result.getEndLoc());
anatofuz
parents:
diff changeset
916 // Set IdenfitierInfo to null to avoid confusing code that handles both
anatofuz
parents:
diff changeset
917 // identifiers and completion tokens.
anatofuz
parents:
diff changeset
918 Result.setIdentifierInfo(nullptr);
anatofuz
parents:
diff changeset
919 }
anatofuz
parents:
diff changeset
920
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
921 // Update StdCXXImportSeqState to track our position within a C++20 import-seq
150
anatofuz
parents:
diff changeset
922 // if this token is being produced as a result of phase 4 of translation.
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
923 // Update TrackGMFState to decide if we are currently in a Global Module
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
924 // Fragment. GMF state updates should precede StdCXXImportSeq ones, since GMF state
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
925 // depends on the prevailing StdCXXImportSeq state in two cases.
150
anatofuz
parents:
diff changeset
926 if (getLangOpts().CPlusPlusModules && LexLevel == 1 &&
anatofuz
parents:
diff changeset
927 !Result.getFlag(Token::IsReinjected)) {
anatofuz
parents:
diff changeset
928 switch (Result.getKind()) {
anatofuz
parents:
diff changeset
929 case tok::l_paren: case tok::l_square: case tok::l_brace:
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
930 StdCXXImportSeqState.handleOpenBracket();
150
anatofuz
parents:
diff changeset
931 break;
anatofuz
parents:
diff changeset
932 case tok::r_paren: case tok::r_square:
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
933 StdCXXImportSeqState.handleCloseBracket();
150
anatofuz
parents:
diff changeset
934 break;
anatofuz
parents:
diff changeset
935 case tok::r_brace:
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
936 StdCXXImportSeqState.handleCloseBrace();
150
anatofuz
parents:
diff changeset
937 break;
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
938 // This token is injected to represent the translation of '#include "a.h"'
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
939 // into "import a.h;". Mimic the notional ';'.
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
940 case tok::annot_module_include:
150
anatofuz
parents:
diff changeset
941 case tok::semi:
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
942 TrackGMFState.handleSemi();
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
943 StdCXXImportSeqState.handleSemi();
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
944 ModuleDeclState.handleSemi();
150
anatofuz
parents:
diff changeset
945 break;
anatofuz
parents:
diff changeset
946 case tok::header_name:
anatofuz
parents:
diff changeset
947 case tok::annot_header_unit:
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
948 StdCXXImportSeqState.handleHeaderName();
150
anatofuz
parents:
diff changeset
949 break;
anatofuz
parents:
diff changeset
950 case tok::kw_export:
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
951 TrackGMFState.handleExport();
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
952 StdCXXImportSeqState.handleExport();
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
953 ModuleDeclState.handleExport();
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
954 break;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
955 case tok::colon:
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
956 ModuleDeclState.handleColon();
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
957 break;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
958 case tok::period:
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
959 ModuleDeclState.handlePeriod();
150
anatofuz
parents:
diff changeset
960 break;
anatofuz
parents:
diff changeset
961 case tok::identifier:
anatofuz
parents:
diff changeset
962 if (Result.getIdentifierInfo()->isModulesImport()) {
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
963 TrackGMFState.handleImport(StdCXXImportSeqState.afterTopLevelSeq());
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
964 StdCXXImportSeqState.handleImport();
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
965 if (StdCXXImportSeqState.afterImportSeq()) {
150
anatofuz
parents:
diff changeset
966 ModuleImportLoc = Result.getLocation();
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
967 NamedModuleImportPath.clear();
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
968 IsAtImport = false;
150
anatofuz
parents:
diff changeset
969 ModuleImportExpectsIdentifier = true;
anatofuz
parents:
diff changeset
970 CurLexerKind = CLK_LexAfterModuleImport;
anatofuz
parents:
diff changeset
971 }
anatofuz
parents:
diff changeset
972 break;
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
973 } else if (Result.getIdentifierInfo() == getIdentifierInfo("module")) {
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
974 TrackGMFState.handleModule(StdCXXImportSeqState.afterTopLevelSeq());
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
975 ModuleDeclState.handleModule();
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
976 break;
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
977 } else {
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
978 ModuleDeclState.handleIdentifier(Result.getIdentifierInfo());
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
979 if (ModuleDeclState.isModuleCandidate())
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
980 break;
150
anatofuz
parents:
diff changeset
981 }
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
982 [[fallthrough]];
150
anatofuz
parents:
diff changeset
983 default:
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
984 TrackGMFState.handleMisc();
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
985 StdCXXImportSeqState.handleMisc();
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
986 ModuleDeclState.handleMisc();
150
anatofuz
parents:
diff changeset
987 break;
anatofuz
parents:
diff changeset
988 }
anatofuz
parents:
diff changeset
989 }
anatofuz
parents:
diff changeset
990
anatofuz
parents:
diff changeset
991 LastTokenWasAt = Result.is(tok::at);
anatofuz
parents:
diff changeset
992 --LexLevel;
anatofuz
parents:
diff changeset
993
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
994 if ((LexLevel == 0 || PreprocessToken) &&
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
995 !Result.getFlag(Token::IsReinjected)) {
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
996 if (LexLevel == 0)
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
997 ++TokenCount;
150
anatofuz
parents:
diff changeset
998 if (OnToken)
anatofuz
parents:
diff changeset
999 OnToken(Result);
anatofuz
parents:
diff changeset
1000 }
anatofuz
parents:
diff changeset
1001 }
anatofuz
parents:
diff changeset
1002
anatofuz
parents:
diff changeset
1003 /// Lex a header-name token (including one formed from header-name-tokens if
anatofuz
parents:
diff changeset
1004 /// \p AllowConcatenation is \c true).
anatofuz
parents:
diff changeset
1005 ///
anatofuz
parents:
diff changeset
1006 /// \param FilenameTok Filled in with the next token. On success, this will
anatofuz
parents:
diff changeset
1007 /// be either a header_name token. On failure, it will be whatever other
anatofuz
parents:
diff changeset
1008 /// token was found instead.
anatofuz
parents:
diff changeset
1009 /// \param AllowMacroExpansion If \c true, allow the header name to be formed
anatofuz
parents:
diff changeset
1010 /// by macro expansion (concatenating tokens as necessary if the first
anatofuz
parents:
diff changeset
1011 /// token is a '<').
anatofuz
parents:
diff changeset
1012 /// \return \c true if we reached EOD or EOF while looking for a > token in
anatofuz
parents:
diff changeset
1013 /// a concatenated header name and diagnosed it. \c false otherwise.
anatofuz
parents:
diff changeset
1014 bool Preprocessor::LexHeaderName(Token &FilenameTok, bool AllowMacroExpansion) {
anatofuz
parents:
diff changeset
1015 // Lex using header-name tokenization rules if tokens are being lexed from
anatofuz
parents:
diff changeset
1016 // a file. Just grab a token normally if we're in a macro expansion.
anatofuz
parents:
diff changeset
1017 if (CurPPLexer)
anatofuz
parents:
diff changeset
1018 CurPPLexer->LexIncludeFilename(FilenameTok);
anatofuz
parents:
diff changeset
1019 else
anatofuz
parents:
diff changeset
1020 Lex(FilenameTok);
anatofuz
parents:
diff changeset
1021
anatofuz
parents:
diff changeset
1022 // This could be a <foo/bar.h> file coming from a macro expansion. In this
anatofuz
parents:
diff changeset
1023 // case, glue the tokens together into an angle_string_literal token.
anatofuz
parents:
diff changeset
1024 SmallString<128> FilenameBuffer;
anatofuz
parents:
diff changeset
1025 if (FilenameTok.is(tok::less) && AllowMacroExpansion) {
anatofuz
parents:
diff changeset
1026 bool StartOfLine = FilenameTok.isAtStartOfLine();
anatofuz
parents:
diff changeset
1027 bool LeadingSpace = FilenameTok.hasLeadingSpace();
anatofuz
parents:
diff changeset
1028 bool LeadingEmptyMacro = FilenameTok.hasLeadingEmptyMacro();
anatofuz
parents:
diff changeset
1029
anatofuz
parents:
diff changeset
1030 SourceLocation Start = FilenameTok.getLocation();
anatofuz
parents:
diff changeset
1031 SourceLocation End;
anatofuz
parents:
diff changeset
1032 FilenameBuffer.push_back('<');
anatofuz
parents:
diff changeset
1033
anatofuz
parents:
diff changeset
1034 // Consume tokens until we find a '>'.
anatofuz
parents:
diff changeset
1035 // FIXME: A header-name could be formed starting or ending with an
anatofuz
parents:
diff changeset
1036 // alternative token. It's not clear whether that's ill-formed in all
anatofuz
parents:
diff changeset
1037 // cases.
anatofuz
parents:
diff changeset
1038 while (FilenameTok.isNot(tok::greater)) {
anatofuz
parents:
diff changeset
1039 Lex(FilenameTok);
anatofuz
parents:
diff changeset
1040 if (FilenameTok.isOneOf(tok::eod, tok::eof)) {
anatofuz
parents:
diff changeset
1041 Diag(FilenameTok.getLocation(), diag::err_expected) << tok::greater;
anatofuz
parents:
diff changeset
1042 Diag(Start, diag::note_matching) << tok::less;
anatofuz
parents:
diff changeset
1043 return true;
anatofuz
parents:
diff changeset
1044 }
anatofuz
parents:
diff changeset
1045
anatofuz
parents:
diff changeset
1046 End = FilenameTok.getLocation();
anatofuz
parents:
diff changeset
1047
anatofuz
parents:
diff changeset
1048 // FIXME: Provide code completion for #includes.
anatofuz
parents:
diff changeset
1049 if (FilenameTok.is(tok::code_completion)) {
anatofuz
parents:
diff changeset
1050 setCodeCompletionReached();
anatofuz
parents:
diff changeset
1051 Lex(FilenameTok);
anatofuz
parents:
diff changeset
1052 continue;
anatofuz
parents:
diff changeset
1053 }
anatofuz
parents:
diff changeset
1054
anatofuz
parents:
diff changeset
1055 // Append the spelling of this token to the buffer. If there was a space
anatofuz
parents:
diff changeset
1056 // before it, add it now.
anatofuz
parents:
diff changeset
1057 if (FilenameTok.hasLeadingSpace())
anatofuz
parents:
diff changeset
1058 FilenameBuffer.push_back(' ');
anatofuz
parents:
diff changeset
1059
anatofuz
parents:
diff changeset
1060 // Get the spelling of the token, directly into FilenameBuffer if
anatofuz
parents:
diff changeset
1061 // possible.
anatofuz
parents:
diff changeset
1062 size_t PreAppendSize = FilenameBuffer.size();
anatofuz
parents:
diff changeset
1063 FilenameBuffer.resize(PreAppendSize + FilenameTok.getLength());
anatofuz
parents:
diff changeset
1064
anatofuz
parents:
diff changeset
1065 const char *BufPtr = &FilenameBuffer[PreAppendSize];
anatofuz
parents:
diff changeset
1066 unsigned ActualLen = getSpelling(FilenameTok, BufPtr);
anatofuz
parents:
diff changeset
1067
anatofuz
parents:
diff changeset
1068 // If the token was spelled somewhere else, copy it into FilenameBuffer.
anatofuz
parents:
diff changeset
1069 if (BufPtr != &FilenameBuffer[PreAppendSize])
anatofuz
parents:
diff changeset
1070 memcpy(&FilenameBuffer[PreAppendSize], BufPtr, ActualLen);
anatofuz
parents:
diff changeset
1071
anatofuz
parents:
diff changeset
1072 // Resize FilenameBuffer to the correct size.
anatofuz
parents:
diff changeset
1073 if (FilenameTok.getLength() != ActualLen)
anatofuz
parents:
diff changeset
1074 FilenameBuffer.resize(PreAppendSize + ActualLen);
anatofuz
parents:
diff changeset
1075 }
anatofuz
parents:
diff changeset
1076
anatofuz
parents:
diff changeset
1077 FilenameTok.startToken();
anatofuz
parents:
diff changeset
1078 FilenameTok.setKind(tok::header_name);
anatofuz
parents:
diff changeset
1079 FilenameTok.setFlagValue(Token::StartOfLine, StartOfLine);
anatofuz
parents:
diff changeset
1080 FilenameTok.setFlagValue(Token::LeadingSpace, LeadingSpace);
anatofuz
parents:
diff changeset
1081 FilenameTok.setFlagValue(Token::LeadingEmptyMacro, LeadingEmptyMacro);
anatofuz
parents:
diff changeset
1082 CreateString(FilenameBuffer, FilenameTok, Start, End);
anatofuz
parents:
diff changeset
1083 } else if (FilenameTok.is(tok::string_literal) && AllowMacroExpansion) {
anatofuz
parents:
diff changeset
1084 // Convert a string-literal token of the form " h-char-sequence "
anatofuz
parents:
diff changeset
1085 // (produced by macro expansion) into a header-name token.
anatofuz
parents:
diff changeset
1086 //
anatofuz
parents:
diff changeset
1087 // The rules for header-names don't quite match the rules for
anatofuz
parents:
diff changeset
1088 // string-literals, but all the places where they differ result in
anatofuz
parents:
diff changeset
1089 // undefined behavior, so we can and do treat them the same.
anatofuz
parents:
diff changeset
1090 //
anatofuz
parents:
diff changeset
1091 // A string-literal with a prefix or suffix is not translated into a
anatofuz
parents:
diff changeset
1092 // header-name. This could theoretically be observable via the C++20
anatofuz
parents:
diff changeset
1093 // context-sensitive header-name formation rules.
anatofuz
parents:
diff changeset
1094 StringRef Str = getSpelling(FilenameTok, FilenameBuffer);
anatofuz
parents:
diff changeset
1095 if (Str.size() >= 2 && Str.front() == '"' && Str.back() == '"')
anatofuz
parents:
diff changeset
1096 FilenameTok.setKind(tok::header_name);
anatofuz
parents:
diff changeset
1097 }
anatofuz
parents:
diff changeset
1098
anatofuz
parents:
diff changeset
1099 return false;
anatofuz
parents:
diff changeset
1100 }
anatofuz
parents:
diff changeset
1101
anatofuz
parents:
diff changeset
1102 /// Collect the tokens of a C++20 pp-import-suffix.
anatofuz
parents:
diff changeset
1103 void Preprocessor::CollectPpImportSuffix(SmallVectorImpl<Token> &Toks) {
anatofuz
parents:
diff changeset
1104 // FIXME: For error recovery, consider recognizing attribute syntax here
anatofuz
parents:
diff changeset
1105 // and terminating / diagnosing a missing semicolon if we find anything
anatofuz
parents:
diff changeset
1106 // else? (Can we leave that to the parser?)
anatofuz
parents:
diff changeset
1107 unsigned BracketDepth = 0;
anatofuz
parents:
diff changeset
1108 while (true) {
anatofuz
parents:
diff changeset
1109 Toks.emplace_back();
anatofuz
parents:
diff changeset
1110 Lex(Toks.back());
anatofuz
parents:
diff changeset
1111
anatofuz
parents:
diff changeset
1112 switch (Toks.back().getKind()) {
anatofuz
parents:
diff changeset
1113 case tok::l_paren: case tok::l_square: case tok::l_brace:
anatofuz
parents:
diff changeset
1114 ++BracketDepth;
anatofuz
parents:
diff changeset
1115 break;
anatofuz
parents:
diff changeset
1116
anatofuz
parents:
diff changeset
1117 case tok::r_paren: case tok::r_square: case tok::r_brace:
anatofuz
parents:
diff changeset
1118 if (BracketDepth == 0)
anatofuz
parents:
diff changeset
1119 return;
anatofuz
parents:
diff changeset
1120 --BracketDepth;
anatofuz
parents:
diff changeset
1121 break;
anatofuz
parents:
diff changeset
1122
anatofuz
parents:
diff changeset
1123 case tok::semi:
anatofuz
parents:
diff changeset
1124 if (BracketDepth == 0)
anatofuz
parents:
diff changeset
1125 return;
anatofuz
parents:
diff changeset
1126 break;
anatofuz
parents:
diff changeset
1127
anatofuz
parents:
diff changeset
1128 case tok::eof:
anatofuz
parents:
diff changeset
1129 return;
anatofuz
parents:
diff changeset
1130
anatofuz
parents:
diff changeset
1131 default:
anatofuz
parents:
diff changeset
1132 break;
anatofuz
parents:
diff changeset
1133 }
anatofuz
parents:
diff changeset
1134 }
anatofuz
parents:
diff changeset
1135 }
anatofuz
parents:
diff changeset
1136
anatofuz
parents:
diff changeset
1137
anatofuz
parents:
diff changeset
1138 /// Lex a token following the 'import' contextual keyword.
anatofuz
parents:
diff changeset
1139 ///
anatofuz
parents:
diff changeset
1140 /// pp-import: [C++20]
anatofuz
parents:
diff changeset
1141 /// import header-name pp-import-suffix[opt] ;
anatofuz
parents:
diff changeset
1142 /// import header-name-tokens pp-import-suffix[opt] ;
anatofuz
parents:
diff changeset
1143 /// [ObjC] @ import module-name ;
anatofuz
parents:
diff changeset
1144 /// [Clang] import module-name ;
anatofuz
parents:
diff changeset
1145 ///
anatofuz
parents:
diff changeset
1146 /// header-name-tokens:
anatofuz
parents:
diff changeset
1147 /// string-literal
anatofuz
parents:
diff changeset
1148 /// < [any sequence of preprocessing-tokens other than >] >
anatofuz
parents:
diff changeset
1149 ///
anatofuz
parents:
diff changeset
1150 /// module-name:
anatofuz
parents:
diff changeset
1151 /// module-name-qualifier[opt] identifier
anatofuz
parents:
diff changeset
1152 ///
anatofuz
parents:
diff changeset
1153 /// module-name-qualifier
anatofuz
parents:
diff changeset
1154 /// module-name-qualifier[opt] identifier .
anatofuz
parents:
diff changeset
1155 ///
anatofuz
parents:
diff changeset
1156 /// We respond to a pp-import by importing macros from the named module.
anatofuz
parents:
diff changeset
1157 bool Preprocessor::LexAfterModuleImport(Token &Result) {
anatofuz
parents:
diff changeset
1158 // Figure out what kind of lexer we actually have.
anatofuz
parents:
diff changeset
1159 recomputeCurLexerKind();
anatofuz
parents:
diff changeset
1160
anatofuz
parents:
diff changeset
1161 // Lex the next token. The header-name lexing rules are used at the start of
anatofuz
parents:
diff changeset
1162 // a pp-import.
anatofuz
parents:
diff changeset
1163 //
anatofuz
parents:
diff changeset
1164 // For now, we only support header-name imports in C++20 mode.
anatofuz
parents:
diff changeset
1165 // FIXME: Should we allow this in all language modes that support an import
anatofuz
parents:
diff changeset
1166 // declaration as an extension?
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1167 if (NamedModuleImportPath.empty() && getLangOpts().CPlusPlusModules) {
150
anatofuz
parents:
diff changeset
1168 if (LexHeaderName(Result))
anatofuz
parents:
diff changeset
1169 return true;
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1170
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1171 if (Result.is(tok::colon) && ModuleDeclState.isNamedModule()) {
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1172 std::string Name = ModuleDeclState.getPrimaryName().str();
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1173 Name += ":";
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1174 NamedModuleImportPath.push_back(
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1175 {getIdentifierInfo(Name), Result.getLocation()});
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1176 CurLexerKind = CLK_LexAfterModuleImport;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1177 return true;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1178 }
150
anatofuz
parents:
diff changeset
1179 } else {
anatofuz
parents:
diff changeset
1180 Lex(Result);
anatofuz
parents:
diff changeset
1181 }
anatofuz
parents:
diff changeset
1182
anatofuz
parents:
diff changeset
1183 // Allocate a holding buffer for a sequence of tokens and introduce it into
anatofuz
parents:
diff changeset
1184 // the token stream.
anatofuz
parents:
diff changeset
1185 auto EnterTokens = [this](ArrayRef<Token> Toks) {
anatofuz
parents:
diff changeset
1186 auto ToksCopy = std::make_unique<Token[]>(Toks.size());
anatofuz
parents:
diff changeset
1187 std::copy(Toks.begin(), Toks.end(), ToksCopy.get());
anatofuz
parents:
diff changeset
1188 EnterTokenStream(std::move(ToksCopy), Toks.size(),
anatofuz
parents:
diff changeset
1189 /*DisableMacroExpansion*/ true, /*IsReinject*/ false);
anatofuz
parents:
diff changeset
1190 };
anatofuz
parents:
diff changeset
1191
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1192 bool ImportingHeader = Result.is(tok::header_name);
150
anatofuz
parents:
diff changeset
1193 // Check for a header-name.
anatofuz
parents:
diff changeset
1194 SmallVector<Token, 32> Suffix;
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1195 if (ImportingHeader) {
150
anatofuz
parents:
diff changeset
1196 // Enter the header-name token into the token stream; a Lex action cannot
anatofuz
parents:
diff changeset
1197 // both return a token and cache tokens (doing so would corrupt the token
anatofuz
parents:
diff changeset
1198 // cache if the call to Lex comes from CachingLex / PeekAhead).
anatofuz
parents:
diff changeset
1199 Suffix.push_back(Result);
anatofuz
parents:
diff changeset
1200
anatofuz
parents:
diff changeset
1201 // Consume the pp-import-suffix and expand any macros in it now. We'll add
anatofuz
parents:
diff changeset
1202 // it back into the token stream later.
anatofuz
parents:
diff changeset
1203 CollectPpImportSuffix(Suffix);
anatofuz
parents:
diff changeset
1204 if (Suffix.back().isNot(tok::semi)) {
anatofuz
parents:
diff changeset
1205 // This is not a pp-import after all.
anatofuz
parents:
diff changeset
1206 EnterTokens(Suffix);
anatofuz
parents:
diff changeset
1207 return false;
anatofuz
parents:
diff changeset
1208 }
anatofuz
parents:
diff changeset
1209
anatofuz
parents:
diff changeset
1210 // C++2a [cpp.module]p1:
anatofuz
parents:
diff changeset
1211 // The ';' preprocessing-token terminating a pp-import shall not have
anatofuz
parents:
diff changeset
1212 // been produced by macro replacement.
anatofuz
parents:
diff changeset
1213 SourceLocation SemiLoc = Suffix.back().getLocation();
anatofuz
parents:
diff changeset
1214 if (SemiLoc.isMacroID())
anatofuz
parents:
diff changeset
1215 Diag(SemiLoc, diag::err_header_import_semi_in_macro);
anatofuz
parents:
diff changeset
1216
anatofuz
parents:
diff changeset
1217 // Reconstitute the import token.
anatofuz
parents:
diff changeset
1218 Token ImportTok;
anatofuz
parents:
diff changeset
1219 ImportTok.startToken();
anatofuz
parents:
diff changeset
1220 ImportTok.setKind(tok::kw_import);
anatofuz
parents:
diff changeset
1221 ImportTok.setLocation(ModuleImportLoc);
anatofuz
parents:
diff changeset
1222 ImportTok.setIdentifierInfo(getIdentifierInfo("import"));
anatofuz
parents:
diff changeset
1223 ImportTok.setLength(6);
anatofuz
parents:
diff changeset
1224
anatofuz
parents:
diff changeset
1225 auto Action = HandleHeaderIncludeOrImport(
anatofuz
parents:
diff changeset
1226 /*HashLoc*/ SourceLocation(), ImportTok, Suffix.front(), SemiLoc);
anatofuz
parents:
diff changeset
1227 switch (Action.Kind) {
anatofuz
parents:
diff changeset
1228 case ImportAction::None:
anatofuz
parents:
diff changeset
1229 break;
anatofuz
parents:
diff changeset
1230
anatofuz
parents:
diff changeset
1231 case ImportAction::ModuleBegin:
anatofuz
parents:
diff changeset
1232 // Let the parser know we're textually entering the module.
anatofuz
parents:
diff changeset
1233 Suffix.emplace_back();
anatofuz
parents:
diff changeset
1234 Suffix.back().startToken();
anatofuz
parents:
diff changeset
1235 Suffix.back().setKind(tok::annot_module_begin);
anatofuz
parents:
diff changeset
1236 Suffix.back().setLocation(SemiLoc);
anatofuz
parents:
diff changeset
1237 Suffix.back().setAnnotationEndLoc(SemiLoc);
anatofuz
parents:
diff changeset
1238 Suffix.back().setAnnotationValue(Action.ModuleForHeader);
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1239 [[fallthrough]];
150
anatofuz
parents:
diff changeset
1240
anatofuz
parents:
diff changeset
1241 case ImportAction::ModuleImport:
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1242 case ImportAction::HeaderUnitImport:
150
anatofuz
parents:
diff changeset
1243 case ImportAction::SkippedModuleImport:
anatofuz
parents:
diff changeset
1244 // We chose to import (or textually enter) the file. Convert the
anatofuz
parents:
diff changeset
1245 // header-name token into a header unit annotation token.
anatofuz
parents:
diff changeset
1246 Suffix[0].setKind(tok::annot_header_unit);
anatofuz
parents:
diff changeset
1247 Suffix[0].setAnnotationEndLoc(Suffix[0].getLocation());
anatofuz
parents:
diff changeset
1248 Suffix[0].setAnnotationValue(Action.ModuleForHeader);
anatofuz
parents:
diff changeset
1249 // FIXME: Call the moduleImport callback?
anatofuz
parents:
diff changeset
1250 break;
anatofuz
parents:
diff changeset
1251 case ImportAction::Failure:
anatofuz
parents:
diff changeset
1252 assert(TheModuleLoader.HadFatalFailure &&
anatofuz
parents:
diff changeset
1253 "This should be an early exit only to a fatal error");
anatofuz
parents:
diff changeset
1254 Result.setKind(tok::eof);
anatofuz
parents:
diff changeset
1255 CurLexer->cutOffLexing();
anatofuz
parents:
diff changeset
1256 EnterTokens(Suffix);
anatofuz
parents:
diff changeset
1257 return true;
anatofuz
parents:
diff changeset
1258 }
anatofuz
parents:
diff changeset
1259
anatofuz
parents:
diff changeset
1260 EnterTokens(Suffix);
anatofuz
parents:
diff changeset
1261 return false;
anatofuz
parents:
diff changeset
1262 }
anatofuz
parents:
diff changeset
1263
anatofuz
parents:
diff changeset
1264 // The token sequence
anatofuz
parents:
diff changeset
1265 //
anatofuz
parents:
diff changeset
1266 // import identifier (. identifier)*
anatofuz
parents:
diff changeset
1267 //
anatofuz
parents:
diff changeset
1268 // indicates a module import directive. We already saw the 'import'
anatofuz
parents:
diff changeset
1269 // contextual keyword, so now we're looking for the identifiers.
anatofuz
parents:
diff changeset
1270 if (ModuleImportExpectsIdentifier && Result.getKind() == tok::identifier) {
anatofuz
parents:
diff changeset
1271 // We expected to see an identifier here, and we did; continue handling
anatofuz
parents:
diff changeset
1272 // identifiers.
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1273 NamedModuleImportPath.push_back(
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1274 std::make_pair(Result.getIdentifierInfo(), Result.getLocation()));
150
anatofuz
parents:
diff changeset
1275 ModuleImportExpectsIdentifier = false;
anatofuz
parents:
diff changeset
1276 CurLexerKind = CLK_LexAfterModuleImport;
anatofuz
parents:
diff changeset
1277 return true;
anatofuz
parents:
diff changeset
1278 }
anatofuz
parents:
diff changeset
1279
anatofuz
parents:
diff changeset
1280 // If we're expecting a '.' or a ';', and we got a '.', then wait until we
anatofuz
parents:
diff changeset
1281 // see the next identifier. (We can also see a '[[' that begins an
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1282 // attribute-specifier-seq here under the Standard C++ Modules.)
150
anatofuz
parents:
diff changeset
1283 if (!ModuleImportExpectsIdentifier && Result.getKind() == tok::period) {
anatofuz
parents:
diff changeset
1284 ModuleImportExpectsIdentifier = true;
anatofuz
parents:
diff changeset
1285 CurLexerKind = CLK_LexAfterModuleImport;
anatofuz
parents:
diff changeset
1286 return true;
anatofuz
parents:
diff changeset
1287 }
anatofuz
parents:
diff changeset
1288
anatofuz
parents:
diff changeset
1289 // If we didn't recognize a module name at all, this is not a (valid) import.
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1290 if (NamedModuleImportPath.empty() || Result.is(tok::eof))
150
anatofuz
parents:
diff changeset
1291 return true;
anatofuz
parents:
diff changeset
1292
anatofuz
parents:
diff changeset
1293 // Consume the pp-import-suffix and expand any macros in it now, if we're not
anatofuz
parents:
diff changeset
1294 // at the semicolon already.
anatofuz
parents:
diff changeset
1295 SourceLocation SemiLoc = Result.getLocation();
anatofuz
parents:
diff changeset
1296 if (Result.isNot(tok::semi)) {
anatofuz
parents:
diff changeset
1297 Suffix.push_back(Result);
anatofuz
parents:
diff changeset
1298 CollectPpImportSuffix(Suffix);
anatofuz
parents:
diff changeset
1299 if (Suffix.back().isNot(tok::semi)) {
anatofuz
parents:
diff changeset
1300 // This is not an import after all.
anatofuz
parents:
diff changeset
1301 EnterTokens(Suffix);
anatofuz
parents:
diff changeset
1302 return false;
anatofuz
parents:
diff changeset
1303 }
anatofuz
parents:
diff changeset
1304 SemiLoc = Suffix.back().getLocation();
anatofuz
parents:
diff changeset
1305 }
anatofuz
parents:
diff changeset
1306
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1307 // Under the standard C++ Modules, the dot is just part of the module name,
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1308 // and not a real hierarchy separator. Flatten such module names now.
150
anatofuz
parents:
diff changeset
1309 //
anatofuz
parents:
diff changeset
1310 // FIXME: Is this the right level to be performing this transformation?
anatofuz
parents:
diff changeset
1311 std::string FlatModuleName;
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1312 if (getLangOpts().CPlusPlusModules) {
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1313 for (auto &Piece : NamedModuleImportPath) {
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1314 // If the FlatModuleName ends with colon, it implies it is a partition.
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1315 if (!FlatModuleName.empty() && FlatModuleName.back() != ':')
150
anatofuz
parents:
diff changeset
1316 FlatModuleName += ".";
anatofuz
parents:
diff changeset
1317 FlatModuleName += Piece.first->getName();
anatofuz
parents:
diff changeset
1318 }
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1319 SourceLocation FirstPathLoc = NamedModuleImportPath[0].second;
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1320 NamedModuleImportPath.clear();
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1321 NamedModuleImportPath.push_back(
150
anatofuz
parents:
diff changeset
1322 std::make_pair(getIdentifierInfo(FlatModuleName), FirstPathLoc));
anatofuz
parents:
diff changeset
1323 }
anatofuz
parents:
diff changeset
1324
anatofuz
parents:
diff changeset
1325 Module *Imported = nullptr;
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1326 // We don't/shouldn't load the standard c++20 modules when preprocessing.
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1327 if (getLangOpts().Modules && !isInImportingCXXNamedModules()) {
150
anatofuz
parents:
diff changeset
1328 Imported = TheModuleLoader.loadModule(ModuleImportLoc,
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1329 NamedModuleImportPath,
150
anatofuz
parents:
diff changeset
1330 Module::Hidden,
anatofuz
parents:
diff changeset
1331 /*IsInclusionDirective=*/false);
anatofuz
parents:
diff changeset
1332 if (Imported)
anatofuz
parents:
diff changeset
1333 makeModuleVisible(Imported, SemiLoc);
anatofuz
parents:
diff changeset
1334 }
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1335
150
anatofuz
parents:
diff changeset
1336 if (Callbacks)
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1337 Callbacks->moduleImport(ModuleImportLoc, NamedModuleImportPath, Imported);
150
anatofuz
parents:
diff changeset
1338
anatofuz
parents:
diff changeset
1339 if (!Suffix.empty()) {
anatofuz
parents:
diff changeset
1340 EnterTokens(Suffix);
anatofuz
parents:
diff changeset
1341 return false;
anatofuz
parents:
diff changeset
1342 }
anatofuz
parents:
diff changeset
1343 return true;
anatofuz
parents:
diff changeset
1344 }
anatofuz
parents:
diff changeset
1345
anatofuz
parents:
diff changeset
1346 void Preprocessor::makeModuleVisible(Module *M, SourceLocation Loc) {
anatofuz
parents:
diff changeset
1347 CurSubmoduleState->VisibleModules.setVisible(
anatofuz
parents:
diff changeset
1348 M, Loc, [](Module *) {},
anatofuz
parents:
diff changeset
1349 [&](ArrayRef<Module *> Path, Module *Conflict, StringRef Message) {
anatofuz
parents:
diff changeset
1350 // FIXME: Include the path in the diagnostic.
anatofuz
parents:
diff changeset
1351 // FIXME: Include the import location for the conflicting module.
anatofuz
parents:
diff changeset
1352 Diag(ModuleImportLoc, diag::warn_module_conflict)
anatofuz
parents:
diff changeset
1353 << Path[0]->getFullModuleName()
anatofuz
parents:
diff changeset
1354 << Conflict->getFullModuleName()
anatofuz
parents:
diff changeset
1355 << Message;
anatofuz
parents:
diff changeset
1356 });
anatofuz
parents:
diff changeset
1357
anatofuz
parents:
diff changeset
1358 // Add this module to the imports list of the currently-built submodule.
anatofuz
parents:
diff changeset
1359 if (!BuildingSubmoduleStack.empty() && M != BuildingSubmoduleStack.back().M)
anatofuz
parents:
diff changeset
1360 BuildingSubmoduleStack.back().M->Imports.insert(M);
anatofuz
parents:
diff changeset
1361 }
anatofuz
parents:
diff changeset
1362
anatofuz
parents:
diff changeset
1363 bool Preprocessor::FinishLexStringLiteral(Token &Result, std::string &String,
anatofuz
parents:
diff changeset
1364 const char *DiagnosticTag,
anatofuz
parents:
diff changeset
1365 bool AllowMacroExpansion) {
anatofuz
parents:
diff changeset
1366 // We need at least one string literal.
anatofuz
parents:
diff changeset
1367 if (Result.isNot(tok::string_literal)) {
anatofuz
parents:
diff changeset
1368 Diag(Result, diag::err_expected_string_literal)
anatofuz
parents:
diff changeset
1369 << /*Source='in...'*/0 << DiagnosticTag;
anatofuz
parents:
diff changeset
1370 return false;
anatofuz
parents:
diff changeset
1371 }
anatofuz
parents:
diff changeset
1372
anatofuz
parents:
diff changeset
1373 // Lex string literal tokens, optionally with macro expansion.
anatofuz
parents:
diff changeset
1374 SmallVector<Token, 4> StrToks;
anatofuz
parents:
diff changeset
1375 do {
anatofuz
parents:
diff changeset
1376 StrToks.push_back(Result);
anatofuz
parents:
diff changeset
1377
anatofuz
parents:
diff changeset
1378 if (Result.hasUDSuffix())
anatofuz
parents:
diff changeset
1379 Diag(Result, diag::err_invalid_string_udl);
anatofuz
parents:
diff changeset
1380
anatofuz
parents:
diff changeset
1381 if (AllowMacroExpansion)
anatofuz
parents:
diff changeset
1382 Lex(Result);
anatofuz
parents:
diff changeset
1383 else
anatofuz
parents:
diff changeset
1384 LexUnexpandedToken(Result);
anatofuz
parents:
diff changeset
1385 } while (Result.is(tok::string_literal));
anatofuz
parents:
diff changeset
1386
anatofuz
parents:
diff changeset
1387 // Concatenate and parse the strings.
anatofuz
parents:
diff changeset
1388 StringLiteralParser Literal(StrToks, *this);
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1389 assert(Literal.isOrdinary() && "Didn't allow wide strings in");
150
anatofuz
parents:
diff changeset
1390
anatofuz
parents:
diff changeset
1391 if (Literal.hadError)
anatofuz
parents:
diff changeset
1392 return false;
anatofuz
parents:
diff changeset
1393
anatofuz
parents:
diff changeset
1394 if (Literal.Pascal) {
anatofuz
parents:
diff changeset
1395 Diag(StrToks[0].getLocation(), diag::err_expected_string_literal)
anatofuz
parents:
diff changeset
1396 << /*Source='in...'*/0 << DiagnosticTag;
anatofuz
parents:
diff changeset
1397 return false;
anatofuz
parents:
diff changeset
1398 }
anatofuz
parents:
diff changeset
1399
anatofuz
parents:
diff changeset
1400 String = std::string(Literal.GetString());
anatofuz
parents:
diff changeset
1401 return true;
anatofuz
parents:
diff changeset
1402 }
anatofuz
parents:
diff changeset
1403
anatofuz
parents:
diff changeset
1404 bool Preprocessor::parseSimpleIntegerLiteral(Token &Tok, uint64_t &Value) {
anatofuz
parents:
diff changeset
1405 assert(Tok.is(tok::numeric_constant));
anatofuz
parents:
diff changeset
1406 SmallString<8> IntegerBuffer;
anatofuz
parents:
diff changeset
1407 bool NumberInvalid = false;
anatofuz
parents:
diff changeset
1408 StringRef Spelling = getSpelling(Tok, IntegerBuffer, &NumberInvalid);
anatofuz
parents:
diff changeset
1409 if (NumberInvalid)
anatofuz
parents:
diff changeset
1410 return false;
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1411 NumericLiteralParser Literal(Spelling, Tok.getLocation(), getSourceManager(),
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1412 getLangOpts(), getTargetInfo(),
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1413 getDiagnostics());
150
anatofuz
parents:
diff changeset
1414 if (Literal.hadError || !Literal.isIntegerLiteral() || Literal.hasUDSuffix())
anatofuz
parents:
diff changeset
1415 return false;
anatofuz
parents:
diff changeset
1416 llvm::APInt APVal(64, 0);
anatofuz
parents:
diff changeset
1417 if (Literal.GetIntegerValue(APVal))
anatofuz
parents:
diff changeset
1418 return false;
anatofuz
parents:
diff changeset
1419 Lex(Tok);
anatofuz
parents:
diff changeset
1420 Value = APVal.getLimitedValue();
anatofuz
parents:
diff changeset
1421 return true;
anatofuz
parents:
diff changeset
1422 }
anatofuz
parents:
diff changeset
1423
anatofuz
parents:
diff changeset
1424 void Preprocessor::addCommentHandler(CommentHandler *Handler) {
anatofuz
parents:
diff changeset
1425 assert(Handler && "NULL comment handler");
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1426 assert(!llvm::is_contained(CommentHandlers, Handler) &&
150
anatofuz
parents:
diff changeset
1427 "Comment handler already registered");
anatofuz
parents:
diff changeset
1428 CommentHandlers.push_back(Handler);
anatofuz
parents:
diff changeset
1429 }
anatofuz
parents:
diff changeset
1430
anatofuz
parents:
diff changeset
1431 void Preprocessor::removeCommentHandler(CommentHandler *Handler) {
anatofuz
parents:
diff changeset
1432 std::vector<CommentHandler *>::iterator Pos =
anatofuz
parents:
diff changeset
1433 llvm::find(CommentHandlers, Handler);
anatofuz
parents:
diff changeset
1434 assert(Pos != CommentHandlers.end() && "Comment handler not registered");
anatofuz
parents:
diff changeset
1435 CommentHandlers.erase(Pos);
anatofuz
parents:
diff changeset
1436 }
anatofuz
parents:
diff changeset
1437
anatofuz
parents:
diff changeset
1438 bool Preprocessor::HandleComment(Token &result, SourceRange Comment) {
anatofuz
parents:
diff changeset
1439 bool AnyPendingTokens = false;
anatofuz
parents:
diff changeset
1440 for (std::vector<CommentHandler *>::iterator H = CommentHandlers.begin(),
anatofuz
parents:
diff changeset
1441 HEnd = CommentHandlers.end();
anatofuz
parents:
diff changeset
1442 H != HEnd; ++H) {
anatofuz
parents:
diff changeset
1443 if ((*H)->HandleComment(*this, Comment))
anatofuz
parents:
diff changeset
1444 AnyPendingTokens = true;
anatofuz
parents:
diff changeset
1445 }
anatofuz
parents:
diff changeset
1446 if (!AnyPendingTokens || getCommentRetentionState())
anatofuz
parents:
diff changeset
1447 return false;
anatofuz
parents:
diff changeset
1448 Lex(result);
anatofuz
parents:
diff changeset
1449 return true;
anatofuz
parents:
diff changeset
1450 }
anatofuz
parents:
diff changeset
1451
236
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1452 void Preprocessor::emitMacroDeprecationWarning(const Token &Identifier) const {
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1453 const MacroAnnotations &A =
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1454 getMacroAnnotations(Identifier.getIdentifierInfo());
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1455 assert(A.DeprecationInfo &&
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1456 "Macro deprecation warning without recorded annotation!");
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1457 const MacroAnnotationInfo &Info = *A.DeprecationInfo;
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1458 if (Info.Message.empty())
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1459 Diag(Identifier, diag::warn_pragma_deprecated_macro_use)
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1460 << Identifier.getIdentifierInfo() << 0;
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1461 else
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1462 Diag(Identifier, diag::warn_pragma_deprecated_macro_use)
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1463 << Identifier.getIdentifierInfo() << 1 << Info.Message;
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1464 Diag(Info.Location, diag::note_pp_macro_annotation) << 0;
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1465 }
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1466
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1467 void Preprocessor::emitRestrictExpansionWarning(const Token &Identifier) const {
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1468 const MacroAnnotations &A =
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1469 getMacroAnnotations(Identifier.getIdentifierInfo());
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1470 assert(A.RestrictExpansionInfo &&
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1471 "Macro restricted expansion warning without recorded annotation!");
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1472 const MacroAnnotationInfo &Info = *A.RestrictExpansionInfo;
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1473 if (Info.Message.empty())
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1474 Diag(Identifier, diag::warn_pragma_restrict_expansion_macro_use)
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1475 << Identifier.getIdentifierInfo() << 0;
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1476 else
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1477 Diag(Identifier, diag::warn_pragma_restrict_expansion_macro_use)
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1478 << Identifier.getIdentifierInfo() << 1 << Info.Message;
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1479 Diag(Info.Location, diag::note_pp_macro_annotation) << 1;
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1480 }
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1481
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1482 void Preprocessor::emitFinalMacroWarning(const Token &Identifier,
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1483 bool IsUndef) const {
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1484 const MacroAnnotations &A =
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1485 getMacroAnnotations(Identifier.getIdentifierInfo());
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1486 assert(A.FinalAnnotationLoc &&
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1487 "Final macro warning without recorded annotation!");
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1488
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1489 Diag(Identifier, diag::warn_pragma_final_macro)
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1490 << Identifier.getIdentifierInfo() << (IsUndef ? 0 : 1);
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1491 Diag(*A.FinalAnnotationLoc, diag::note_pp_macro_annotation) << 2;
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1492 }
c4bab56944e8 LLVM 16
kono
parents: 207
diff changeset
1493
252
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1494 bool Preprocessor::isSafeBufferOptOut(const SourceManager &SourceMgr,
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1495 const SourceLocation &Loc) const {
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1496 // Try to find a region in `SafeBufferOptOutMap` where `Loc` is in:
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1497 auto FirstRegionEndingAfterLoc = llvm::partition_point(
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1498 SafeBufferOptOutMap,
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1499 [&SourceMgr,
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1500 &Loc](const std::pair<SourceLocation, SourceLocation> &Region) {
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1501 return SourceMgr.isBeforeInTranslationUnit(Region.second, Loc);
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1502 });
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1503
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1504 if (FirstRegionEndingAfterLoc != SafeBufferOptOutMap.end()) {
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1505 // To test if the start location of the found region precedes `Loc`:
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1506 return SourceMgr.isBeforeInTranslationUnit(FirstRegionEndingAfterLoc->first,
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1507 Loc);
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1508 }
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1509 // If we do not find a region whose end location passes `Loc`, we want to
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1510 // check if the current region is still open:
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1511 if (!SafeBufferOptOutMap.empty() &&
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1512 SafeBufferOptOutMap.back().first == SafeBufferOptOutMap.back().second)
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1513 return SourceMgr.isBeforeInTranslationUnit(SafeBufferOptOutMap.back().first,
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1514 Loc);
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1515 return false;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1516 }
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1517
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1518 bool Preprocessor::enterOrExitSafeBufferOptOutRegion(
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1519 bool isEnter, const SourceLocation &Loc) {
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1520 if (isEnter) {
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1521 if (isPPInSafeBufferOptOutRegion())
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1522 return true; // invalid enter action
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1523 InSafeBufferOptOutRegion = true;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1524 CurrentSafeBufferOptOutStart = Loc;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1525
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1526 // To set the start location of a new region:
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1527
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1528 if (!SafeBufferOptOutMap.empty()) {
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1529 [[maybe_unused]] auto *PrevRegion = &SafeBufferOptOutMap.back();
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1530 assert(PrevRegion->first != PrevRegion->second &&
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1531 "Shall not begin a safe buffer opt-out region before closing the "
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1532 "previous one.");
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1533 }
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1534 // If the start location equals to the end location, we call the region a
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1535 // open region or a unclosed region (i.e., end location has not been set
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1536 // yet).
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1537 SafeBufferOptOutMap.emplace_back(Loc, Loc);
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1538 } else {
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1539 if (!isPPInSafeBufferOptOutRegion())
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1540 return true; // invalid enter action
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1541 InSafeBufferOptOutRegion = false;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1542
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1543 // To set the end location of the current open region:
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1544
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1545 assert(!SafeBufferOptOutMap.empty() &&
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1546 "Misordered safe buffer opt-out regions");
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1547 auto *CurrRegion = &SafeBufferOptOutMap.back();
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1548 assert(CurrRegion->first == CurrRegion->second &&
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1549 "Set end location to a closed safe buffer opt-out region");
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1550 CurrRegion->second = Loc;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1551 }
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1552 return false;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1553 }
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1554
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1555 bool Preprocessor::isPPInSafeBufferOptOutRegion() {
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1556 return InSafeBufferOptOutRegion;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1557 }
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1558 bool Preprocessor::isPPInSafeBufferOptOutRegion(SourceLocation &StartLoc) {
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1559 StartLoc = CurrentSafeBufferOptOutStart;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1560 return InSafeBufferOptOutRegion;
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1561 }
1f2b6ac9f198 LLVM16-1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 236
diff changeset
1562
150
anatofuz
parents:
diff changeset
1563 ModuleLoader::~ModuleLoader() = default;
anatofuz
parents:
diff changeset
1564
anatofuz
parents:
diff changeset
1565 CommentHandler::~CommentHandler() = default;
anatofuz
parents:
diff changeset
1566
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1567 EmptylineHandler::~EmptylineHandler() = default;
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
1568
150
anatofuz
parents:
diff changeset
1569 CodeCompletionHandler::~CodeCompletionHandler() = default;
anatofuz
parents:
diff changeset
1570
anatofuz
parents:
diff changeset
1571 void Preprocessor::createPreprocessingRecord() {
anatofuz
parents:
diff changeset
1572 if (Record)
anatofuz
parents:
diff changeset
1573 return;
anatofuz
parents:
diff changeset
1574
anatofuz
parents:
diff changeset
1575 Record = new PreprocessingRecord(getSourceManager());
anatofuz
parents:
diff changeset
1576 addPPCallbacks(std::unique_ptr<PPCallbacks>(Record));
anatofuz
parents:
diff changeset
1577 }
240
matac
parents: 239
diff changeset
1578
matac
parents: 239
diff changeset
1579 #ifndef noCbC
matac
parents: 239
diff changeset
1580
matac
parents: 239
diff changeset
1581 Token Preprocessor::ReadFromString(const char *src , SourceLocation Loc) {
matac
parents: 239
diff changeset
1582 // Push the ( "string" ) tokens into the token stream.
matac
parents: 239
diff changeset
1583 MacroInfo *MI = AllocateMacroInfo(Loc);
242
b2ae1833b9d9 bug fixing
matac
parents: 240
diff changeset
1584 SmallVector<Token, 16> Tokens;
240
matac
parents: 239
diff changeset
1585 Token Tok;
matac
parents: 239
diff changeset
1586 std::unique_ptr<Lexer> lx(new Lexer(CurLexer->getFileID(),getSourceManager().getBufferOrFake(CurLexer->getFileID(), Loc),*this));
matac
parents: 239
diff changeset
1587 lx->InitLexer(src,src,src + strlen(src));
matac
parents: 239
diff changeset
1588 lx->Lex(Tok);
matac
parents: 239
diff changeset
1589 CurLexer.swap(lx);
matac
parents: 239
diff changeset
1590 int i = 0;
matac
parents: 239
diff changeset
1591 while (Tok.getKind() != tok::TokenKind::eof) {
matac
parents: 239
diff changeset
1592 Tok.setLocation(Loc);
242
b2ae1833b9d9 bug fixing
matac
parents: 240
diff changeset
1593 Tokens.push_back(Tok);
240
matac
parents: 239
diff changeset
1594 Lex(Tok); i++;
matac
parents: 239
diff changeset
1595 }
matac
parents: 239
diff changeset
1596 Tok.setLocation(Loc);
242
b2ae1833b9d9 bug fixing
matac
parents: 240
diff changeset
1597 Tokens.push_back(Tok);
b2ae1833b9d9 bug fixing
matac
parents: 240
diff changeset
1598 i++;
240
matac
parents: 239
diff changeset
1599 MI->DefinitionLength = i;
matac
parents: 239
diff changeset
1600 CurLexer = std::move(lx);
matac
parents: 239
diff changeset
1601 CurPPLexer = CurLexer.get();
242
b2ae1833b9d9 bug fixing
matac
parents: 240
diff changeset
1602 MI->setTokens(Tokens, BP);
240
matac
parents: 239
diff changeset
1603 EnterMacro(Tok, Loc, MI , 0 );
matac
parents: 239
diff changeset
1604 CurTokenLexer->MacroDefLength = i;
matac
parents: 239
diff changeset
1605 return Tok;
matac
parents: 239
diff changeset
1606 }
matac
parents: 239
diff changeset
1607
matac
parents: 239
diff changeset
1608 #endif