6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-28 04:33:05 +00:00
Code Issues Projects Releases Wiki Activity

Added name-mangling routines for future use.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@1003 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Vikram S. Adve 2001-10-28 21:38:02 +00:00
parent d889330869
commit 9466f5113b
3 changed files with 177 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
lib/Linker/LinkModules.cpp
View File

@ -16,6 +16,8 @@
#include "llvm/SymbolTable.h"
#include "llvm/DerivedTypes.h"
#include "llvm/iOther.h"
#include "string"
// Error - Simple wrapper function to conditionally assign to E and return true.
// This just makes error return conditions a little bit simpler...
@ -350,3 +352,60 @@ bool LinkModules(Module *Dest, const Module *Src, string *ErrorMsg = 0) {
return false;
}
// MangleTypeName - Implement a consistent name-mangling scheme for
// a given type.
//
string
MangleTypeName(const Type* type)
{
string mangledName;
if (type->isPrimitiveType())
{
const string& longName = type->getDescription();
mangledName = string(longName.c_str(), (longName.length() < 2)? 1 : 2);
}
else if (type->getPrimitiveID() == Type::PointerTyID)
{
PointerType* ptype = (PointerType*) type;
mangledName = string("P_" + MangleTypeName(ptype->getValueType()));
}
else if (type->getPrimitiveID() == Type::StructTyID)
{
StructType* stype = (StructType*) type;
mangledName = string("S_");
for (unsigned i=0; i < stype->getNumContainedTypes(); ++i)
mangledName += string(MangleTypeName(stype->getContainedType(i)));
}
else if (type->getPrimitiveID() == Type::ArrayTyID)
{
ArrayType* atype = (ArrayType*) type;
mangledName = string("A_" +MangleTypeName(atype->getElementType()));
}
else if (type->getPrimitiveID() == Type::MethodTyID)
{
MethodType* mtype = (MethodType*) type;
mangledName = string("M_") + MangleTypeName(mtype->getReturnType());
for (unsigned i=1; i < mtype->getNumContainedTypes(); ++i)
mangledName += string(MangleTypeName(mtype->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()));
}

59
lib/Transforms/Utils/Linker.cpp
View File

@ -16,6 +16,8 @@
#include "llvm/SymbolTable.h"
#include "llvm/DerivedTypes.h"
#include "llvm/iOther.h"
#include "string"
// Error - Simple wrapper function to conditionally assign to E and return true.
// This just makes error return conditions a little bit simpler...
@ -350,3 +352,60 @@ bool LinkModules(Module *Dest, const Module *Src, string *ErrorMsg = 0) {
return false;
}
// MangleTypeName - Implement a consistent name-mangling scheme for
// a given type.
//
string
MangleTypeName(const Type* type)
{
string mangledName;
if (type->isPrimitiveType())
{
const string& longName = type->getDescription();
mangledName = string(longName.c_str(), (longName.length() < 2)? 1 : 2);
}
else if (type->getPrimitiveID() == Type::PointerTyID)
{
PointerType* ptype = (PointerType*) type;
mangledName = string("P_" + MangleTypeName(ptype->getValueType()));
}
else if (type->getPrimitiveID() == Type::StructTyID)
{
StructType* stype = (StructType*) type;
mangledName = string("S_");
for (unsigned i=0; i < stype->getNumContainedTypes(); ++i)
mangledName += string(MangleTypeName(stype->getContainedType(i)));
}
else if (type->getPrimitiveID() == Type::ArrayTyID)
{
ArrayType* atype = (ArrayType*) type;
mangledName = string("A_" +MangleTypeName(atype->getElementType()));
}
else if (type->getPrimitiveID() == Type::MethodTyID)
{
MethodType* mtype = (MethodType*) type;
mangledName = string("M_") + MangleTypeName(mtype->getReturnType());
for (unsigned i=1; i < mtype->getNumContainedTypes(); ++i)
mangledName += string(MangleTypeName(mtype->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()));
}

59
lib/VMCore/Linker.cpp
View File

@ -16,6 +16,8 @@
#include "llvm/SymbolTable.h"
#include "llvm/DerivedTypes.h"
#include "llvm/iOther.h"
#include "string"
// Error - Simple wrapper function to conditionally assign to E and return true.
// This just makes error return conditions a little bit simpler...
@ -350,3 +352,60 @@ bool LinkModules(Module *Dest, const Module *Src, string *ErrorMsg = 0) {
return false;
}
// MangleTypeName - Implement a consistent name-mangling scheme for
// a given type.
//
string
MangleTypeName(const Type* type)
{
string mangledName;
if (type->isPrimitiveType())
{
const string& longName = type->getDescription();
mangledName = string(longName.c_str(), (longName.length() < 2)? 1 : 2);
}
else if (type->getPrimitiveID() == Type::PointerTyID)
{
PointerType* ptype = (PointerType*) type;
mangledName = string("P_" + MangleTypeName(ptype->getValueType()));
}
else if (type->getPrimitiveID() == Type::StructTyID)
{
StructType* stype = (StructType*) type;
mangledName = string("S_");
for (unsigned i=0; i < stype->getNumContainedTypes(); ++i)
mangledName += string(MangleTypeName(stype->getContainedType(i)));
}
else if (type->getPrimitiveID() == Type::ArrayTyID)
{
ArrayType* atype = (ArrayType*) type;
mangledName = string("A_" +MangleTypeName(atype->getElementType()));
}
else if (type->getPrimitiveID() == Type::MethodTyID)
{
MethodType* mtype = (MethodType*) type;
mangledName = string("M_") + MangleTypeName(mtype->getReturnType());
for (unsigned i=1; i < mtype->getNumContainedTypes(); ++i)
mangledName += string(MangleTypeName(mtype->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()));
}