maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

Initial checkin of name mangling code moved from linker 

llvm-svn: 1018
This commit is contained in:
Chris Lattner 2001-10-28 23:44:03 +00:00
parent 84085ac517
commit 108d8d46b9
1 changed files with 46 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
llvm/support/lib/Support/NameMangling.cpp Normal file
View File

@ -0,0 +1,46 @@
//===- 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.
//
string MangleTypeName(const Type *Ty) {
string mangledName;
if (Ty->isPrimitiveType()) {
const string &longName = Ty->getDescription();
return string(longName.c_str(), (longName.length() < 2) ? 1 : 2);
} else if (PointerType *PTy = dyn_cast<PointerType>(Ty)) {
mangledName = string("P_" + MangleTypeName(PTy->getValueType()));
} else if (StructType *STy = dyn_cast<StructType>(Ty)) {
mangledName = string("S_");
for (unsigned i=0; i < STy->getNumContainedTypes(); ++i)
mangledName += MangleTypeName(STy->getContainedType(i));
} else if (ArrayType *ATy = dyn_cast<ArrayType>(Ty)) {
mangledName = string("A_" +MangleTypeName(ATy->getElementType()));
} else if (MethodType *MTy = dyn_cast<MethodType>(Ty)) {
mangledName = string("M_") + MangleTypeName(MTy->getReturnType());
for (unsigned i = 1; i < MTy->getNumContainedTypes(); ++i)
mangledName += string(MangleTypeName(MTy->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.
//
string MangleName(const 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()->getValueType()
: V->getType());
}