forked from OSchip/llvm-project
1266 lines
46 KiB
C++
1266 lines
46 KiB
C++
//===--- SemaAttr.cpp - Semantic Analysis for Attributes ------------------===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
//
|
|
// This file implements semantic analysis for non-trivial attributes and
|
|
// pragmas.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "clang/AST/ASTConsumer.h"
|
|
#include "clang/AST/Attr.h"
|
|
#include "clang/AST/Expr.h"
|
|
#include "clang/Basic/TargetInfo.h"
|
|
#include "clang/Lex/Preprocessor.h"
|
|
#include "clang/Sema/Lookup.h"
|
|
#include "clang/Sema/SemaInternal.h"
|
|
using namespace clang;
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
// Pragma 'pack' and 'options align'
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
Sema::PragmaStackSentinelRAII::PragmaStackSentinelRAII(Sema &S,
|
|
StringRef SlotLabel,
|
|
bool ShouldAct)
|
|
: S(S), SlotLabel(SlotLabel), ShouldAct(ShouldAct) {
|
|
if (ShouldAct) {
|
|
S.VtorDispStack.SentinelAction(PSK_Push, SlotLabel);
|
|
S.DataSegStack.SentinelAction(PSK_Push, SlotLabel);
|
|
S.BSSSegStack.SentinelAction(PSK_Push, SlotLabel);
|
|
S.ConstSegStack.SentinelAction(PSK_Push, SlotLabel);
|
|
S.CodeSegStack.SentinelAction(PSK_Push, SlotLabel);
|
|
}
|
|
}
|
|
|
|
Sema::PragmaStackSentinelRAII::~PragmaStackSentinelRAII() {
|
|
if (ShouldAct) {
|
|
S.VtorDispStack.SentinelAction(PSK_Pop, SlotLabel);
|
|
S.DataSegStack.SentinelAction(PSK_Pop, SlotLabel);
|
|
S.BSSSegStack.SentinelAction(PSK_Pop, SlotLabel);
|
|
S.ConstSegStack.SentinelAction(PSK_Pop, SlotLabel);
|
|
S.CodeSegStack.SentinelAction(PSK_Pop, SlotLabel);
|
|
}
|
|
}
|
|
|
|
void Sema::AddAlignmentAttributesForRecord(RecordDecl *RD) {
|
|
AlignPackInfo InfoVal = AlignPackStack.CurrentValue;
|
|
AlignPackInfo::Mode M = InfoVal.getAlignMode();
|
|
bool IsPackSet = InfoVal.IsPackSet();
|
|
bool IsXLPragma = getLangOpts().XLPragmaPack;
|
|
|
|
// If we are not under mac68k/natural alignment mode and also there is no pack
|
|
// value, we don't need any attributes.
|
|
if (!IsPackSet && M != AlignPackInfo::Mac68k && M != AlignPackInfo::Natural)
|
|
return;
|
|
|
|
if (M == AlignPackInfo::Mac68k && (IsXLPragma || InfoVal.IsAlignAttr())) {
|
|
RD->addAttr(AlignMac68kAttr::CreateImplicit(Context));
|
|
} else if (IsPackSet) {
|
|
// Check to see if we need a max field alignment attribute.
|
|
RD->addAttr(MaxFieldAlignmentAttr::CreateImplicit(
|
|
Context, InfoVal.getPackNumber() * 8));
|
|
}
|
|
|
|
if (IsXLPragma && M == AlignPackInfo::Natural)
|
|
RD->addAttr(AlignNaturalAttr::CreateImplicit(Context));
|
|
|
|
if (AlignPackIncludeStack.empty())
|
|
return;
|
|
// The #pragma align/pack affected a record in an included file, so Clang
|
|
// should warn when that pragma was written in a file that included the
|
|
// included file.
|
|
for (auto &AlignPackedInclude : llvm::reverse(AlignPackIncludeStack)) {
|
|
if (AlignPackedInclude.CurrentPragmaLocation !=
|
|
AlignPackStack.CurrentPragmaLocation)
|
|
break;
|
|
if (AlignPackedInclude.HasNonDefaultValue)
|
|
AlignPackedInclude.ShouldWarnOnInclude = true;
|
|
}
|
|
}
|
|
|
|
void Sema::AddMsStructLayoutForRecord(RecordDecl *RD) {
|
|
if (MSStructPragmaOn)
|
|
RD->addAttr(MSStructAttr::CreateImplicit(Context));
|
|
|
|
// FIXME: We should merge AddAlignmentAttributesForRecord with
|
|
// AddMsStructLayoutForRecord into AddPragmaAttributesForRecord, which takes
|
|
// all active pragmas and applies them as attributes to class definitions.
|
|
if (VtorDispStack.CurrentValue != getLangOpts().getVtorDispMode())
|
|
RD->addAttr(MSVtorDispAttr::CreateImplicit(
|
|
Context, unsigned(VtorDispStack.CurrentValue)));
|
|
}
|
|
|
|
template <typename Attribute>
|
|
static void addGslOwnerPointerAttributeIfNotExisting(ASTContext &Context,
|
|
CXXRecordDecl *Record) {
|
|
if (Record->hasAttr<OwnerAttr>() || Record->hasAttr<PointerAttr>())
|
|
return;
|
|
|
|
for (Decl *Redecl : Record->redecls())
|
|
Redecl->addAttr(Attribute::CreateImplicit(Context, /*DerefType=*/nullptr));
|
|
}
|
|
|
|
void Sema::inferGslPointerAttribute(NamedDecl *ND,
|
|
CXXRecordDecl *UnderlyingRecord) {
|
|
if (!UnderlyingRecord)
|
|
return;
|
|
|
|
const auto *Parent = dyn_cast<CXXRecordDecl>(ND->getDeclContext());
|
|
if (!Parent)
|
|
return;
|
|
|
|
static llvm::StringSet<> Containers{
|
|
"array",
|
|
"basic_string",
|
|
"deque",
|
|
"forward_list",
|
|
"vector",
|
|
"list",
|
|
"map",
|
|
"multiset",
|
|
"multimap",
|
|
"priority_queue",
|
|
"queue",
|
|
"set",
|
|
"stack",
|
|
"unordered_set",
|
|
"unordered_map",
|
|
"unordered_multiset",
|
|
"unordered_multimap",
|
|
};
|
|
|
|
static llvm::StringSet<> Iterators{"iterator", "const_iterator",
|
|
"reverse_iterator",
|
|
"const_reverse_iterator"};
|
|
|
|
if (Parent->isInStdNamespace() && Iterators.count(ND->getName()) &&
|
|
Containers.count(Parent->getName()))
|
|
addGslOwnerPointerAttributeIfNotExisting<PointerAttr>(Context,
|
|
UnderlyingRecord);
|
|
}
|
|
|
|
void Sema::inferGslPointerAttribute(TypedefNameDecl *TD) {
|
|
|
|
QualType Canonical = TD->getUnderlyingType().getCanonicalType();
|
|
|
|
CXXRecordDecl *RD = Canonical->getAsCXXRecordDecl();
|
|
if (!RD) {
|
|
if (auto *TST =
|
|
dyn_cast<TemplateSpecializationType>(Canonical.getTypePtr())) {
|
|
|
|
RD = dyn_cast_or_null<CXXRecordDecl>(
|
|
TST->getTemplateName().getAsTemplateDecl()->getTemplatedDecl());
|
|
}
|
|
}
|
|
|
|
inferGslPointerAttribute(TD, RD);
|
|
}
|
|
|
|
void Sema::inferGslOwnerPointerAttribute(CXXRecordDecl *Record) {
|
|
static llvm::StringSet<> StdOwners{
|
|
"any",
|
|
"array",
|
|
"basic_regex",
|
|
"basic_string",
|
|
"deque",
|
|
"forward_list",
|
|
"vector",
|
|
"list",
|
|
"map",
|
|
"multiset",
|
|
"multimap",
|
|
"optional",
|
|
"priority_queue",
|
|
"queue",
|
|
"set",
|
|
"stack",
|
|
"unique_ptr",
|
|
"unordered_set",
|
|
"unordered_map",
|
|
"unordered_multiset",
|
|
"unordered_multimap",
|
|
"variant",
|
|
};
|
|
static llvm::StringSet<> StdPointers{
|
|
"basic_string_view",
|
|
"reference_wrapper",
|
|
"regex_iterator",
|
|
};
|
|
|
|
if (!Record->getIdentifier())
|
|
return;
|
|
|
|
// Handle classes that directly appear in std namespace.
|
|
if (Record->isInStdNamespace()) {
|
|
if (Record->hasAttr<OwnerAttr>() || Record->hasAttr<PointerAttr>())
|
|
return;
|
|
|
|
if (StdOwners.count(Record->getName()))
|
|
addGslOwnerPointerAttributeIfNotExisting<OwnerAttr>(Context, Record);
|
|
else if (StdPointers.count(Record->getName()))
|
|
addGslOwnerPointerAttributeIfNotExisting<PointerAttr>(Context, Record);
|
|
|
|
return;
|
|
}
|
|
|
|
// Handle nested classes that could be a gsl::Pointer.
|
|
inferGslPointerAttribute(Record, Record);
|
|
}
|
|
|
|
void Sema::ActOnPragmaOptionsAlign(PragmaOptionsAlignKind Kind,
|
|
SourceLocation PragmaLoc) {
|
|
PragmaMsStackAction Action = Sema::PSK_Reset;
|
|
AlignPackInfo::Mode ModeVal = AlignPackInfo::Native;
|
|
|
|
switch (Kind) {
|
|
// For most of the platforms we support, native and natural are the same.
|
|
// With XL, native is the same as power, natural means something else.
|
|
//
|
|
// FIXME: This is not true on Darwin/PPC.
|
|
case POAK_Native:
|
|
case POAK_Power:
|
|
Action = Sema::PSK_Push_Set;
|
|
break;
|
|
case POAK_Natural:
|
|
Action = Sema::PSK_Push_Set;
|
|
ModeVal = AlignPackInfo::Natural;
|
|
break;
|
|
|
|
// Note that '#pragma options align=packed' is not equivalent to attribute
|
|
// packed, it has a different precedence relative to attribute aligned.
|
|
case POAK_Packed:
|
|
Action = Sema::PSK_Push_Set;
|
|
ModeVal = AlignPackInfo::Packed;
|
|
break;
|
|
|
|
case POAK_Mac68k:
|
|
// Check if the target supports this.
|
|
if (!this->Context.getTargetInfo().hasAlignMac68kSupport()) {
|
|
Diag(PragmaLoc, diag::err_pragma_options_align_mac68k_target_unsupported);
|
|
return;
|
|
}
|
|
Action = Sema::PSK_Push_Set;
|
|
ModeVal = AlignPackInfo::Mac68k;
|
|
break;
|
|
case POAK_Reset:
|
|
// Reset just pops the top of the stack, or resets the current alignment to
|
|
// default.
|
|
Action = Sema::PSK_Pop;
|
|
if (AlignPackStack.Stack.empty()) {
|
|
if (AlignPackStack.CurrentValue.getAlignMode() != AlignPackInfo::Native ||
|
|
AlignPackStack.CurrentValue.IsPackAttr()) {
|
|
Action = Sema::PSK_Reset;
|
|
} else {
|
|
Diag(PragmaLoc, diag::warn_pragma_options_align_reset_failed)
|
|
<< "stack empty";
|
|
return;
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
|
|
AlignPackInfo Info(ModeVal, getLangOpts().XLPragmaPack);
|
|
|
|
AlignPackStack.Act(PragmaLoc, Action, StringRef(), Info);
|
|
}
|
|
|
|
void Sema::ActOnPragmaClangSection(SourceLocation PragmaLoc,
|
|
PragmaClangSectionAction Action,
|
|
PragmaClangSectionKind SecKind,
|
|
StringRef SecName) {
|
|
PragmaClangSection *CSec;
|
|
int SectionFlags = ASTContext::PSF_Read;
|
|
switch (SecKind) {
|
|
case PragmaClangSectionKind::PCSK_BSS:
|
|
CSec = &PragmaClangBSSSection;
|
|
SectionFlags |= ASTContext::PSF_Write | ASTContext::PSF_ZeroInit;
|
|
break;
|
|
case PragmaClangSectionKind::PCSK_Data:
|
|
CSec = &PragmaClangDataSection;
|
|
SectionFlags |= ASTContext::PSF_Write;
|
|
break;
|
|
case PragmaClangSectionKind::PCSK_Rodata:
|
|
CSec = &PragmaClangRodataSection;
|
|
break;
|
|
case PragmaClangSectionKind::PCSK_Relro:
|
|
CSec = &PragmaClangRelroSection;
|
|
break;
|
|
case PragmaClangSectionKind::PCSK_Text:
|
|
CSec = &PragmaClangTextSection;
|
|
SectionFlags |= ASTContext::PSF_Execute;
|
|
break;
|
|
default:
|
|
llvm_unreachable("invalid clang section kind");
|
|
}
|
|
|
|
if (Action == PragmaClangSectionAction::PCSA_Clear) {
|
|
CSec->Valid = false;
|
|
return;
|
|
}
|
|
|
|
if (llvm::Error E = isValidSectionSpecifier(SecName)) {
|
|
Diag(PragmaLoc, diag::err_pragma_section_invalid_for_target)
|
|
<< toString(std::move(E));
|
|
CSec->Valid = false;
|
|
return;
|
|
}
|
|
|
|
if (UnifySection(SecName, SectionFlags, PragmaLoc))
|
|
return;
|
|
|
|
CSec->Valid = true;
|
|
CSec->SectionName = std::string(SecName);
|
|
CSec->PragmaLocation = PragmaLoc;
|
|
}
|
|
|
|
void Sema::ActOnPragmaPack(SourceLocation PragmaLoc, PragmaMsStackAction Action,
|
|
StringRef SlotLabel, Expr *alignment) {
|
|
bool IsXLPragma = getLangOpts().XLPragmaPack;
|
|
// XL pragma pack does not support identifier syntax.
|
|
if (IsXLPragma && !SlotLabel.empty()) {
|
|
Diag(PragmaLoc, diag::err_pragma_pack_identifer_not_supported);
|
|
return;
|
|
}
|
|
|
|
const AlignPackInfo CurVal = AlignPackStack.CurrentValue;
|
|
Expr *Alignment = static_cast<Expr *>(alignment);
|
|
|
|
// If specified then alignment must be a "small" power of two.
|
|
unsigned AlignmentVal = 0;
|
|
AlignPackInfo::Mode ModeVal = CurVal.getAlignMode();
|
|
|
|
if (Alignment) {
|
|
Optional<llvm::APSInt> Val;
|
|
Val = Alignment->getIntegerConstantExpr(Context);
|
|
|
|
// pack(0) is like pack(), which just works out since that is what
|
|
// we use 0 for in PackAttr.
|
|
if (Alignment->isTypeDependent() || Alignment->isValueDependent() || !Val ||
|
|
!(*Val == 0 || Val->isPowerOf2()) || Val->getZExtValue() > 16) {
|
|
Diag(PragmaLoc, diag::warn_pragma_pack_invalid_alignment);
|
|
return; // Ignore
|
|
}
|
|
|
|
if (IsXLPragma && *Val == 0) {
|
|
// pack(0) does not work out with XL.
|
|
Diag(PragmaLoc, diag::err_pragma_pack_invalid_alignment);
|
|
return; // Ignore
|
|
}
|
|
|
|
AlignmentVal = (unsigned)Val->getZExtValue();
|
|
}
|
|
|
|
if (Action == Sema::PSK_Show) {
|
|
// Show the current alignment, making sure to show the right value
|
|
// for the default.
|
|
// FIXME: This should come from the target.
|
|
AlignmentVal = CurVal.IsPackSet() ? CurVal.getPackNumber() : 8;
|
|
if (ModeVal == AlignPackInfo::Mac68k &&
|
|
(IsXLPragma || CurVal.IsAlignAttr()))
|
|
Diag(PragmaLoc, diag::warn_pragma_pack_show) << "mac68k";
|
|
else
|
|
Diag(PragmaLoc, diag::warn_pragma_pack_show) << AlignmentVal;
|
|
}
|
|
|
|
// MSDN, C/C++ Preprocessor Reference > Pragma Directives > pack:
|
|
// "#pragma pack(pop, identifier, n) is undefined"
|
|
if (Action & Sema::PSK_Pop) {
|
|
if (Alignment && !SlotLabel.empty())
|
|
Diag(PragmaLoc, diag::warn_pragma_pack_pop_identifier_and_alignment);
|
|
if (AlignPackStack.Stack.empty()) {
|
|
assert(CurVal.getAlignMode() == AlignPackInfo::Native &&
|
|
"Empty pack stack can only be at Native alignment mode.");
|
|
Diag(PragmaLoc, diag::warn_pragma_pop_failed) << "pack" << "stack empty";
|
|
}
|
|
}
|
|
|
|
AlignPackInfo Info(ModeVal, AlignmentVal, IsXLPragma);
|
|
|
|
AlignPackStack.Act(PragmaLoc, Action, SlotLabel, Info);
|
|
}
|
|
|
|
void Sema::DiagnoseNonDefaultPragmaAlignPack(PragmaAlignPackDiagnoseKind Kind,
|
|
SourceLocation IncludeLoc) {
|
|
if (Kind == PragmaAlignPackDiagnoseKind::NonDefaultStateAtInclude) {
|
|
SourceLocation PrevLocation = AlignPackStack.CurrentPragmaLocation;
|
|
// Warn about non-default alignment at #includes (without redundant
|
|
// warnings for the same directive in nested includes).
|
|
// The warning is delayed until the end of the file to avoid warnings
|
|
// for files that don't have any records that are affected by the modified
|
|
// alignment.
|
|
bool HasNonDefaultValue =
|
|
AlignPackStack.hasValue() &&
|
|
(AlignPackIncludeStack.empty() ||
|
|
AlignPackIncludeStack.back().CurrentPragmaLocation != PrevLocation);
|
|
AlignPackIncludeStack.push_back(
|
|
{AlignPackStack.CurrentValue,
|
|
AlignPackStack.hasValue() ? PrevLocation : SourceLocation(),
|
|
HasNonDefaultValue, /*ShouldWarnOnInclude*/ false});
|
|
return;
|
|
}
|
|
|
|
assert(Kind == PragmaAlignPackDiagnoseKind::ChangedStateAtExit &&
|
|
"invalid kind");
|
|
AlignPackIncludeState PrevAlignPackState =
|
|
AlignPackIncludeStack.pop_back_val();
|
|
// FIXME: AlignPackStack may contain both #pragma align and #pragma pack
|
|
// information, diagnostics below might not be accurate if we have mixed
|
|
// pragmas.
|
|
if (PrevAlignPackState.ShouldWarnOnInclude) {
|
|
// Emit the delayed non-default alignment at #include warning.
|
|
Diag(IncludeLoc, diag::warn_pragma_pack_non_default_at_include);
|
|
Diag(PrevAlignPackState.CurrentPragmaLocation, diag::note_pragma_pack_here);
|
|
}
|
|
// Warn about modified alignment after #includes.
|
|
if (PrevAlignPackState.CurrentValue != AlignPackStack.CurrentValue) {
|
|
Diag(IncludeLoc, diag::warn_pragma_pack_modified_after_include);
|
|
Diag(AlignPackStack.CurrentPragmaLocation, diag::note_pragma_pack_here);
|
|
}
|
|
}
|
|
|
|
void Sema::DiagnoseUnterminatedPragmaAlignPack() {
|
|
if (AlignPackStack.Stack.empty())
|
|
return;
|
|
bool IsInnermost = true;
|
|
|
|
// FIXME: AlignPackStack may contain both #pragma align and #pragma pack
|
|
// information, diagnostics below might not be accurate if we have mixed
|
|
// pragmas.
|
|
for (const auto &StackSlot : llvm::reverse(AlignPackStack.Stack)) {
|
|
Diag(StackSlot.PragmaPushLocation, diag::warn_pragma_pack_no_pop_eof);
|
|
// The user might have already reset the alignment, so suggest replacing
|
|
// the reset with a pop.
|
|
if (IsInnermost &&
|
|
AlignPackStack.CurrentValue == AlignPackStack.DefaultValue) {
|
|
auto DB = Diag(AlignPackStack.CurrentPragmaLocation,
|
|
diag::note_pragma_pack_pop_instead_reset);
|
|
SourceLocation FixItLoc =
|
|
Lexer::findLocationAfterToken(AlignPackStack.CurrentPragmaLocation,
|
|
tok::l_paren, SourceMgr, LangOpts,
|
|
/*SkipTrailing=*/false);
|
|
if (FixItLoc.isValid())
|
|
DB << FixItHint::CreateInsertion(FixItLoc, "pop");
|
|
}
|
|
IsInnermost = false;
|
|
}
|
|
}
|
|
|
|
void Sema::ActOnPragmaMSStruct(PragmaMSStructKind Kind) {
|
|
MSStructPragmaOn = (Kind == PMSST_ON);
|
|
}
|
|
|
|
void Sema::ActOnPragmaMSComment(SourceLocation CommentLoc,
|
|
PragmaMSCommentKind Kind, StringRef Arg) {
|
|
auto *PCD = PragmaCommentDecl::Create(
|
|
Context, Context.getTranslationUnitDecl(), CommentLoc, Kind, Arg);
|
|
Context.getTranslationUnitDecl()->addDecl(PCD);
|
|
Consumer.HandleTopLevelDecl(DeclGroupRef(PCD));
|
|
}
|
|
|
|
void Sema::ActOnPragmaDetectMismatch(SourceLocation Loc, StringRef Name,
|
|
StringRef Value) {
|
|
auto *PDMD = PragmaDetectMismatchDecl::Create(
|
|
Context, Context.getTranslationUnitDecl(), Loc, Name, Value);
|
|
Context.getTranslationUnitDecl()->addDecl(PDMD);
|
|
Consumer.HandleTopLevelDecl(DeclGroupRef(PDMD));
|
|
}
|
|
|
|
void Sema::ActOnPragmaFloatControl(SourceLocation Loc,
|
|
PragmaMsStackAction Action,
|
|
PragmaFloatControlKind Value) {
|
|
FPOptionsOverride NewFPFeatures = CurFPFeatureOverrides();
|
|
if ((Action == PSK_Push_Set || Action == PSK_Push || Action == PSK_Pop) &&
|
|
!CurContext->getRedeclContext()->isFileContext()) {
|
|
// Push and pop can only occur at file or namespace scope, or within a
|
|
// language linkage declaration.
|
|
Diag(Loc, diag::err_pragma_fc_pp_scope);
|
|
return;
|
|
}
|
|
switch (Value) {
|
|
default:
|
|
llvm_unreachable("invalid pragma float_control kind");
|
|
case PFC_Precise:
|
|
NewFPFeatures.setFPPreciseEnabled(true);
|
|
FpPragmaStack.Act(Loc, Action, StringRef(), NewFPFeatures);
|
|
break;
|
|
case PFC_NoPrecise:
|
|
if (CurFPFeatures.getFPExceptionMode() == LangOptions::FPE_Strict)
|
|
Diag(Loc, diag::err_pragma_fc_noprecise_requires_noexcept);
|
|
else if (CurFPFeatures.getAllowFEnvAccess())
|
|
Diag(Loc, diag::err_pragma_fc_noprecise_requires_nofenv);
|
|
else
|
|
NewFPFeatures.setFPPreciseEnabled(false);
|
|
FpPragmaStack.Act(Loc, Action, StringRef(), NewFPFeatures);
|
|
break;
|
|
case PFC_Except:
|
|
if (!isPreciseFPEnabled())
|
|
Diag(Loc, diag::err_pragma_fc_except_requires_precise);
|
|
else
|
|
NewFPFeatures.setFPExceptionModeOverride(LangOptions::FPE_Strict);
|
|
FpPragmaStack.Act(Loc, Action, StringRef(), NewFPFeatures);
|
|
break;
|
|
case PFC_NoExcept:
|
|
NewFPFeatures.setFPExceptionModeOverride(LangOptions::FPE_Ignore);
|
|
FpPragmaStack.Act(Loc, Action, StringRef(), NewFPFeatures);
|
|
break;
|
|
case PFC_Push:
|
|
FpPragmaStack.Act(Loc, Sema::PSK_Push_Set, StringRef(), NewFPFeatures);
|
|
break;
|
|
case PFC_Pop:
|
|
if (FpPragmaStack.Stack.empty()) {
|
|
Diag(Loc, diag::warn_pragma_pop_failed) << "float_control"
|
|
<< "stack empty";
|
|
return;
|
|
}
|
|
FpPragmaStack.Act(Loc, Action, StringRef(), NewFPFeatures);
|
|
NewFPFeatures = FpPragmaStack.CurrentValue;
|
|
break;
|
|
}
|
|
CurFPFeatures = NewFPFeatures.applyOverrides(getLangOpts());
|
|
}
|
|
|
|
void Sema::ActOnPragmaMSPointersToMembers(
|
|
LangOptions::PragmaMSPointersToMembersKind RepresentationMethod,
|
|
SourceLocation PragmaLoc) {
|
|
MSPointerToMemberRepresentationMethod = RepresentationMethod;
|
|
ImplicitMSInheritanceAttrLoc = PragmaLoc;
|
|
}
|
|
|
|
void Sema::ActOnPragmaMSVtorDisp(PragmaMsStackAction Action,
|
|
SourceLocation PragmaLoc,
|
|
MSVtorDispMode Mode) {
|
|
if (Action & PSK_Pop && VtorDispStack.Stack.empty())
|
|
Diag(PragmaLoc, diag::warn_pragma_pop_failed) << "vtordisp"
|
|
<< "stack empty";
|
|
VtorDispStack.Act(PragmaLoc, Action, StringRef(), Mode);
|
|
}
|
|
|
|
template <>
|
|
void Sema::PragmaStack<Sema::AlignPackInfo>::Act(SourceLocation PragmaLocation,
|
|
PragmaMsStackAction Action,
|
|
llvm::StringRef StackSlotLabel,
|
|
AlignPackInfo Value) {
|
|
if (Action == PSK_Reset) {
|
|
CurrentValue = DefaultValue;
|
|
CurrentPragmaLocation = PragmaLocation;
|
|
return;
|
|
}
|
|
if (Action & PSK_Push)
|
|
Stack.emplace_back(Slot(StackSlotLabel, CurrentValue, CurrentPragmaLocation,
|
|
PragmaLocation));
|
|
else if (Action & PSK_Pop) {
|
|
if (!StackSlotLabel.empty()) {
|
|
// If we've got a label, try to find it and jump there.
|
|
auto I = llvm::find_if(llvm::reverse(Stack), [&](const Slot &x) {
|
|
return x.StackSlotLabel == StackSlotLabel;
|
|
});
|
|
// We found the label, so pop from there.
|
|
if (I != Stack.rend()) {
|
|
CurrentValue = I->Value;
|
|
CurrentPragmaLocation = I->PragmaLocation;
|
|
Stack.erase(std::prev(I.base()), Stack.end());
|
|
}
|
|
} else if (Value.IsXLStack() && Value.IsAlignAttr() &&
|
|
CurrentValue.IsPackAttr()) {
|
|
// XL '#pragma align(reset)' would pop the stack until
|
|
// a current in effect pragma align is popped.
|
|
auto I = llvm::find_if(llvm::reverse(Stack), [&](const Slot &x) {
|
|
return x.Value.IsAlignAttr();
|
|
});
|
|
// If we found pragma align so pop from there.
|
|
if (I != Stack.rend()) {
|
|
Stack.erase(std::prev(I.base()), Stack.end());
|
|
if (Stack.empty()) {
|
|
CurrentValue = DefaultValue;
|
|
CurrentPragmaLocation = PragmaLocation;
|
|
} else {
|
|
CurrentValue = Stack.back().Value;
|
|
CurrentPragmaLocation = Stack.back().PragmaLocation;
|
|
Stack.pop_back();
|
|
}
|
|
}
|
|
} else if (!Stack.empty()) {
|
|
// xl '#pragma align' sets the baseline, and `#pragma pack` cannot pop
|
|
// over the baseline.
|
|
if (Value.IsXLStack() && Value.IsPackAttr() && CurrentValue.IsAlignAttr())
|
|
return;
|
|
|
|
// We don't have a label, just pop the last entry.
|
|
CurrentValue = Stack.back().Value;
|
|
CurrentPragmaLocation = Stack.back().PragmaLocation;
|
|
Stack.pop_back();
|
|
}
|
|
}
|
|
if (Action & PSK_Set) {
|
|
CurrentValue = Value;
|
|
CurrentPragmaLocation = PragmaLocation;
|
|
}
|
|
}
|
|
|
|
bool Sema::UnifySection(StringRef SectionName, int SectionFlags,
|
|
NamedDecl *Decl) {
|
|
SourceLocation PragmaLocation;
|
|
if (auto A = Decl->getAttr<SectionAttr>())
|
|
if (A->isImplicit())
|
|
PragmaLocation = A->getLocation();
|
|
auto SectionIt = Context.SectionInfos.find(SectionName);
|
|
if (SectionIt == Context.SectionInfos.end()) {
|
|
Context.SectionInfos[SectionName] =
|
|
ASTContext::SectionInfo(Decl, PragmaLocation, SectionFlags);
|
|
return false;
|
|
}
|
|
// A pre-declared section takes precedence w/o diagnostic.
|
|
const auto &Section = SectionIt->second;
|
|
if (Section.SectionFlags == SectionFlags ||
|
|
((SectionFlags & ASTContext::PSF_Implicit) &&
|
|
!(Section.SectionFlags & ASTContext::PSF_Implicit)))
|
|
return false;
|
|
Diag(Decl->getLocation(), diag::err_section_conflict) << Decl << Section;
|
|
if (Section.Decl)
|
|
Diag(Section.Decl->getLocation(), diag::note_declared_at)
|
|
<< Section.Decl->getName();
|
|
if (PragmaLocation.isValid())
|
|
Diag(PragmaLocation, diag::note_pragma_entered_here);
|
|
if (Section.PragmaSectionLocation.isValid())
|
|
Diag(Section.PragmaSectionLocation, diag::note_pragma_entered_here);
|
|
return true;
|
|
}
|
|
|
|
bool Sema::UnifySection(StringRef SectionName,
|
|
int SectionFlags,
|
|
SourceLocation PragmaSectionLocation) {
|
|
auto SectionIt = Context.SectionInfos.find(SectionName);
|
|
if (SectionIt != Context.SectionInfos.end()) {
|
|
const auto &Section = SectionIt->second;
|
|
if (Section.SectionFlags == SectionFlags)
|
|
return false;
|
|
if (!(Section.SectionFlags & ASTContext::PSF_Implicit)) {
|
|
Diag(PragmaSectionLocation, diag::err_section_conflict)
|
|
<< "this" << Section;
|
|
if (Section.Decl)
|
|
Diag(Section.Decl->getLocation(), diag::note_declared_at)
|
|
<< Section.Decl->getName();
|
|
if (Section.PragmaSectionLocation.isValid())
|
|
Diag(Section.PragmaSectionLocation, diag::note_pragma_entered_here);
|
|
return true;
|
|
}
|
|
}
|
|
Context.SectionInfos[SectionName] =
|
|
ASTContext::SectionInfo(nullptr, PragmaSectionLocation, SectionFlags);
|
|
return false;
|
|
}
|
|
|
|
/// Called on well formed \#pragma bss_seg().
|
|
void Sema::ActOnPragmaMSSeg(SourceLocation PragmaLocation,
|
|
PragmaMsStackAction Action,
|
|
llvm::StringRef StackSlotLabel,
|
|
StringLiteral *SegmentName,
|
|
llvm::StringRef PragmaName) {
|
|
PragmaStack<StringLiteral *> *Stack =
|
|
llvm::StringSwitch<PragmaStack<StringLiteral *> *>(PragmaName)
|
|
.Case("data_seg", &DataSegStack)
|
|
.Case("bss_seg", &BSSSegStack)
|
|
.Case("const_seg", &ConstSegStack)
|
|
.Case("code_seg", &CodeSegStack);
|
|
if (Action & PSK_Pop && Stack->Stack.empty())
|
|
Diag(PragmaLocation, diag::warn_pragma_pop_failed) << PragmaName
|
|
<< "stack empty";
|
|
if (SegmentName) {
|
|
if (!checkSectionName(SegmentName->getBeginLoc(), SegmentName->getString()))
|
|
return;
|
|
|
|
if (SegmentName->getString() == ".drectve" &&
|
|
Context.getTargetInfo().getCXXABI().isMicrosoft())
|
|
Diag(PragmaLocation, diag::warn_attribute_section_drectve) << PragmaName;
|
|
}
|
|
|
|
Stack->Act(PragmaLocation, Action, StackSlotLabel, SegmentName);
|
|
}
|
|
|
|
/// Called on well formed \#pragma bss_seg().
|
|
void Sema::ActOnPragmaMSSection(SourceLocation PragmaLocation,
|
|
int SectionFlags, StringLiteral *SegmentName) {
|
|
UnifySection(SegmentName->getString(), SectionFlags, PragmaLocation);
|
|
}
|
|
|
|
void Sema::ActOnPragmaMSInitSeg(SourceLocation PragmaLocation,
|
|
StringLiteral *SegmentName) {
|
|
// There's no stack to maintain, so we just have a current section. When we
|
|
// see the default section, reset our current section back to null so we stop
|
|
// tacking on unnecessary attributes.
|
|
CurInitSeg = SegmentName->getString() == ".CRT$XCU" ? nullptr : SegmentName;
|
|
CurInitSegLoc = PragmaLocation;
|
|
}
|
|
|
|
void Sema::ActOnPragmaUnused(const Token &IdTok, Scope *curScope,
|
|
SourceLocation PragmaLoc) {
|
|
|
|
IdentifierInfo *Name = IdTok.getIdentifierInfo();
|
|
LookupResult Lookup(*this, Name, IdTok.getLocation(), LookupOrdinaryName);
|
|
LookupParsedName(Lookup, curScope, nullptr, true);
|
|
|
|
if (Lookup.empty()) {
|
|
Diag(PragmaLoc, diag::warn_pragma_unused_undeclared_var)
|
|
<< Name << SourceRange(IdTok.getLocation());
|
|
return;
|
|
}
|
|
|
|
VarDecl *VD = Lookup.getAsSingle<VarDecl>();
|
|
if (!VD) {
|
|
Diag(PragmaLoc, diag::warn_pragma_unused_expected_var_arg)
|
|
<< Name << SourceRange(IdTok.getLocation());
|
|
return;
|
|
}
|
|
|
|
// Warn if this was used before being marked unused.
|
|
if (VD->isUsed())
|
|
Diag(PragmaLoc, diag::warn_used_but_marked_unused) << Name;
|
|
|
|
VD->addAttr(UnusedAttr::CreateImplicit(Context, IdTok.getLocation(),
|
|
AttributeCommonInfo::AS_Pragma,
|
|
UnusedAttr::GNU_unused));
|
|
}
|
|
|
|
void Sema::AddCFAuditedAttribute(Decl *D) {
|
|
IdentifierInfo *Ident;
|
|
SourceLocation Loc;
|
|
std::tie(Ident, Loc) = PP.getPragmaARCCFCodeAuditedInfo();
|
|
if (!Loc.isValid()) return;
|
|
|
|
// Don't add a redundant or conflicting attribute.
|
|
if (D->hasAttr<CFAuditedTransferAttr>() ||
|
|
D->hasAttr<CFUnknownTransferAttr>())
|
|
return;
|
|
|
|
AttributeCommonInfo Info(Ident, SourceRange(Loc),
|
|
AttributeCommonInfo::AS_Pragma);
|
|
D->addAttr(CFAuditedTransferAttr::CreateImplicit(Context, Info));
|
|
}
|
|
|
|
namespace {
|
|
|
|
Optional<attr::SubjectMatchRule>
|
|
getParentAttrMatcherRule(attr::SubjectMatchRule Rule) {
|
|
using namespace attr;
|
|
switch (Rule) {
|
|
default:
|
|
return None;
|
|
#define ATTR_MATCH_RULE(Value, Spelling, IsAbstract)
|
|
#define ATTR_MATCH_SUB_RULE(Value, Spelling, IsAbstract, Parent, IsNegated) \
|
|
case Value: \
|
|
return Parent;
|
|
#include "clang/Basic/AttrSubMatchRulesList.inc"
|
|
}
|
|
}
|
|
|
|
bool isNegatedAttrMatcherSubRule(attr::SubjectMatchRule Rule) {
|
|
using namespace attr;
|
|
switch (Rule) {
|
|
default:
|
|
return false;
|
|
#define ATTR_MATCH_RULE(Value, Spelling, IsAbstract)
|
|
#define ATTR_MATCH_SUB_RULE(Value, Spelling, IsAbstract, Parent, IsNegated) \
|
|
case Value: \
|
|
return IsNegated;
|
|
#include "clang/Basic/AttrSubMatchRulesList.inc"
|
|
}
|
|
}
|
|
|
|
CharSourceRange replacementRangeForListElement(const Sema &S,
|
|
SourceRange Range) {
|
|
// Make sure that the ',' is removed as well.
|
|
SourceLocation AfterCommaLoc = Lexer::findLocationAfterToken(
|
|
Range.getEnd(), tok::comma, S.getSourceManager(), S.getLangOpts(),
|
|
/*SkipTrailingWhitespaceAndNewLine=*/false);
|
|
if (AfterCommaLoc.isValid())
|
|
return CharSourceRange::getCharRange(Range.getBegin(), AfterCommaLoc);
|
|
else
|
|
return CharSourceRange::getTokenRange(Range);
|
|
}
|
|
|
|
std::string
|
|
attrMatcherRuleListToString(ArrayRef<attr::SubjectMatchRule> Rules) {
|
|
std::string Result;
|
|
llvm::raw_string_ostream OS(Result);
|
|
for (const auto &I : llvm::enumerate(Rules)) {
|
|
if (I.index())
|
|
OS << (I.index() == Rules.size() - 1 ? ", and " : ", ");
|
|
OS << "'" << attr::getSubjectMatchRuleSpelling(I.value()) << "'";
|
|
}
|
|
return OS.str();
|
|
}
|
|
|
|
} // end anonymous namespace
|
|
|
|
void Sema::ActOnPragmaAttributeAttribute(
|
|
ParsedAttr &Attribute, SourceLocation PragmaLoc,
|
|
attr::ParsedSubjectMatchRuleSet Rules) {
|
|
Attribute.setIsPragmaClangAttribute();
|
|
SmallVector<attr::SubjectMatchRule, 4> SubjectMatchRules;
|
|
// Gather the subject match rules that are supported by the attribute.
|
|
SmallVector<std::pair<attr::SubjectMatchRule, bool>, 4>
|
|
StrictSubjectMatchRuleSet;
|
|
Attribute.getMatchRules(LangOpts, StrictSubjectMatchRuleSet);
|
|
|
|
// Figure out which subject matching rules are valid.
|
|
if (StrictSubjectMatchRuleSet.empty()) {
|
|
// Check for contradicting match rules. Contradicting match rules are
|
|
// either:
|
|
// - a top-level rule and one of its sub-rules. E.g. variable and
|
|
// variable(is_parameter).
|
|
// - a sub-rule and a sibling that's negated. E.g.
|
|
// variable(is_thread_local) and variable(unless(is_parameter))
|
|
llvm::SmallDenseMap<int, std::pair<int, SourceRange>, 2>
|
|
RulesToFirstSpecifiedNegatedSubRule;
|
|
for (const auto &Rule : Rules) {
|
|
attr::SubjectMatchRule MatchRule = attr::SubjectMatchRule(Rule.first);
|
|
Optional<attr::SubjectMatchRule> ParentRule =
|
|
getParentAttrMatcherRule(MatchRule);
|
|
if (!ParentRule)
|
|
continue;
|
|
auto It = Rules.find(*ParentRule);
|
|
if (It != Rules.end()) {
|
|
// A sub-rule contradicts a parent rule.
|
|
Diag(Rule.second.getBegin(),
|
|
diag::err_pragma_attribute_matcher_subrule_contradicts_rule)
|
|
<< attr::getSubjectMatchRuleSpelling(MatchRule)
|
|
<< attr::getSubjectMatchRuleSpelling(*ParentRule) << It->second
|
|
<< FixItHint::CreateRemoval(
|
|
replacementRangeForListElement(*this, Rule.second));
|
|
// Keep going without removing this rule as it won't change the set of
|
|
// declarations that receive the attribute.
|
|
continue;
|
|
}
|
|
if (isNegatedAttrMatcherSubRule(MatchRule))
|
|
RulesToFirstSpecifiedNegatedSubRule.insert(
|
|
std::make_pair(*ParentRule, Rule));
|
|
}
|
|
bool IgnoreNegatedSubRules = false;
|
|
for (const auto &Rule : Rules) {
|
|
attr::SubjectMatchRule MatchRule = attr::SubjectMatchRule(Rule.first);
|
|
Optional<attr::SubjectMatchRule> ParentRule =
|
|
getParentAttrMatcherRule(MatchRule);
|
|
if (!ParentRule)
|
|
continue;
|
|
auto It = RulesToFirstSpecifiedNegatedSubRule.find(*ParentRule);
|
|
if (It != RulesToFirstSpecifiedNegatedSubRule.end() &&
|
|
It->second != Rule) {
|
|
// Negated sub-rule contradicts another sub-rule.
|
|
Diag(
|
|
It->second.second.getBegin(),
|
|
diag::
|
|
err_pragma_attribute_matcher_negated_subrule_contradicts_subrule)
|
|
<< attr::getSubjectMatchRuleSpelling(
|
|
attr::SubjectMatchRule(It->second.first))
|
|
<< attr::getSubjectMatchRuleSpelling(MatchRule) << Rule.second
|
|
<< FixItHint::CreateRemoval(
|
|
replacementRangeForListElement(*this, It->second.second));
|
|
// Keep going but ignore all of the negated sub-rules.
|
|
IgnoreNegatedSubRules = true;
|
|
RulesToFirstSpecifiedNegatedSubRule.erase(It);
|
|
}
|
|
}
|
|
|
|
if (!IgnoreNegatedSubRules) {
|
|
for (const auto &Rule : Rules)
|
|
SubjectMatchRules.push_back(attr::SubjectMatchRule(Rule.first));
|
|
} else {
|
|
for (const auto &Rule : Rules) {
|
|
if (!isNegatedAttrMatcherSubRule(attr::SubjectMatchRule(Rule.first)))
|
|
SubjectMatchRules.push_back(attr::SubjectMatchRule(Rule.first));
|
|
}
|
|
}
|
|
Rules.clear();
|
|
} else {
|
|
// Each rule in Rules must be a strict subset of the attribute's
|
|
// SubjectMatch rules. I.e. we're allowed to use
|
|
// `apply_to=variables(is_global)` on an attrubute with SubjectList<[Var]>,
|
|
// but should not allow `apply_to=variables` on an attribute which has
|
|
// `SubjectList<[GlobalVar]>`.
|
|
for (const auto &StrictRule : StrictSubjectMatchRuleSet) {
|
|
// First, check for exact match.
|
|
if (Rules.erase(StrictRule.first)) {
|
|
// Add the rule to the set of attribute receivers only if it's supported
|
|
// in the current language mode.
|
|
if (StrictRule.second)
|
|
SubjectMatchRules.push_back(StrictRule.first);
|
|
}
|
|
}
|
|
// Check remaining rules for subset matches.
|
|
auto RulesToCheck = Rules;
|
|
for (const auto &Rule : RulesToCheck) {
|
|
attr::SubjectMatchRule MatchRule = attr::SubjectMatchRule(Rule.first);
|
|
if (auto ParentRule = getParentAttrMatcherRule(MatchRule)) {
|
|
if (llvm::any_of(StrictSubjectMatchRuleSet,
|
|
[ParentRule](const auto &StrictRule) {
|
|
return StrictRule.first == *ParentRule &&
|
|
StrictRule.second; // IsEnabled
|
|
})) {
|
|
SubjectMatchRules.push_back(MatchRule);
|
|
Rules.erase(MatchRule);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!Rules.empty()) {
|
|
auto Diagnostic =
|
|
Diag(PragmaLoc, diag::err_pragma_attribute_invalid_matchers)
|
|
<< Attribute;
|
|
SmallVector<attr::SubjectMatchRule, 2> ExtraRules;
|
|
for (const auto &Rule : Rules) {
|
|
ExtraRules.push_back(attr::SubjectMatchRule(Rule.first));
|
|
Diagnostic << FixItHint::CreateRemoval(
|
|
replacementRangeForListElement(*this, Rule.second));
|
|
}
|
|
Diagnostic << attrMatcherRuleListToString(ExtraRules);
|
|
}
|
|
|
|
if (PragmaAttributeStack.empty()) {
|
|
Diag(PragmaLoc, diag::err_pragma_attr_attr_no_push);
|
|
return;
|
|
}
|
|
|
|
PragmaAttributeStack.back().Entries.push_back(
|
|
{PragmaLoc, &Attribute, std::move(SubjectMatchRules), /*IsUsed=*/false});
|
|
}
|
|
|
|
void Sema::ActOnPragmaAttributeEmptyPush(SourceLocation PragmaLoc,
|
|
const IdentifierInfo *Namespace) {
|
|
PragmaAttributeStack.emplace_back();
|
|
PragmaAttributeStack.back().Loc = PragmaLoc;
|
|
PragmaAttributeStack.back().Namespace = Namespace;
|
|
}
|
|
|
|
void Sema::ActOnPragmaAttributePop(SourceLocation PragmaLoc,
|
|
const IdentifierInfo *Namespace) {
|
|
if (PragmaAttributeStack.empty()) {
|
|
Diag(PragmaLoc, diag::err_pragma_attribute_stack_mismatch) << 1;
|
|
return;
|
|
}
|
|
|
|
// Dig back through the stack trying to find the most recently pushed group
|
|
// that in Namespace. Note that this works fine if no namespace is present,
|
|
// think of push/pops without namespaces as having an implicit "nullptr"
|
|
// namespace.
|
|
for (size_t Index = PragmaAttributeStack.size(); Index;) {
|
|
--Index;
|
|
if (PragmaAttributeStack[Index].Namespace == Namespace) {
|
|
for (const PragmaAttributeEntry &Entry :
|
|
PragmaAttributeStack[Index].Entries) {
|
|
if (!Entry.IsUsed) {
|
|
assert(Entry.Attribute && "Expected an attribute");
|
|
Diag(Entry.Attribute->getLoc(), diag::warn_pragma_attribute_unused)
|
|
<< *Entry.Attribute;
|
|
Diag(PragmaLoc, diag::note_pragma_attribute_region_ends_here);
|
|
}
|
|
}
|
|
PragmaAttributeStack.erase(PragmaAttributeStack.begin() + Index);
|
|
return;
|
|
}
|
|
}
|
|
|
|
if (Namespace)
|
|
Diag(PragmaLoc, diag::err_pragma_attribute_stack_mismatch)
|
|
<< 0 << Namespace->getName();
|
|
else
|
|
Diag(PragmaLoc, diag::err_pragma_attribute_stack_mismatch) << 1;
|
|
}
|
|
|
|
void Sema::AddPragmaAttributes(Scope *S, Decl *D) {
|
|
if (PragmaAttributeStack.empty())
|
|
return;
|
|
for (auto &Group : PragmaAttributeStack) {
|
|
for (auto &Entry : Group.Entries) {
|
|
ParsedAttr *Attribute = Entry.Attribute;
|
|
assert(Attribute && "Expected an attribute");
|
|
assert(Attribute->isPragmaClangAttribute() &&
|
|
"expected #pragma clang attribute");
|
|
|
|
// Ensure that the attribute can be applied to the given declaration.
|
|
bool Applies = false;
|
|
for (const auto &Rule : Entry.MatchRules) {
|
|
if (Attribute->appliesToDecl(D, Rule)) {
|
|
Applies = true;
|
|
break;
|
|
}
|
|
}
|
|
if (!Applies)
|
|
continue;
|
|
Entry.IsUsed = true;
|
|
PragmaAttributeCurrentTargetDecl = D;
|
|
ParsedAttributesView Attrs;
|
|
Attrs.addAtEnd(Attribute);
|
|
ProcessDeclAttributeList(S, D, Attrs);
|
|
PragmaAttributeCurrentTargetDecl = nullptr;
|
|
}
|
|
}
|
|
}
|
|
|
|
void Sema::PrintPragmaAttributeInstantiationPoint() {
|
|
assert(PragmaAttributeCurrentTargetDecl && "Expected an active declaration");
|
|
Diags.Report(PragmaAttributeCurrentTargetDecl->getBeginLoc(),
|
|
diag::note_pragma_attribute_applied_decl_here);
|
|
}
|
|
|
|
void Sema::DiagnoseUnterminatedPragmaAttribute() {
|
|
if (PragmaAttributeStack.empty())
|
|
return;
|
|
Diag(PragmaAttributeStack.back().Loc, diag::err_pragma_attribute_no_pop_eof);
|
|
}
|
|
|
|
void Sema::ActOnPragmaOptimize(bool On, SourceLocation PragmaLoc) {
|
|
if(On)
|
|
OptimizeOffPragmaLocation = SourceLocation();
|
|
else
|
|
OptimizeOffPragmaLocation = PragmaLoc;
|
|
}
|
|
|
|
void Sema::AddRangeBasedOptnone(FunctionDecl *FD) {
|
|
// In the future, check other pragmas if they're implemented (e.g. pragma
|
|
// optimize 0 will probably map to this functionality too).
|
|
if(OptimizeOffPragmaLocation.isValid())
|
|
AddOptnoneAttributeIfNoConflicts(FD, OptimizeOffPragmaLocation);
|
|
}
|
|
|
|
void Sema::AddOptnoneAttributeIfNoConflicts(FunctionDecl *FD,
|
|
SourceLocation Loc) {
|
|
// Don't add a conflicting attribute. No diagnostic is needed.
|
|
if (FD->hasAttr<MinSizeAttr>() || FD->hasAttr<AlwaysInlineAttr>())
|
|
return;
|
|
|
|
// Add attributes only if required. Optnone requires noinline as well, but if
|
|
// either is already present then don't bother adding them.
|
|
if (!FD->hasAttr<OptimizeNoneAttr>())
|
|
FD->addAttr(OptimizeNoneAttr::CreateImplicit(Context, Loc));
|
|
if (!FD->hasAttr<NoInlineAttr>())
|
|
FD->addAttr(NoInlineAttr::CreateImplicit(Context, Loc));
|
|
}
|
|
|
|
typedef std::vector<std::pair<unsigned, SourceLocation> > VisStack;
|
|
enum : unsigned { NoVisibility = ~0U };
|
|
|
|
void Sema::AddPushedVisibilityAttribute(Decl *D) {
|
|
if (!VisContext)
|
|
return;
|
|
|
|
NamedDecl *ND = dyn_cast<NamedDecl>(D);
|
|
if (ND && ND->getExplicitVisibility(NamedDecl::VisibilityForValue))
|
|
return;
|
|
|
|
VisStack *Stack = static_cast<VisStack*>(VisContext);
|
|
unsigned rawType = Stack->back().first;
|
|
if (rawType == NoVisibility) return;
|
|
|
|
VisibilityAttr::VisibilityType type
|
|
= (VisibilityAttr::VisibilityType) rawType;
|
|
SourceLocation loc = Stack->back().second;
|
|
|
|
D->addAttr(VisibilityAttr::CreateImplicit(Context, type, loc));
|
|
}
|
|
|
|
/// FreeVisContext - Deallocate and null out VisContext.
|
|
void Sema::FreeVisContext() {
|
|
delete static_cast<VisStack*>(VisContext);
|
|
VisContext = nullptr;
|
|
}
|
|
|
|
static void PushPragmaVisibility(Sema &S, unsigned type, SourceLocation loc) {
|
|
// Put visibility on stack.
|
|
if (!S.VisContext)
|
|
S.VisContext = new VisStack;
|
|
|
|
VisStack *Stack = static_cast<VisStack*>(S.VisContext);
|
|
Stack->push_back(std::make_pair(type, loc));
|
|
}
|
|
|
|
void Sema::ActOnPragmaVisibility(const IdentifierInfo* VisType,
|
|
SourceLocation PragmaLoc) {
|
|
if (VisType) {
|
|
// Compute visibility to use.
|
|
VisibilityAttr::VisibilityType T;
|
|
if (!VisibilityAttr::ConvertStrToVisibilityType(VisType->getName(), T)) {
|
|
Diag(PragmaLoc, diag::warn_attribute_unknown_visibility) << VisType;
|
|
return;
|
|
}
|
|
PushPragmaVisibility(*this, T, PragmaLoc);
|
|
} else {
|
|
PopPragmaVisibility(false, PragmaLoc);
|
|
}
|
|
}
|
|
|
|
void Sema::ActOnPragmaFPContract(SourceLocation Loc,
|
|
LangOptions::FPModeKind FPC) {
|
|
FPOptionsOverride NewFPFeatures = CurFPFeatureOverrides();
|
|
switch (FPC) {
|
|
case LangOptions::FPM_On:
|
|
NewFPFeatures.setAllowFPContractWithinStatement();
|
|
break;
|
|
case LangOptions::FPM_Fast:
|
|
NewFPFeatures.setAllowFPContractAcrossStatement();
|
|
break;
|
|
case LangOptions::FPM_Off:
|
|
NewFPFeatures.setDisallowFPContract();
|
|
break;
|
|
case LangOptions::FPM_FastHonorPragmas:
|
|
llvm_unreachable("Should not happen");
|
|
}
|
|
FpPragmaStack.Act(Loc, Sema::PSK_Set, StringRef(), NewFPFeatures);
|
|
CurFPFeatures = NewFPFeatures.applyOverrides(getLangOpts());
|
|
}
|
|
|
|
void Sema::ActOnPragmaFPReassociate(SourceLocation Loc, bool IsEnabled) {
|
|
FPOptionsOverride NewFPFeatures = CurFPFeatureOverrides();
|
|
NewFPFeatures.setAllowFPReassociateOverride(IsEnabled);
|
|
FpPragmaStack.Act(Loc, PSK_Set, StringRef(), NewFPFeatures);
|
|
CurFPFeatures = NewFPFeatures.applyOverrides(getLangOpts());
|
|
}
|
|
|
|
void Sema::setRoundingMode(SourceLocation Loc, llvm::RoundingMode FPR) {
|
|
// C2x: 7.6.2p3 If the FE_DYNAMIC mode is specified and FENV_ACCESS is "off",
|
|
// the translator may assume that the default rounding mode is in effect.
|
|
if (FPR == llvm::RoundingMode::Dynamic &&
|
|
!CurFPFeatures.getAllowFEnvAccess() &&
|
|
CurFPFeatures.getFPExceptionMode() == LangOptions::FPE_Ignore)
|
|
FPR = llvm::RoundingMode::NearestTiesToEven;
|
|
|
|
FPOptionsOverride NewFPFeatures = CurFPFeatureOverrides();
|
|
NewFPFeatures.setRoundingModeOverride(FPR);
|
|
FpPragmaStack.Act(Loc, PSK_Set, StringRef(), NewFPFeatures);
|
|
CurFPFeatures = NewFPFeatures.applyOverrides(getLangOpts());
|
|
}
|
|
|
|
void Sema::setExceptionMode(SourceLocation Loc,
|
|
LangOptions::FPExceptionModeKind FPE) {
|
|
FPOptionsOverride NewFPFeatures = CurFPFeatureOverrides();
|
|
NewFPFeatures.setFPExceptionModeOverride(FPE);
|
|
FpPragmaStack.Act(Loc, PSK_Set, StringRef(), NewFPFeatures);
|
|
CurFPFeatures = NewFPFeatures.applyOverrides(getLangOpts());
|
|
}
|
|
|
|
void Sema::ActOnPragmaFEnvAccess(SourceLocation Loc, bool IsEnabled) {
|
|
FPOptionsOverride NewFPFeatures = CurFPFeatureOverrides();
|
|
auto LO = getLangOpts();
|
|
if (IsEnabled) {
|
|
// Verify Microsoft restriction:
|
|
// You can't enable fenv_access unless precise semantics are enabled.
|
|
// Precise semantics can be enabled either by the float_control
|
|
// pragma, or by using the /fp:precise or /fp:strict compiler options
|
|
if (!isPreciseFPEnabled())
|
|
Diag(Loc, diag::err_pragma_fenv_requires_precise);
|
|
NewFPFeatures.setAllowFEnvAccessOverride(true);
|
|
// Enabling FENV access sets the RoundingMode to Dynamic.
|
|
// and ExceptionBehavior to Strict
|
|
NewFPFeatures.setRoundingModeOverride(llvm::RoundingMode::Dynamic);
|
|
NewFPFeatures.setFPExceptionModeOverride(LangOptions::FPE_Strict);
|
|
} else {
|
|
NewFPFeatures.setAllowFEnvAccessOverride(false);
|
|
}
|
|
FpPragmaStack.Act(Loc, PSK_Set, StringRef(), NewFPFeatures);
|
|
CurFPFeatures = NewFPFeatures.applyOverrides(LO);
|
|
}
|
|
|
|
void Sema::ActOnPragmaFPExceptions(SourceLocation Loc,
|
|
LangOptions::FPExceptionModeKind FPE) {
|
|
setExceptionMode(Loc, FPE);
|
|
}
|
|
|
|
void Sema::PushNamespaceVisibilityAttr(const VisibilityAttr *Attr,
|
|
SourceLocation Loc) {
|
|
// Visibility calculations will consider the namespace's visibility.
|
|
// Here we just want to note that we're in a visibility context
|
|
// which overrides any enclosing #pragma context, but doesn't itself
|
|
// contribute visibility.
|
|
PushPragmaVisibility(*this, NoVisibility, Loc);
|
|
}
|
|
|
|
void Sema::PopPragmaVisibility(bool IsNamespaceEnd, SourceLocation EndLoc) {
|
|
if (!VisContext) {
|
|
Diag(EndLoc, diag::err_pragma_pop_visibility_mismatch);
|
|
return;
|
|
}
|
|
|
|
// Pop visibility from stack
|
|
VisStack *Stack = static_cast<VisStack*>(VisContext);
|
|
|
|
const std::pair<unsigned, SourceLocation> *Back = &Stack->back();
|
|
bool StartsWithPragma = Back->first != NoVisibility;
|
|
if (StartsWithPragma && IsNamespaceEnd) {
|
|
Diag(Back->second, diag::err_pragma_push_visibility_mismatch);
|
|
Diag(EndLoc, diag::note_surrounding_namespace_ends_here);
|
|
|
|
// For better error recovery, eat all pushes inside the namespace.
|
|
do {
|
|
Stack->pop_back();
|
|
Back = &Stack->back();
|
|
StartsWithPragma = Back->first != NoVisibility;
|
|
} while (StartsWithPragma);
|
|
} else if (!StartsWithPragma && !IsNamespaceEnd) {
|
|
Diag(EndLoc, diag::err_pragma_pop_visibility_mismatch);
|
|
Diag(Back->second, diag::note_surrounding_namespace_starts_here);
|
|
return;
|
|
}
|
|
|
|
Stack->pop_back();
|
|
// To simplify the implementation, never keep around an empty stack.
|
|
if (Stack->empty())
|
|
FreeVisContext();
|
|
}
|
|
|
|
template <typename Ty>
|
|
static bool checkCommonAttributeFeatures(Sema& S, const Ty *Node,
|
|
const ParsedAttr& A) {
|
|
// Several attributes carry different semantics than the parsing requires, so
|
|
// those are opted out of the common argument checks.
|
|
//
|
|
// We also bail on unknown and ignored attributes because those are handled
|
|
// as part of the target-specific handling logic.
|
|
if (A.getKind() == ParsedAttr::UnknownAttribute)
|
|
return false;
|
|
// Check whether the attribute requires specific language extensions to be
|
|
// enabled.
|
|
if (!A.diagnoseLangOpts(S))
|
|
return true;
|
|
// Check whether the attribute appertains to the given subject.
|
|
if (!A.diagnoseAppertainsTo(S, Node))
|
|
return true;
|
|
// Check whether the attribute is mutually exclusive with other attributes
|
|
// that have already been applied to the declaration.
|
|
if (!A.diagnoseMutualExclusion(S, Node))
|
|
return true;
|
|
// Check whether the attribute exists in the target architecture.
|
|
if (S.CheckAttrTarget(A))
|
|
return true;
|
|
|
|
if (A.hasCustomParsing())
|
|
return false;
|
|
|
|
if (A.getMinArgs() == A.getMaxArgs()) {
|
|
// If there are no optional arguments, then checking for the argument count
|
|
// is trivial.
|
|
if (!A.checkExactlyNumArgs(S, A.getMinArgs()))
|
|
return true;
|
|
} else {
|
|
// There are optional arguments, so checking is slightly more involved.
|
|
if (A.getMinArgs() && !A.checkAtLeastNumArgs(S, A.getMinArgs()))
|
|
return true;
|
|
else if (!A.hasVariadicArg() && A.getMaxArgs() &&
|
|
!A.checkAtMostNumArgs(S, A.getMaxArgs()))
|
|
return true;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
bool Sema::checkCommonAttributeFeatures(const Decl *D, const ParsedAttr &A) {
|
|
return ::checkCommonAttributeFeatures(*this, D, A);
|
|
}
|
|
bool Sema::checkCommonAttributeFeatures(const Stmt *S, const ParsedAttr &A) {
|
|
return ::checkCommonAttributeFeatures(*this, S, A);
|
|
}
|