157 lines
4.0 KiB
C++
157 lines
4.0 KiB
C++
|
//===-- llvm/BinaryFormat/XCOFF.cpp - The XCOFF file format -----*- C++/-*-===//
|
||
|
|
//
|
||
|
|
// 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
|
||
|
|
//
|
||
|
|
//===----------------------------------------------------------------------===//
|
||
|
|
|
||
|
|
#include "llvm/BinaryFormat/XCOFF.h"
|
||
|
|
#include "llvm/ADT/SmallString.h"
|
||
|
|
#include "llvm/ADT/StringRef.h"
|
||
|
|
|
||
|
|
using namespace llvm;
|
||
|
|
|
||
|
|
#define SMC_CASE(A) \
|
||
|
|
case XCOFF::XMC_##A: \
|
||
|
|
return #A;
|
||
|
|
StringRef XCOFF::getMappingClassString(XCOFF::StorageMappingClass SMC) {
|
||
|
|
switch (SMC) {
|
||
|
|
SMC_CASE(PR)
|
||
|
|
SMC_CASE(RO)
|
||
|
|
SMC_CASE(DB)
|
||
|
|
SMC_CASE(GL)
|
||
|
|
SMC_CASE(XO)
|
||
|
|
SMC_CASE(SV)
|
||
|
|
SMC_CASE(SV64)
|
||
|
|
SMC_CASE(SV3264)
|
||
|
|
SMC_CASE(TI)
|
||
|
|
SMC_CASE(TB)
|
||
|
|
SMC_CASE(RW)
|
||
|
|
SMC_CASE(TC0)
|
||
|
|
SMC_CASE(TC)
|
||
|
|
SMC_CASE(TD)
|
||
|
|
SMC_CASE(DS)
|
||
|
|
SMC_CASE(UA)
|
||
|
|
SMC_CASE(BS)
|
||
|
|
SMC_CASE(UC)
|
||
|
|
SMC_CASE(TL)
|
||
|
|
SMC_CASE(UL)
|
||
|
|
SMC_CASE(TE)
|
||
|
|
#undef SMC_CASE
|
||
|
|
}
|
||
|
|
|
||
|
|
// TODO: need to add a test case for "Unknown" and other SMC.
|
||
|
|
return "Unknown";
|
||
|
|
}
|
||
|
|
|
||
|
|
#define RELOC_CASE(A) \
|
||
|
|
case XCOFF::A: \
|
||
|
|
return #A;
|
||
|
|
StringRef XCOFF::getRelocationTypeString(XCOFF::RelocationType Type) {
|
||
|
|
switch (Type) {
|
||
|
|
RELOC_CASE(R_POS)
|
||
|
|
RELOC_CASE(R_RL)
|
||
|
|
RELOC_CASE(R_RLA)
|
||
|
|
RELOC_CASE(R_NEG)
|
||
|
|
RELOC_CASE(R_REL)
|
||
|
|
RELOC_CASE(R_TOC)
|
||
|
|
RELOC_CASE(R_TRL)
|
||
|
|
RELOC_CASE(R_TRLA)
|
||
|
|
RELOC_CASE(R_GL)
|
||
|
|
RELOC_CASE(R_TCL)
|
||
|
|
RELOC_CASE(R_REF)
|
||
|
|
RELOC_CASE(R_BA)
|
||
|
|
RELOC_CASE(R_BR)
|
||
|
|
RELOC_CASE(R_RBA)
|
||
|
|
RELOC_CASE(R_RBR)
|
||
|
|
RELOC_CASE(R_TLS)
|
||
|
|
RELOC_CASE(R_TLS_IE)
|
||
|
|
RELOC_CASE(R_TLS_LD)
|
||
|
|
RELOC_CASE(R_TLS_LE)
|
||
|
|
RELOC_CASE(R_TLSM)
|
||
|
|
RELOC_CASE(R_TLSML)
|
||
|
|
RELOC_CASE(R_TOCU)
|
||
|
|
RELOC_CASE(R_TOCL)
|
||
|
|
}
|
||
|
|
return "Unknown";
|
||
|
|
}
|
||
|
|
|
||
|
|
#define LANG_CASE(A) \
|
||
|
|
case XCOFF::TracebackTable::A: \
|
||
|
|
return #A;
|
||
|
|
|
||
|
|
StringRef XCOFF::getNameForTracebackTableLanguageId(
|
||
|
|
XCOFF::TracebackTable::LanguageID LangId) {
|
||
|
|
switch (LangId) {
|
||
|
|
LANG_CASE(C)
|
||
|
|
LANG_CASE(Fortran)
|
||
|
|
LANG_CASE(Pascal)
|
||
|
|
LANG_CASE(Ada)
|
||
|
|
LANG_CASE(PL1)
|
||
|
|
LANG_CASE(Basic)
|
||
|
|
LANG_CASE(Lisp)
|
||
|
|
LANG_CASE(Cobol)
|
||
|
|
LANG_CASE(Modula2)
|
||
|
|
LANG_CASE(Rpg)
|
||
|
|
LANG_CASE(PL8)
|
||
|
|
LANG_CASE(Assembly)
|
||
|
|
LANG_CASE(Java)
|
||
|
|
LANG_CASE(ObjectiveC)
|
||
|
|
LANG_CASE(CPlusPlus)
|
||
|
|
}
|
||
|
|
return "Unknown";
|
||
|
|
}
|
||
|
|
#undef LANG_CASE
|
||
|
|
|
||
|
|
SmallString<32> XCOFF::parseParmsType(uint32_t Value, unsigned ParmsNum) {
|
||
|
|
SmallString<32> ParmsType;
|
||
|
|
for (unsigned I = 0; I < ParmsNum; ++I) {
|
||
|
|
if (I != 0)
|
||
|
|
ParmsType += ", ";
|
||
|
|
if ((Value & TracebackTable::ParmTypeIsFloatingBit) == 0) {
|
||
|
|
// Fixed parameter type.
|
||
|
|
ParmsType += "i";
|
||
|
|
Value <<= 1;
|
||
|
|
} else {
|
||
|
|
if ((Value & TracebackTable::ParmTypeFloatingIsDoubleBit) == 0)
|
||
|
|
// Float parameter type.
|
||
|
|
ParmsType += "f";
|
||
|
|
else
|
||
|
|
// Double parameter type.
|
||
|
|
ParmsType += "d";
|
||
|
|
|
||
|
|
Value <<= 2;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
assert(Value == 0u && "ParmsType encodes more than ParmsNum parameters.");
|
||
|
|
return ParmsType;
|
||
|
|
}
|
||
|
|
|
||
|
|
SmallString<32> XCOFF::getExtendedTBTableFlagString(uint8_t Flag) {
|
||
|
|
SmallString<32> Res;
|
||
|
|
|
||
|
|
if (Flag & ExtendedTBTableFlag::TB_OS1)
|
||
|
|
Res += "TB_OS1 ";
|
||
|
|
if (Flag & ExtendedTBTableFlag::TB_RESERVED)
|
||
|
|
Res += "TB_RESERVED ";
|
||
|
|
if (Flag & ExtendedTBTableFlag::TB_SSP_CANARY)
|
||
|
|
Res += "TB_SSP_CANARY ";
|
||
|
|
if (Flag & ExtendedTBTableFlag::TB_OS2)
|
||
|
|
Res += "TB_OS2 ";
|
||
|
|
if (Flag & ExtendedTBTableFlag::TB_EH_INFO)
|
||
|
|
Res += "TB_EH_INFO ";
|
||
|
|
if (Flag & ExtendedTBTableFlag::TB_LONGTBTABLE2)
|
||
|
|
Res += "TB_LONGTBTABLE2 ";
|
||
|
|
|
||
|
|
// Two of the bits that haven't got used in the mask.
|
||
|
|
if (Flag & 0x06)
|
||
|
|
Res += "Unknown ";
|
||
|
|
|
||
|
|
// Pop the last space.
|
||
|
|
Res.pop_back();
|
||
|
|
return Res;
|
||
|
|
}
|
||
|
|
|
||
|
|
#undef RELOC_CASE
|