mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2025-07-11 21:24:33 +00:00
01e770a9e5
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@6305 91177308-0d34-0410-b5e6-96231b3b80d8
47 lines
2.0 KiB
C++
47 lines
2.0 KiB
C++
//===- NameMangling.cpp - Name Mangling for LLVM ----------------------------=//
|
|
//
|
|
// This file implements a consistent scheme for name mangling symbols.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "llvm/Support/NameMangling.h"
|
|
#include "llvm/DerivedTypes.h"
|
|
#include "llvm/GlobalValue.h"
|
|
|
|
// MangleTypeName - Implement a consistent name-mangling scheme for
|
|
// a given type.
|
|
//
|
|
std::string MangleTypeName(const Type *Ty) {
|
|
std::string mangledName;
|
|
if (Ty->isPrimitiveType()) {
|
|
const std::string &longName = Ty->getDescription();
|
|
return std::string(longName.c_str(), (longName.length() < 2) ? 1 : 2);
|
|
} else if (const PointerType *PTy = dyn_cast<PointerType>(Ty)) {
|
|
mangledName = std::string("P_" + MangleTypeName(PTy->getElementType()));
|
|
} else if (const StructType *STy = dyn_cast<StructType>(Ty)) {
|
|
mangledName = std::string("S_");
|
|
for (unsigned i=0; i < STy->getNumContainedTypes(); ++i)
|
|
mangledName += MangleTypeName(STy->getContainedType(i));
|
|
} else if (const ArrayType *ATy = dyn_cast<ArrayType>(Ty)) {
|
|
mangledName = std::string("A_" +MangleTypeName(ATy->getElementType()));
|
|
} else if (const FunctionType *FTy = dyn_cast<FunctionType>(Ty)) {
|
|
mangledName = std::string("M_") + MangleTypeName(FTy->getReturnType());
|
|
for (unsigned i = 1; i < FTy->getNumContainedTypes(); ++i)
|
|
mangledName += std::string(MangleTypeName(FTy->getContainedType(i)));
|
|
}
|
|
|
|
return mangledName;
|
|
}
|
|
|
|
// mangleName - implement a consistent name-mangling scheme for all
|
|
// externally visible (i.e., global) objects.
|
|
// privateName should be unique within the module.
|
|
//
|
|
std::string MangleName(const std::string &privateName, const Value *V) {
|
|
// Lets drop the P_ before every global name since all globals are ptrs
|
|
return privateName + "_" +
|
|
MangleTypeName(isa<GlobalValue>(V)
|
|
? cast<GlobalValue>(V)->getType()->getElementType()
|
|
: V->getType());
|
|
}
|