mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-12-15 04:30:12 +00:00
da4471d726
Patch by Richard (legalize at xmission dot com). Differential Revision: http://reviews.llvm.org/D8154 git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@231617 91177308-0d34-0410-b5e6-96231b3b80d8
918 lines
34 KiB
C++
918 lines
34 KiB
C++
//===- DarwinAsmParser.cpp - Darwin (Mach-O) Assembly Parser --------------===//
|
|
//
|
|
// The LLVM Compiler Infrastructure
|
|
//
|
|
// This file is distributed under the University of Illinois Open Source
|
|
// License. See LICENSE.TXT for details.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "llvm/MC/MCParser/MCAsmParserExtension.h"
|
|
#include "llvm/ADT/StringRef.h"
|
|
#include "llvm/ADT/StringSwitch.h"
|
|
#include "llvm/ADT/Twine.h"
|
|
#include "llvm/MC/MCContext.h"
|
|
#include "llvm/MC/MCParser/MCAsmLexer.h"
|
|
#include "llvm/MC/MCParser/MCAsmParser.h"
|
|
#include "llvm/MC/MCSectionMachO.h"
|
|
#include "llvm/MC/MCStreamer.h"
|
|
#include "llvm/MC/MCSymbol.h"
|
|
#include "llvm/Support/FileSystem.h"
|
|
#include "llvm/Support/MemoryBuffer.h"
|
|
#include "llvm/Support/SourceMgr.h"
|
|
using namespace llvm;
|
|
|
|
namespace {
|
|
|
|
/// \brief Implementation of directive handling which is shared across all
|
|
/// Darwin targets.
|
|
class DarwinAsmParser : public MCAsmParserExtension {
|
|
template<bool (DarwinAsmParser::*HandlerMethod)(StringRef, SMLoc)>
|
|
void addDirectiveHandler(StringRef Directive) {
|
|
MCAsmParser::ExtensionDirectiveHandler Handler = std::make_pair(
|
|
this, HandleDirective<DarwinAsmParser, HandlerMethod>);
|
|
getParser().addDirectiveHandler(Directive, Handler);
|
|
}
|
|
|
|
bool parseSectionSwitch(const char *Segment, const char *Section,
|
|
unsigned TAA = 0, unsigned ImplicitAlign = 0,
|
|
unsigned StubSize = 0);
|
|
|
|
public:
|
|
DarwinAsmParser() {}
|
|
|
|
void Initialize(MCAsmParser &Parser) override {
|
|
// Call the base implementation.
|
|
this->MCAsmParserExtension::Initialize(Parser);
|
|
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveDesc>(".desc");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveIndirectSymbol>(
|
|
".indirect_symbol");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveLsym>(".lsym");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveSubsectionsViaSymbols>(
|
|
".subsections_via_symbols");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveDumpOrLoad>(".dump");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveDumpOrLoad>(".load");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveSection>(".section");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectivePushSection>(
|
|
".pushsection");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectivePopSection>(
|
|
".popsection");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectivePrevious>(".previous");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveSecureLogUnique>(
|
|
".secure_log_unique");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveSecureLogReset>(
|
|
".secure_log_reset");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveTBSS>(".tbss");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveZerofill>(".zerofill");
|
|
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveDataRegion>(
|
|
".data_region");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveDataRegionEnd>(
|
|
".end_data_region");
|
|
|
|
// Special section directives.
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveBss>(".bss");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveConst>(".const");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveConstData>(
|
|
".const_data");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveConstructor>(
|
|
".constructor");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveCString>(
|
|
".cstring");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveData>(".data");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveDestructor>(
|
|
".destructor");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveDyld>(".dyld");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveFVMLibInit0>(
|
|
".fvmlib_init0");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveFVMLibInit1>(
|
|
".fvmlib_init1");
|
|
addDirectiveHandler<
|
|
&DarwinAsmParser::parseSectionDirectiveLazySymbolPointers>(
|
|
".lazy_symbol_pointer");
|
|
addDirectiveHandler<&DarwinAsmParser::parseDirectiveLinkerOption>(
|
|
".linker_option");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveLiteral16>(
|
|
".literal16");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveLiteral4>(
|
|
".literal4");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveLiteral8>(
|
|
".literal8");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveModInitFunc>(
|
|
".mod_init_func");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveModTermFunc>(
|
|
".mod_term_func");
|
|
addDirectiveHandler<
|
|
&DarwinAsmParser::parseSectionDirectiveNonLazySymbolPointers>(
|
|
".non_lazy_symbol_pointer");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCCatClsMeth>(
|
|
".objc_cat_cls_meth");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCCatInstMeth>(
|
|
".objc_cat_inst_meth");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCCategory>(
|
|
".objc_category");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCClass>(
|
|
".objc_class");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCClassNames>(
|
|
".objc_class_names");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCClassVars>(
|
|
".objc_class_vars");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCClsMeth>(
|
|
".objc_cls_meth");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCClsRefs>(
|
|
".objc_cls_refs");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCInstMeth>(
|
|
".objc_inst_meth");
|
|
addDirectiveHandler<
|
|
&DarwinAsmParser::parseSectionDirectiveObjCInstanceVars>(
|
|
".objc_instance_vars");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCMessageRefs>(
|
|
".objc_message_refs");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCMetaClass>(
|
|
".objc_meta_class");
|
|
addDirectiveHandler<
|
|
&DarwinAsmParser::parseSectionDirectiveObjCMethVarNames>(
|
|
".objc_meth_var_names");
|
|
addDirectiveHandler<
|
|
&DarwinAsmParser::parseSectionDirectiveObjCMethVarTypes>(
|
|
".objc_meth_var_types");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCModuleInfo>(
|
|
".objc_module_info");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCProtocol>(
|
|
".objc_protocol");
|
|
addDirectiveHandler<
|
|
&DarwinAsmParser::parseSectionDirectiveObjCSelectorStrs>(
|
|
".objc_selector_strs");
|
|
addDirectiveHandler<
|
|
&DarwinAsmParser::parseSectionDirectiveObjCStringObject>(
|
|
".objc_string_object");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveObjCSymbols>(
|
|
".objc_symbols");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectivePICSymbolStub>(
|
|
".picsymbol_stub");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveStaticConst>(
|
|
".static_const");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveStaticData>(
|
|
".static_data");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveSymbolStub>(
|
|
".symbol_stub");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveTData>(".tdata");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveText>(".text");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveThreadInitFunc>(
|
|
".thread_init_func");
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveTLV>(".tlv");
|
|
|
|
addDirectiveHandler<&DarwinAsmParser::parseSectionDirectiveIdent>(".ident");
|
|
addDirectiveHandler<&DarwinAsmParser::parseVersionMin>(".ios_version_min");
|
|
addDirectiveHandler<&DarwinAsmParser::parseVersionMin>(
|
|
".macosx_version_min");
|
|
}
|
|
|
|
bool parseDirectiveDesc(StringRef, SMLoc);
|
|
bool parseDirectiveIndirectSymbol(StringRef, SMLoc);
|
|
bool parseDirectiveDumpOrLoad(StringRef, SMLoc);
|
|
bool parseDirectiveLsym(StringRef, SMLoc);
|
|
bool parseDirectiveLinkerOption(StringRef, SMLoc);
|
|
bool parseDirectiveSection(StringRef, SMLoc);
|
|
bool parseDirectivePushSection(StringRef, SMLoc);
|
|
bool parseDirectivePopSection(StringRef, SMLoc);
|
|
bool parseDirectivePrevious(StringRef, SMLoc);
|
|
bool parseDirectiveSecureLogReset(StringRef, SMLoc);
|
|
bool parseDirectiveSecureLogUnique(StringRef, SMLoc);
|
|
bool parseDirectiveSubsectionsViaSymbols(StringRef, SMLoc);
|
|
bool parseDirectiveTBSS(StringRef, SMLoc);
|
|
bool parseDirectiveZerofill(StringRef, SMLoc);
|
|
bool parseDirectiveDataRegion(StringRef, SMLoc);
|
|
bool parseDirectiveDataRegionEnd(StringRef, SMLoc);
|
|
|
|
// Named Section Directive
|
|
bool parseSectionDirectiveBss(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__DATA", "__bss");
|
|
}
|
|
|
|
bool parseSectionDirectiveConst(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT", "__const");
|
|
}
|
|
bool parseSectionDirectiveStaticConst(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT", "__static_const");
|
|
}
|
|
bool parseSectionDirectiveCString(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT","__cstring",
|
|
MachO::S_CSTRING_LITERALS);
|
|
}
|
|
bool parseSectionDirectiveLiteral4(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT", "__literal4",
|
|
MachO::S_4BYTE_LITERALS, 4);
|
|
}
|
|
bool parseSectionDirectiveLiteral8(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT", "__literal8",
|
|
MachO::S_8BYTE_LITERALS, 8);
|
|
}
|
|
bool parseSectionDirectiveLiteral16(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT","__literal16",
|
|
MachO::S_16BYTE_LITERALS, 16);
|
|
}
|
|
bool parseSectionDirectiveConstructor(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT","__constructor");
|
|
}
|
|
bool parseSectionDirectiveDestructor(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT","__destructor");
|
|
}
|
|
bool parseSectionDirectiveFVMLibInit0(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT","__fvmlib_init0");
|
|
}
|
|
bool parseSectionDirectiveFVMLibInit1(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT","__fvmlib_init1");
|
|
}
|
|
bool parseSectionDirectiveSymbolStub(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT","__symbol_stub",
|
|
MachO::S_SYMBOL_STUBS |
|
|
MachO::S_ATTR_PURE_INSTRUCTIONS,
|
|
// FIXME: Different on PPC and ARM.
|
|
0, 16);
|
|
}
|
|
bool parseSectionDirectivePICSymbolStub(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT","__picsymbol_stub",
|
|
MachO::S_SYMBOL_STUBS |
|
|
MachO::S_ATTR_PURE_INSTRUCTIONS, 0, 26);
|
|
}
|
|
bool parseSectionDirectiveData(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__DATA", "__data");
|
|
}
|
|
bool parseSectionDirectiveStaticData(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__DATA", "__static_data");
|
|
}
|
|
bool parseSectionDirectiveNonLazySymbolPointers(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__DATA", "__nl_symbol_ptr",
|
|
MachO::S_NON_LAZY_SYMBOL_POINTERS, 4);
|
|
}
|
|
bool parseSectionDirectiveLazySymbolPointers(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__DATA", "__la_symbol_ptr",
|
|
MachO::S_LAZY_SYMBOL_POINTERS, 4);
|
|
}
|
|
bool parseSectionDirectiveDyld(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__DATA", "__dyld");
|
|
}
|
|
bool parseSectionDirectiveModInitFunc(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__DATA", "__mod_init_func",
|
|
MachO::S_MOD_INIT_FUNC_POINTERS, 4);
|
|
}
|
|
bool parseSectionDirectiveModTermFunc(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__DATA", "__mod_term_func",
|
|
MachO::S_MOD_TERM_FUNC_POINTERS, 4);
|
|
}
|
|
bool parseSectionDirectiveConstData(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__DATA", "__const");
|
|
}
|
|
bool parseSectionDirectiveObjCClass(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__class",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCMetaClass(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__meta_class",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCCatClsMeth(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__cat_cls_meth",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCCatInstMeth(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__cat_inst_meth",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCProtocol(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__protocol",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCStringObject(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__string_object",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCClsMeth(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__cls_meth",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCInstMeth(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__inst_meth",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCClsRefs(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__cls_refs",
|
|
MachO::S_ATTR_NO_DEAD_STRIP |
|
|
MachO::S_LITERAL_POINTERS, 4);
|
|
}
|
|
bool parseSectionDirectiveObjCMessageRefs(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__message_refs",
|
|
MachO::S_ATTR_NO_DEAD_STRIP |
|
|
MachO::S_LITERAL_POINTERS, 4);
|
|
}
|
|
bool parseSectionDirectiveObjCSymbols(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__symbols",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCCategory(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__category",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCClassVars(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__class_vars",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCInstanceVars(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__instance_vars",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCModuleInfo(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__module_info",
|
|
MachO::S_ATTR_NO_DEAD_STRIP);
|
|
}
|
|
bool parseSectionDirectiveObjCClassNames(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT", "__cstring",
|
|
MachO::S_CSTRING_LITERALS);
|
|
}
|
|
bool parseSectionDirectiveObjCMethVarTypes(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT", "__cstring",
|
|
MachO::S_CSTRING_LITERALS);
|
|
}
|
|
bool parseSectionDirectiveObjCMethVarNames(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT", "__cstring",
|
|
MachO::S_CSTRING_LITERALS);
|
|
}
|
|
bool parseSectionDirectiveObjCSelectorStrs(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__OBJC", "__selector_strs",
|
|
MachO::S_CSTRING_LITERALS);
|
|
}
|
|
bool parseSectionDirectiveTData(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__DATA", "__thread_data",
|
|
MachO::S_THREAD_LOCAL_REGULAR);
|
|
}
|
|
bool parseSectionDirectiveText(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__TEXT", "__text",
|
|
MachO::S_ATTR_PURE_INSTRUCTIONS);
|
|
}
|
|
bool parseSectionDirectiveTLV(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__DATA", "__thread_vars",
|
|
MachO::S_THREAD_LOCAL_VARIABLES);
|
|
}
|
|
bool parseSectionDirectiveIdent(StringRef, SMLoc) {
|
|
// Darwin silently ignores the .ident directive.
|
|
getParser().eatToEndOfStatement();
|
|
return false;
|
|
}
|
|
bool parseSectionDirectiveThreadInitFunc(StringRef, SMLoc) {
|
|
return parseSectionSwitch("__DATA", "__thread_init",
|
|
MachO::S_THREAD_LOCAL_INIT_FUNCTION_POINTERS);
|
|
}
|
|
bool parseVersionMin(StringRef, SMLoc);
|
|
|
|
};
|
|
|
|
} // end anonymous namespace
|
|
|
|
bool DarwinAsmParser::parseSectionSwitch(const char *Segment,
|
|
const char *Section,
|
|
unsigned TAA, unsigned Align,
|
|
unsigned StubSize) {
|
|
if (getLexer().isNot(AsmToken::EndOfStatement))
|
|
return TokError("unexpected token in section switching directive");
|
|
Lex();
|
|
|
|
// FIXME: Arch specific.
|
|
bool isText = TAA & MachO::S_ATTR_PURE_INSTRUCTIONS;
|
|
getStreamer().SwitchSection(getContext().getMachOSection(
|
|
Segment, Section, TAA, StubSize,
|
|
isText ? SectionKind::getText()
|
|
: SectionKind::getDataRel()));
|
|
|
|
// Set the implicit alignment, if any.
|
|
//
|
|
// FIXME: This isn't really what 'as' does; I think it just uses the implicit
|
|
// alignment on the section (e.g., if one manually inserts bytes into the
|
|
// section, then just issuing the section switch directive will not realign
|
|
// the section. However, this is arguably more reasonable behavior, and there
|
|
// is no good reason for someone to intentionally emit incorrectly sized
|
|
// values into the implicitly aligned sections.
|
|
if (Align)
|
|
getStreamer().EmitValueToAlignment(Align);
|
|
|
|
return false;
|
|
}
|
|
|
|
/// parseDirectiveDesc
|
|
/// ::= .desc identifier , expression
|
|
bool DarwinAsmParser::parseDirectiveDesc(StringRef, SMLoc) {
|
|
StringRef Name;
|
|
if (getParser().parseIdentifier(Name))
|
|
return TokError("expected identifier in directive");
|
|
|
|
// Handle the identifier as the key symbol.
|
|
MCSymbol *Sym = getContext().GetOrCreateSymbol(Name);
|
|
|
|
if (getLexer().isNot(AsmToken::Comma))
|
|
return TokError("unexpected token in '.desc' directive");
|
|
Lex();
|
|
|
|
int64_t DescValue;
|
|
if (getParser().parseAbsoluteExpression(DescValue))
|
|
return true;
|
|
|
|
if (getLexer().isNot(AsmToken::EndOfStatement))
|
|
return TokError("unexpected token in '.desc' directive");
|
|
|
|
Lex();
|
|
|
|
// Set the n_desc field of this Symbol to this DescValue
|
|
getStreamer().EmitSymbolDesc(Sym, DescValue);
|
|
|
|
return false;
|
|
}
|
|
|
|
/// parseDirectiveIndirectSymbol
|
|
/// ::= .indirect_symbol identifier
|
|
bool DarwinAsmParser::parseDirectiveIndirectSymbol(StringRef, SMLoc Loc) {
|
|
const MCSectionMachO *Current = static_cast<const MCSectionMachO*>(
|
|
getStreamer().getCurrentSection().first);
|
|
MachO::SectionType SectionType = Current->getType();
|
|
if (SectionType != MachO::S_NON_LAZY_SYMBOL_POINTERS &&
|
|
SectionType != MachO::S_LAZY_SYMBOL_POINTERS &&
|
|
SectionType != MachO::S_SYMBOL_STUBS)
|
|
return Error(Loc, "indirect symbol not in a symbol pointer or stub "
|
|
"section");
|
|
|
|
StringRef Name;
|
|
if (getParser().parseIdentifier(Name))
|
|
return TokError("expected identifier in .indirect_symbol directive");
|
|
|
|
MCSymbol *Sym = getContext().GetOrCreateSymbol(Name);
|
|
|
|
// Assembler local symbols don't make any sense here. Complain loudly.
|
|
if (Sym->isTemporary())
|
|
return TokError("non-local symbol required in directive");
|
|
|
|
if (!getStreamer().EmitSymbolAttribute(Sym, MCSA_IndirectSymbol))
|
|
return TokError("unable to emit indirect symbol attribute for: " + Name);
|
|
|
|
if (getLexer().isNot(AsmToken::EndOfStatement))
|
|
return TokError("unexpected token in '.indirect_symbol' directive");
|
|
|
|
Lex();
|
|
|
|
return false;
|
|
}
|
|
|
|
/// parseDirectiveDumpOrLoad
|
|
/// ::= ( .dump | .load ) "filename"
|
|
bool DarwinAsmParser::parseDirectiveDumpOrLoad(StringRef Directive,
|
|
SMLoc IDLoc) {
|
|
bool IsDump = Directive == ".dump";
|
|
if (getLexer().isNot(AsmToken::String))
|
|
return TokError("expected string in '.dump' or '.load' directive");
|
|
|
|
Lex();
|
|
|
|
if (getLexer().isNot(AsmToken::EndOfStatement))
|
|
return TokError("unexpected token in '.dump' or '.load' directive");
|
|
|
|
Lex();
|
|
|
|
// FIXME: If/when .dump and .load are implemented they will be done in the
|
|
// the assembly parser and not have any need for an MCStreamer API.
|
|
if (IsDump)
|
|
return Warning(IDLoc, "ignoring directive .dump for now");
|
|
else
|
|
return Warning(IDLoc, "ignoring directive .load for now");
|
|
}
|
|
|
|
/// ParseDirectiveLinkerOption
|
|
/// ::= .linker_option "string" ( , "string" )*
|
|
bool DarwinAsmParser::parseDirectiveLinkerOption(StringRef IDVal, SMLoc) {
|
|
SmallVector<std::string, 4> Args;
|
|
for (;;) {
|
|
if (getLexer().isNot(AsmToken::String))
|
|
return TokError("expected string in '" + Twine(IDVal) + "' directive");
|
|
|
|
std::string Data;
|
|
if (getParser().parseEscapedString(Data))
|
|
return true;
|
|
|
|
Args.push_back(Data);
|
|
|
|
Lex();
|
|
if (getLexer().is(AsmToken::EndOfStatement))
|
|
break;
|
|
|
|
if (getLexer().isNot(AsmToken::Comma))
|
|
return TokError("unexpected token in '" + Twine(IDVal) + "' directive");
|
|
Lex();
|
|
}
|
|
|
|
getStreamer().EmitLinkerOptions(Args);
|
|
return false;
|
|
}
|
|
|
|
/// parseDirectiveLsym
|
|
/// ::= .lsym identifier , expression
|
|
bool DarwinAsmParser::parseDirectiveLsym(StringRef, SMLoc) {
|
|
StringRef Name;
|
|
if (getParser().parseIdentifier(Name))
|
|
return TokError("expected identifier in directive");
|
|
|
|
// Handle the identifier as the key symbol.
|
|
MCSymbol *Sym = getContext().GetOrCreateSymbol(Name);
|
|
|
|
if (getLexer().isNot(AsmToken::Comma))
|
|
return TokError("unexpected token in '.lsym' directive");
|
|
Lex();
|
|
|
|
const MCExpr *Value;
|
|
if (getParser().parseExpression(Value))
|
|
return true;
|
|
|
|
if (getLexer().isNot(AsmToken::EndOfStatement))
|
|
return TokError("unexpected token in '.lsym' directive");
|
|
|
|
Lex();
|
|
|
|
// We don't currently support this directive.
|
|
//
|
|
// FIXME: Diagnostic location!
|
|
(void) Sym;
|
|
return TokError("directive '.lsym' is unsupported");
|
|
}
|
|
|
|
/// parseDirectiveSection:
|
|
/// ::= .section identifier (',' identifier)*
|
|
bool DarwinAsmParser::parseDirectiveSection(StringRef, SMLoc) {
|
|
SMLoc Loc = getLexer().getLoc();
|
|
|
|
StringRef SectionName;
|
|
if (getParser().parseIdentifier(SectionName))
|
|
return Error(Loc, "expected identifier after '.section' directive");
|
|
|
|
// Verify there is a following comma.
|
|
if (!getLexer().is(AsmToken::Comma))
|
|
return TokError("unexpected token in '.section' directive");
|
|
|
|
std::string SectionSpec = SectionName;
|
|
SectionSpec += ",";
|
|
|
|
// Add all the tokens until the end of the line, ParseSectionSpecifier will
|
|
// handle this.
|
|
StringRef EOL = getLexer().LexUntilEndOfStatement();
|
|
SectionSpec.append(EOL.begin(), EOL.end());
|
|
|
|
Lex();
|
|
if (getLexer().isNot(AsmToken::EndOfStatement))
|
|
return TokError("unexpected token in '.section' directive");
|
|
Lex();
|
|
|
|
|
|
StringRef Segment, Section;
|
|
unsigned StubSize;
|
|
unsigned TAA;
|
|
bool TAAParsed;
|
|
std::string ErrorStr =
|
|
MCSectionMachO::ParseSectionSpecifier(SectionSpec, Segment, Section,
|
|
TAA, TAAParsed, StubSize);
|
|
|
|
if (!ErrorStr.empty())
|
|
return Error(Loc, ErrorStr.c_str());
|
|
|
|
// FIXME: Arch specific.
|
|
bool isText = Segment == "__TEXT"; // FIXME: Hack.
|
|
getStreamer().SwitchSection(getContext().getMachOSection(
|
|
Segment, Section, TAA, StubSize,
|
|
isText ? SectionKind::getText()
|
|
: SectionKind::getDataRel()));
|
|
return false;
|
|
}
|
|
|
|
/// ParseDirectivePushSection:
|
|
/// ::= .pushsection identifier (',' identifier)*
|
|
bool DarwinAsmParser::parseDirectivePushSection(StringRef S, SMLoc Loc) {
|
|
getStreamer().PushSection();
|
|
|
|
if (parseDirectiveSection(S, Loc)) {
|
|
getStreamer().PopSection();
|
|
return true;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
/// ParseDirectivePopSection:
|
|
/// ::= .popsection
|
|
bool DarwinAsmParser::parseDirectivePopSection(StringRef, SMLoc) {
|
|
if (!getStreamer().PopSection())
|
|
return TokError(".popsection without corresponding .pushsection");
|
|
return false;
|
|
}
|
|
|
|
/// ParseDirectivePrevious:
|
|
/// ::= .previous
|
|
bool DarwinAsmParser::parseDirectivePrevious(StringRef DirName, SMLoc) {
|
|
MCSectionSubPair PreviousSection = getStreamer().getPreviousSection();
|
|
if (!PreviousSection.first)
|
|
return TokError(".previous without corresponding .section");
|
|
getStreamer().SwitchSection(PreviousSection.first, PreviousSection.second);
|
|
return false;
|
|
}
|
|
|
|
/// ParseDirectiveSecureLogUnique
|
|
/// ::= .secure_log_unique ... message ...
|
|
bool DarwinAsmParser::parseDirectiveSecureLogUnique(StringRef, SMLoc IDLoc) {
|
|
StringRef LogMessage = getParser().parseStringToEndOfStatement();
|
|
if (getLexer().isNot(AsmToken::EndOfStatement))
|
|
return TokError("unexpected token in '.secure_log_unique' directive");
|
|
|
|
if (getContext().getSecureLogUsed())
|
|
return Error(IDLoc, ".secure_log_unique specified multiple times");
|
|
|
|
// Get the secure log path.
|
|
const char *SecureLogFile = getContext().getSecureLogFile();
|
|
if (!SecureLogFile)
|
|
return Error(IDLoc, ".secure_log_unique used but AS_SECURE_LOG_FILE "
|
|
"environment variable unset.");
|
|
|
|
// Open the secure log file if we haven't already.
|
|
raw_ostream *OS = getContext().getSecureLog();
|
|
if (!OS) {
|
|
std::error_code EC;
|
|
OS = new raw_fd_ostream(SecureLogFile, EC,
|
|
sys::fs::F_Append | sys::fs::F_Text);
|
|
if (EC) {
|
|
delete OS;
|
|
return Error(IDLoc, Twine("can't open secure log file: ") +
|
|
SecureLogFile + " (" + EC.message() + ")");
|
|
}
|
|
getContext().setSecureLog(OS);
|
|
}
|
|
|
|
// Write the message.
|
|
unsigned CurBuf = getSourceManager().FindBufferContainingLoc(IDLoc);
|
|
*OS << getSourceManager().getBufferInfo(CurBuf).Buffer->getBufferIdentifier()
|
|
<< ":" << getSourceManager().FindLineNumber(IDLoc, CurBuf) << ":"
|
|
<< LogMessage + "\n";
|
|
|
|
getContext().setSecureLogUsed(true);
|
|
|
|
return false;
|
|
}
|
|
|
|
/// ParseDirectiveSecureLogReset
|
|
/// ::= .secure_log_reset
|
|
bool DarwinAsmParser::parseDirectiveSecureLogReset(StringRef, SMLoc IDLoc) {
|
|
if (getLexer().isNot(AsmToken::EndOfStatement))
|
|
return TokError("unexpected token in '.secure_log_reset' directive");
|
|
|
|
Lex();
|
|
|
|
getContext().setSecureLogUsed(false);
|
|
|
|
return false;
|
|
}
|
|
|
|
/// parseDirectiveSubsectionsViaSymbols
|
|
/// ::= .subsections_via_symbols
|
|
bool DarwinAsmParser::parseDirectiveSubsectionsViaSymbols(StringRef, SMLoc) {
|
|
if (getLexer().isNot(AsmToken::EndOfStatement))
|
|
return TokError("unexpected token in '.subsections_via_symbols' directive");
|
|
|
|
Lex();
|
|
|
|
getStreamer().EmitAssemblerFlag(MCAF_SubsectionsViaSymbols);
|
|
|
|
return false;
|
|
}
|
|
|
|
/// ParseDirectiveTBSS
|
|
/// ::= .tbss identifier, size, align
|
|
bool DarwinAsmParser::parseDirectiveTBSS(StringRef, SMLoc) {
|
|
SMLoc IDLoc = getLexer().getLoc();
|
|
StringRef Name;
|
|
if (getParser().parseIdentifier(Name))
|
|
return TokError("expected identifier in directive");
|
|
|
|
// Handle the identifier as the key symbol.
|
|
MCSymbol *Sym = getContext().GetOrCreateSymbol(Name);
|
|
|
|
if (getLexer().isNot(AsmToken::Comma))
|
|
return TokError("unexpected token in directive");
|
|
Lex();
|
|
|
|
int64_t Size;
|
|
SMLoc SizeLoc = getLexer().getLoc();
|
|
if (getParser().parseAbsoluteExpression(Size))
|
|
return true;
|
|
|
|
int64_t Pow2Alignment = 0;
|
|
SMLoc Pow2AlignmentLoc;
|
|
if (getLexer().is(AsmToken::Comma)) {
|
|
Lex();
|
|
Pow2AlignmentLoc = getLexer().getLoc();
|
|
if (getParser().parseAbsoluteExpression(Pow2Alignment))
|
|
return true;
|
|
}
|
|
|
|
if (getLexer().isNot(AsmToken::EndOfStatement))
|
|
return TokError("unexpected token in '.tbss' directive");
|
|
|
|
Lex();
|
|
|
|
if (Size < 0)
|
|
return Error(SizeLoc, "invalid '.tbss' directive size, can't be less than"
|
|
"zero");
|
|
|
|
// FIXME: Diagnose overflow.
|
|
if (Pow2Alignment < 0)
|
|
return Error(Pow2AlignmentLoc, "invalid '.tbss' alignment, can't be less"
|
|
"than zero");
|
|
|
|
if (!Sym->isUndefined())
|
|
return Error(IDLoc, "invalid symbol redefinition");
|
|
|
|
getStreamer().EmitTBSSSymbol(getContext().getMachOSection(
|
|
"__DATA", "__thread_bss",
|
|
MachO::S_THREAD_LOCAL_ZEROFILL,
|
|
0, SectionKind::getThreadBSS()),
|
|
Sym, Size, 1 << Pow2Alignment);
|
|
|
|
return false;
|
|
}
|
|
|
|
/// ParseDirectiveZerofill
|
|
/// ::= .zerofill segname , sectname [, identifier , size_expression [
|
|
/// , align_expression ]]
|
|
bool DarwinAsmParser::parseDirectiveZerofill(StringRef, SMLoc) {
|
|
StringRef Segment;
|
|
if (getParser().parseIdentifier(Segment))
|
|
return TokError("expected segment name after '.zerofill' directive");
|
|
|
|
if (getLexer().isNot(AsmToken::Comma))
|
|
return TokError("unexpected token in directive");
|
|
Lex();
|
|
|
|
StringRef Section;
|
|
if (getParser().parseIdentifier(Section))
|
|
return TokError("expected section name after comma in '.zerofill' "
|
|
"directive");
|
|
|
|
// If this is the end of the line all that was wanted was to create the
|
|
// the section but with no symbol.
|
|
if (getLexer().is(AsmToken::EndOfStatement)) {
|
|
// Create the zerofill section but no symbol
|
|
getStreamer().EmitZerofill(getContext().getMachOSection(
|
|
Segment, Section, MachO::S_ZEROFILL,
|
|
0, SectionKind::getBSS()));
|
|
return false;
|
|
}
|
|
|
|
if (getLexer().isNot(AsmToken::Comma))
|
|
return TokError("unexpected token in directive");
|
|
Lex();
|
|
|
|
SMLoc IDLoc = getLexer().getLoc();
|
|
StringRef IDStr;
|
|
if (getParser().parseIdentifier(IDStr))
|
|
return TokError("expected identifier in directive");
|
|
|
|
// handle the identifier as the key symbol.
|
|
MCSymbol *Sym = getContext().GetOrCreateSymbol(IDStr);
|
|
|
|
if (getLexer().isNot(AsmToken::Comma))
|
|
return TokError("unexpected token in directive");
|
|
Lex();
|
|
|
|
int64_t Size;
|
|
SMLoc SizeLoc = getLexer().getLoc();
|
|
if (getParser().parseAbsoluteExpression(Size))
|
|
return true;
|
|
|
|
int64_t Pow2Alignment = 0;
|
|
SMLoc Pow2AlignmentLoc;
|
|
if (getLexer().is(AsmToken::Comma)) {
|
|
Lex();
|
|
Pow2AlignmentLoc = getLexer().getLoc();
|
|
if (getParser().parseAbsoluteExpression(Pow2Alignment))
|
|
return true;
|
|
}
|
|
|
|
if (getLexer().isNot(AsmToken::EndOfStatement))
|
|
return TokError("unexpected token in '.zerofill' directive");
|
|
|
|
Lex();
|
|
|
|
if (Size < 0)
|
|
return Error(SizeLoc, "invalid '.zerofill' directive size, can't be less "
|
|
"than zero");
|
|
|
|
// NOTE: The alignment in the directive is a power of 2 value, the assembler
|
|
// may internally end up wanting an alignment in bytes.
|
|
// FIXME: Diagnose overflow.
|
|
if (Pow2Alignment < 0)
|
|
return Error(Pow2AlignmentLoc, "invalid '.zerofill' directive alignment, "
|
|
"can't be less than zero");
|
|
|
|
if (!Sym->isUndefined())
|
|
return Error(IDLoc, "invalid symbol redefinition");
|
|
|
|
// Create the zerofill Symbol with Size and Pow2Alignment
|
|
//
|
|
// FIXME: Arch specific.
|
|
getStreamer().EmitZerofill(getContext().getMachOSection(
|
|
Segment, Section, MachO::S_ZEROFILL,
|
|
0, SectionKind::getBSS()),
|
|
Sym, Size, 1 << Pow2Alignment);
|
|
|
|
return false;
|
|
}
|
|
|
|
/// ParseDirectiveDataRegion
|
|
/// ::= .data_region [ ( jt8 | jt16 | jt32 ) ]
|
|
bool DarwinAsmParser::parseDirectiveDataRegion(StringRef, SMLoc) {
|
|
if (getLexer().is(AsmToken::EndOfStatement)) {
|
|
Lex();
|
|
getStreamer().EmitDataRegion(MCDR_DataRegion);
|
|
return false;
|
|
}
|
|
StringRef RegionType;
|
|
SMLoc Loc = getParser().getTok().getLoc();
|
|
if (getParser().parseIdentifier(RegionType))
|
|
return TokError("expected region type after '.data_region' directive");
|
|
int Kind = StringSwitch<int>(RegionType)
|
|
.Case("jt8", MCDR_DataRegionJT8)
|
|
.Case("jt16", MCDR_DataRegionJT16)
|
|
.Case("jt32", MCDR_DataRegionJT32)
|
|
.Default(-1);
|
|
if (Kind == -1)
|
|
return Error(Loc, "unknown region type in '.data_region' directive");
|
|
Lex();
|
|
|
|
getStreamer().EmitDataRegion((MCDataRegionType)Kind);
|
|
return false;
|
|
}
|
|
|
|
/// ParseDirectiveDataRegionEnd
|
|
/// ::= .end_data_region
|
|
bool DarwinAsmParser::parseDirectiveDataRegionEnd(StringRef, SMLoc) {
|
|
if (getLexer().isNot(AsmToken::EndOfStatement))
|
|
return TokError("unexpected token in '.end_data_region' directive");
|
|
|
|
Lex();
|
|
getStreamer().EmitDataRegion(MCDR_DataRegionEnd);
|
|
return false;
|
|
}
|
|
|
|
/// parseVersionMin
|
|
/// ::= .ios_version_min major,minor[,update]
|
|
/// ::= .macosx_version_min major,minor[,update]
|
|
bool DarwinAsmParser::parseVersionMin(StringRef Directive, SMLoc) {
|
|
int64_t Major = 0, Minor = 0, Update = 0;
|
|
int Kind = StringSwitch<int>(Directive)
|
|
.Case(".ios_version_min", MCVM_IOSVersionMin)
|
|
.Case(".macosx_version_min", MCVM_OSXVersionMin);
|
|
// Get the major version number.
|
|
if (getLexer().isNot(AsmToken::Integer))
|
|
return TokError("invalid OS major version number");
|
|
Major = getLexer().getTok().getIntVal();
|
|
if (Major > 65535 || Major <= 0)
|
|
return TokError("invalid OS major version number");
|
|
Lex();
|
|
if (getLexer().isNot(AsmToken::Comma))
|
|
return TokError("minor OS version number required, comma expected");
|
|
Lex();
|
|
// Get the minor version number.
|
|
if (getLexer().isNot(AsmToken::Integer))
|
|
return TokError("invalid OS minor version number");
|
|
Minor = getLexer().getTok().getIntVal();
|
|
if (Minor > 255 || Minor < 0)
|
|
return TokError("invalid OS minor version number");
|
|
Lex();
|
|
// Get the update level, if specified
|
|
if (getLexer().isNot(AsmToken::EndOfStatement)) {
|
|
if (getLexer().isNot(AsmToken::Comma))
|
|
return TokError("invalid update specifier, comma expected");
|
|
Lex();
|
|
if (getLexer().isNot(AsmToken::Integer))
|
|
return TokError("invalid OS update number");
|
|
Update = getLexer().getTok().getIntVal();
|
|
if (Update > 255 || Update < 0)
|
|
return TokError("invalid OS update number");
|
|
Lex();
|
|
}
|
|
|
|
// We've parsed a correct version specifier, so send it to the streamer.
|
|
getStreamer().EmitVersionMin((MCVersionMinType)Kind, Major, Minor, Update);
|
|
|
|
return false;
|
|
}
|
|
|
|
namespace llvm {
|
|
|
|
MCAsmParserExtension *createDarwinAsmParser() {
|
|
return new DarwinAsmParser;
|
|
}
|
|
|
|
} // end llvm namespace
|