diff options
Diffstat (limited to 'compiler_and_linker/unsorted/CMangler.c')
| -rw-r--r-- | compiler_and_linker/unsorted/CMangler.c | 713 |
1 files changed, 0 insertions, 713 deletions
diff --git a/compiler_and_linker/unsorted/CMangler.c b/compiler_and_linker/unsorted/CMangler.c deleted file mode 100644 index 615abf5..0000000 --- a/compiler_and_linker/unsorted/CMangler.c +++ /dev/null @@ -1,713 +0,0 @@ -#include "compiler/CMangler.h" -#include "compiler/CError.h" -#include "compiler/CInt64.h" -#include "compiler/CFunc.h" -#include "compiler/CParser.h" -#include "compiler/CTemplateTools.h" -#include "compiler/CompilerTools.h" -#include "compiler/enode.h" -#include "compiler/objects.h" -#include "compiler/scopes.h" -#include "compiler/templates.h" -#include "compiler/types.h" -#include "cos.h" - -HashNameNode *constructor_name_node; -HashNameNode *destructor_name_node; -HashNameNode *asop_name_node; - -// forward decls -static void CMangler_MangleClassName(TypeClass *tclass); -static void CMangler_MangleTypeAppend(Type *type, UInt32 qual); -static void CMangler_MangleArgs(FuncArg *args); - -void CMangler_Setup(void) { - constructor_name_node = GetHashNameNodeExport("__ct"); - destructor_name_node = GetHashNameNodeExport("__dt"); - asop_name_node = GetHashNameNodeExport("__as"); -} - -HashNameNode *CMangler_BasicDtorName(void) { - return GetHashNameNodeExport("__dtb"); -} - -HashNameNode *CMangler_VBaseDtorName(void) { - return GetHashNameNodeExport("__dtv"); -} - -HashNameNode *CMangler_ArrayDtorName(void) { - return GetHashNameNodeExport("__dta"); -} - -HashNameNode *CMangler_SDeleteDtorName(void) { - return GetHashNameNodeExport("__dts"); -} - -HashNameNode *CMangler_DeleteDtorName(void) { - return GetHashNameNodeExport("__dt"); -} - -char *CMangler_GetOperator(HashNameNode *name) { - char *str; - - if (name == asop_name_node) - return "operator="; - - str = name->name; - if (!strcmp(str, "__nw")) return "operator new"; - if (!strcmp(str, "__dl")) return "operator delete"; - if (!strcmp(str, "__nwa")) return "operator new[]"; - if (!strcmp(str, "__dla")) return "operator delete[]"; - if (!strcmp(str, "__pl")) return "operator+"; - if (!strcmp(str, "__mi")) return "operator-"; - if (!strcmp(str, "__ml")) return "operator*"; - if (!strcmp(str, "__dv")) return "operator/"; - if (!strcmp(str, "__md")) return "operator%"; - if (!strcmp(str, "__er")) return "operator^"; - if (!strcmp(str, "__ad")) return "operator&"; - if (!strcmp(str, "__or")) return "operator|"; - if (!strcmp(str, "__co")) return "operator~"; - if (!strcmp(str, "__nt")) return "operator!"; - if (!strcmp(str, "__lt")) return "operator<"; - if (!strcmp(str, "__gt")) return "operator>"; - if (!strcmp(str, "__apl")) return "operator+="; - if (!strcmp(str, "__ami")) return "operator-="; - if (!strcmp(str, "__amu")) return "operator*="; - if (!strcmp(str, "__adv")) return "operator/="; - if (!strcmp(str, "__amd")) return "operator%="; - if (!strcmp(str, "__aer")) return "operator^="; - if (!strcmp(str, "__aad")) return "operator&="; - if (!strcmp(str, "__aor")) return "operator|="; - if (!strcmp(str, "__ls")) return "operator<<"; - if (!strcmp(str, "__rs")) return "operator>>"; - if (!strcmp(str, "__als")) return "operator<<="; - if (!strcmp(str, "__ars")) return "operator>>="; - if (!strcmp(str, "__eq")) return "operator=="; - if (!strcmp(str, "__ne")) return "operator!="; - if (!strcmp(str, "__le")) return "operator<="; - if (!strcmp(str, "__ge")) return "operator>="; - if (!strcmp(str, "__aa")) return "operator&&"; - if (!strcmp(str, "__oo")) return "operator||"; - if (!strcmp(str, "__pp")) return "operator++"; - if (!strcmp(str, "__mm")) return "operator--"; - if (!strcmp(str, "__cm")) return "operator,"; - if (!strcmp(str, "__rm")) return "operator->*"; - if (!strcmp(str, "__rf")) return "operator*"; - if (!strcmp(str, "__cl")) return "operator()"; - if (!strcmp(str, "__vc")) return "operator[]"; - return NULL; -} - -HashNameNode *CMangler_OperatorName(short token) { - switch (token) { - case TK_NEW: return GetHashNameNodeExport("__nw"); - case TK_DELETE: return GetHashNameNodeExport("__dl"); - case TK_NEW_ARRAY: return GetHashNameNodeExport("__nwa"); - case TK_DELETE_ARRAY: return GetHashNameNodeExport("__dla"); - case '+': return GetHashNameNodeExport("__pl"); - case '-': return GetHashNameNodeExport("__mi"); - case '*': return GetHashNameNodeExport("__ml"); - case '/': return GetHashNameNodeExport("__dv"); - case '%': return GetHashNameNodeExport("__md"); - case '^': return GetHashNameNodeExport("__er"); - case '&': return GetHashNameNodeExport("__ad"); - case '|': return GetHashNameNodeExport("__or"); - case '~': return GetHashNameNodeExport("__co"); - case '!': return GetHashNameNodeExport("__nt"); - case '=': return asop_name_node; - case '<': return GetHashNameNodeExport("__lt"); - case '>': return GetHashNameNodeExport("__gt"); - case TK_ADD_ASSIGN: return GetHashNameNodeExport("__apl"); - case TK_SUB_ASSIGN: return GetHashNameNodeExport("__ami"); - case TK_MULT_ASSIGN: return GetHashNameNodeExport("__amu"); - case TK_DIV_ASSIGN: return GetHashNameNodeExport("__adv"); - case TK_MOD_ASSIGN: return GetHashNameNodeExport("__amd"); - case TK_XOR_ASSIGN: return GetHashNameNodeExport("__aer"); - case TK_AND_ASSIGN: return GetHashNameNodeExport("__aad"); - case TK_OR_ASSIGN: return GetHashNameNodeExport("__aor"); - case TK_SHL: return GetHashNameNodeExport("__ls"); - case TK_SHR: return GetHashNameNodeExport("__rs"); - case TK_SHL_ASSIGN: return GetHashNameNodeExport("__als"); - case TK_SHR_ASSIGN: return GetHashNameNodeExport("__ars"); - case TK_LOGICAL_EQ: return GetHashNameNodeExport("__eq"); - case TK_LOGICAL_NE: return GetHashNameNodeExport("__ne"); - case TK_LESS_EQUAL: return GetHashNameNodeExport("__le"); - case TK_GREATER_EQUAL: return GetHashNameNodeExport("__ge"); - case TK_LOGICAL_AND: return GetHashNameNodeExport("__aa"); - case TK_LOGICAL_OR: return GetHashNameNodeExport("__oo"); - case TK_INCREMENT: return GetHashNameNodeExport("__pp"); - case TK_DECREMENT: return GetHashNameNodeExport("__mm"); - case ',': return GetHashNameNodeExport("__cm"); - case TK_ARROW_STAR: return GetHashNameNodeExport("__rm"); - case TK_ARROW: return GetHashNameNodeExport("__rf"); - case '(': return GetHashNameNodeExport("__cl"); - case '[': return GetHashNameNodeExport("__vc"); - default: return NULL; - } -} - -HashNameNode *CMangler_VTableName(TypeClass *theclass) { - HashNameNode *name; - - name_mangle_list.size = 0; - AppendGListName(&name_mangle_list, "__vt__"); - CMangler_MangleClassName(theclass); - AppendGListByte(&name_mangle_list, 0); - COS_LockHandle(name_mangle_list.data); - name = GetHashNameNodeExport(*name_mangle_list.data); - COS_UnlockHandle(name_mangle_list.data); - return name; -} - -HashNameNode *CMangler_RTTIObjectName(Type *type, UInt32 qual) { - HashNameNode *name; - - name_mangle_list.size = 0; - AppendGListName(&name_mangle_list, "__RTTI__"); - CMangler_MangleTypeAppend(type, qual); - AppendGListByte(&name_mangle_list, 0); - COS_LockHandle(name_mangle_list.data); - name = GetHashNameNodeExport(*name_mangle_list.data); - COS_UnlockHandle(name_mangle_list.data); - return name; -} - -HashNameNode *CMangler_ThunkName(Object *vfunc, SInt32 this_delta, SInt32 return_delta, SInt32 ctoroffset) { - HashNameNode *linkname; - HashNameNode *name; - char buf[64]; - - linkname = CMangler_GetLinkName(vfunc); - name_mangle_list.size = 0; - if (return_delta == 0) { - if (ctoroffset < 0) - sprintf(buf, "_@%" PRId32 "@", -this_delta); - else - sprintf(buf, "_@%" PRId32 "@%" PRId32 "@", -this_delta, ctoroffset); - } else { - sprintf(buf, "_@%" PRId32 "@%" PRId32 "@%" PRId32 "@", -this_delta, ctoroffset, return_delta); - } - AppendGListName(&name_mangle_list, buf); - AppendGListID(&name_mangle_list, linkname->name + 1); - COS_LockHandle(name_mangle_list.data); - name = GetHashNameNodeExport(*name_mangle_list.data); - COS_UnlockHandle(name_mangle_list.data); - return name; -} - -static void CMangler_CheckTemplateArguments(TemplArg *arg) { - ENode *expr; - - while (arg) { - if (arg->pid.type == TPT_NONTYPE) { - expr = arg->data.paramdecl.expr; - CError_ASSERT(360, expr); - if (expr->rtype->type != TYPETEMPLDEPEXPR) { - switch (expr->type) { - case EINTCONST: - break; - case EOBJREF: - CMangler_GetLinkName(expr->data.objref); - break; - default: - CError_FATAL(383); - } - } - } - arg = arg->next; - } -} - -static void CMangler_AppendTemplateArgumentList(TemplArg *arg) { - ENode *expr; - char buf[32]; - - AppendGListByte(&name_mangle_list, '<'); - - while (arg) { - if (arg->pid.type == TPT_NONTYPE) { - expr = arg->data.paramdecl.expr; - CError_ASSERT(409, expr); - if (expr->rtype->type != TYPETEMPLDEPEXPR) { - switch (expr->type) { - case EINTCONST: - CInt64_PrintDec(buf, expr->data.intval); - AppendGListName(&name_mangle_list, buf); - break; - case EOBJREF: - AppendGListByte(&name_mangle_list, '&'); - AppendGListName(&name_mangle_list, CMangler_GetLinkName(expr->data.objref)->name); - break; - default: - CError_FATAL(452); - } - } else { - AppendGListByte(&name_mangle_list, 'T'); - } - } else if (arg->pid.type == TPT_TYPE) { - CMangler_MangleTypeAppend(arg->data.typeparam.type, arg->data.typeparam.qual); - } else { - CError_ASSERT(467, arg->pid.type == TPT_TEMPLATE); - CMangler_MangleTypeAppend(arg->data.ttargtype, 0); - } - - if (arg->next) - AppendGListByte(&name_mangle_list, ','); - arg = arg->next; - } - - AppendGListByte(&name_mangle_list, '>'); -} - -HashNameNode *CMangler_TemplateInstanceName(HashNameNode *basename, TemplArg *args) { - HashNameNode *name; - - CMangler_CheckTemplateArguments(args); - name_mangle_list.size = 0; - AppendGListName(&name_mangle_list, basename->name); - CMangler_AppendTemplateArgumentList(args); - AppendGListByte(&name_mangle_list, 0); - - COS_LockHandle(name_mangle_list.data); - name = GetHashNameNodeExport(*name_mangle_list.data); - COS_UnlockHandle(name_mangle_list.data); - return name; -} - -static void CMangler_MangleTypeName(char *str) { - char buf[16]; - - sprintf(buf, "%d", strlen(str)); - AppendGListName(&name_mangle_list, buf); - AppendGListName(&name_mangle_list, str); -} - -static void CMangler_MangleNameSpaceName(NameSpace *nspace, char *str) { - char *stack[10]; - int stackp; - - stack[0] = str; - stackp = 1; - while (nspace) { - if (nspace->name) { - stack[stackp++] = nspace->name->name; - if (stackp >= 9) - break; - } - nspace = nspace->parent; - } - - if (stackp > 1) { - AppendGListByte(&name_mangle_list, 'Q'); - AppendGListByte(&name_mangle_list, '0' + stackp); - } - - while (--stackp >= 0) - CMangler_MangleTypeName(stack[stackp]); -} - -static void CMangler_MangleClassName(TypeClass *tclass) { - if (!tclass->classname) - CMangler_MangleNameSpaceName(tclass->nspace->parent, "class"); - else - CMangler_MangleNameSpaceName(tclass->nspace->parent, tclass->nspace->name->name); -} - -static void CMangler_MangleQualifier(UInt32 qual) { - if (qual & Q_CONST) - AppendGListByte(&name_mangle_list, 'C'); - if (qual & Q_VOLATILE) - AppendGListByte(&name_mangle_list, 'V'); -} - -static void CMangler_MangleTypeAppend(Type *type, UInt32 qual) { - char buf[16]; - - switch (type->type) { - case TYPEVOID: - CMangler_MangleQualifier(qual); - AppendGListByte(&name_mangle_list, 'v'); - break; - case TYPEINT: - case TYPEFLOAT: - CMangler_MangleQualifier(qual); - switch (TYPE_INTEGRAL(type)->integral) { - case IT_BOOL: - AppendGListByte(&name_mangle_list, 'b'); - return; - case IT_CHAR: - AppendGListByte(&name_mangle_list, 'c'); - return; - case IT_WCHAR_T: - AppendGListByte(&name_mangle_list, 'w'); - return; - case IT_UCHAR: - AppendGListName(&name_mangle_list, "Uc"); - return; - case IT_SCHAR: - AppendGListName(&name_mangle_list, "Sc"); - return; - case IT_SHORT: - AppendGListByte(&name_mangle_list, 's'); - return; - case IT_USHORT: - AppendGListName(&name_mangle_list, "Us"); - return; - case IT_INT: - AppendGListByte(&name_mangle_list, 'i'); - return; - case IT_UINT: - AppendGListName(&name_mangle_list, "Ui"); - return; - case IT_LONG: - AppendGListByte(&name_mangle_list, 'l'); - return; - case IT_ULONG: - AppendGListName(&name_mangle_list, "Ul"); - return; - case IT_LONGLONG: - AppendGListByte(&name_mangle_list, 'x'); - return; - case IT_ULONGLONG: - AppendGListName(&name_mangle_list, "Ux"); - return; - case IT_FLOAT: - AppendGListByte(&name_mangle_list, 'f'); - return; - case IT_SHORTDOUBLE: - AppendGListByte(&name_mangle_list, 'D'); - return; - case IT_DOUBLE: - AppendGListByte(&name_mangle_list, 'd'); - return; - case IT_LONGDOUBLE: - AppendGListByte(&name_mangle_list, 'r'); - return; - default: - CError_FATAL(619); - } - case TYPEENUM: - CMangler_MangleQualifier(qual); - if (!TYPE_ENUM(type)->enumname) - CMangler_MangleNameSpaceName(TYPE_ENUM(type)->nspace, "enum"); - else - CMangler_MangleNameSpaceName(TYPE_ENUM(type)->nspace, TYPE_ENUM(type)->enumname->name); - break; - case TYPEPOINTER: - CMangler_MangleQualifier(TYPE_POINTER(type)->qual); - if (TYPE_POINTER(type)->qual & Q_REFERENCE) - AppendGListByte(&name_mangle_list, 'R'); - else - AppendGListByte(&name_mangle_list, 'P'); - CMangler_MangleTypeAppend(TYPE_POINTER(type)->target, qual); - break; - case TYPEMEMBERPOINTER: - if (TYPE_MEMBER_POINTER(type)->ty2->type != TYPECLASS) { - AppendGListName(&name_mangle_list, "3<T>"); - } else { - CMangler_MangleQualifier(TYPE_MEMBER_POINTER(type)->qual); - AppendGListByte(&name_mangle_list, 'M'); - CMangler_MangleClassName(TYPE_CLASS(TYPE_MEMBER_POINTER(type)->ty2)); - CMangler_MangleTypeAppend(TYPE_MEMBER_POINTER(type)->ty1, qual); - } - break; - case TYPEARRAY: - AppendGListByte(&name_mangle_list, 'A'); - if (TYPE_POINTER(type)->target->size) { - sprintf(buf, "%" PRId32 "", type->size / TYPE_POINTER(type)->target->size); - AppendGListName(&name_mangle_list, buf); - } else { - AppendGListByte(&name_mangle_list, '0'); - } - AppendGListByte(&name_mangle_list, '_'); - CMangler_MangleTypeAppend(TYPE_POINTER(type)->target, qual); - break; - case TYPEFUNC: - CMangler_MangleQualifier(qual); - AppendGListByte(&name_mangle_list, 'F'); - CMangler_MangleArgs(TYPE_FUNC(type)->args); - AppendGListByte(&name_mangle_list, '_'); - CMangler_MangleTypeAppend(TYPE_FUNC(type)->functype, TYPE_FUNC(type)->qual); - break; - case TYPESTRUCT: - CMangler_MangleQualifier(qual); - switch (TYPE_STRUCT(type)->stype) { - case STRUCT_VECTOR_UCHAR: - AppendGListName(&name_mangle_list, "XUc"); - return; - case STRUCT_VECTOR_SCHAR: - AppendGListName(&name_mangle_list, "Xc"); - return; - case STRUCT_VECTOR_BCHAR: - AppendGListName(&name_mangle_list, "XC"); - return; - case STRUCT_VECTOR_USHORT: - AppendGListName(&name_mangle_list, "XUs"); - return; - case STRUCT_VECTOR_SSHORT: - AppendGListName(&name_mangle_list, "Xs"); - return; - case STRUCT_VECTOR_BSHORT: - AppendGListName(&name_mangle_list, "XS"); - return; - case STRUCT_VECTOR_UINT: - AppendGListName(&name_mangle_list, "XUi"); - return; - case STRUCT_VECTOR_SINT: - AppendGListName(&name_mangle_list, "Xi"); - return; - case STRUCT_VECTOR_BINT: - AppendGListName(&name_mangle_list, "XI"); - return; - case STRUCT_VECTOR_FLOAT: - AppendGListName(&name_mangle_list, "Xf"); - return; - case STRUCT_VECTOR_PIXEL: - AppendGListName(&name_mangle_list, "Xp"); - return; - } - - if (TYPE_STRUCT(type)->name && !IsTempName(TYPE_STRUCT(type)->name)) { - CMangler_MangleTypeName(TYPE_STRUCT(type)->name->name); - return; - } - - switch (TYPE_STRUCT(type)->stype) { - case STRUCT_TYPE_STRUCT: - AppendGListName(&name_mangle_list, "struct"); - break; - case STRUCT_TYPE_UNION: - AppendGListName(&name_mangle_list, "union"); - break; - case STRUCT_TYPE_CLASS: - AppendGListName(&name_mangle_list, "class"); - break; - default: - CError_FATAL(701); - } - break; - - case TYPECLASS: - CMangler_MangleQualifier(qual); - CMangler_MangleClassName(TYPE_CLASS(type)); - break; - - case TYPETEMPLATE: - AppendGListName(&name_mangle_list, "1T"); - break; - - default: - CError_FATAL(716); - } -} - -void CMangler_MangleType(Type *type, UInt32 qual) { - name_mangle_list.size = 0; - CMangler_MangleTypeAppend(type, qual); -} - -static void CMangler_MangleArgs(FuncArg *args) { - TypePointer ptr; - - if (args) { - if (args->type) { - while (args) { - if (args != &elipsis && args != &oldstyle) { - if (args->type->type == TYPEPOINTER) { - ptr = *TYPE_POINTER(args->type); - ptr.qual &= ~(Q_CONST | Q_VOLATILE); - CMangler_MangleTypeAppend(TYPE(&ptr), args->qual); - } else { - CMangler_MangleTypeAppend(args->type, 0); - } - } else { - AppendGListByte(&name_mangle_list, 'e'); - } - args = args->next; - } - } else { - AppendGListByte(&name_mangle_list, 'e'); - } - } else { - AppendGListByte(&name_mangle_list, 'v'); - } -} - -static void CMangler_MangleFunction(Object *obj, NameSpace *nspace) { - TypeFunc *tfunc = TYPE_FUNC(obj->type); - FuncArg *arg = tfunc->args; - - AppendGListName(&name_mangle_list, obj->name->name); - if (obj->u.func.inst) { - if (tfunc->flags & FUNC_CONVERSION) - CMangler_MangleTypeAppend(tfunc->functype, tfunc->qual); - CMangler_AppendTemplateArgumentList(obj->u.func.inst->args); - } - AppendGListName(&name_mangle_list, "__"); - while (nspace && nspace->name == NULL) - nspace = nspace->parent; - - if (nspace) { - CMangler_MangleNameSpaceName(nspace->parent, nspace->name->name); - if (nspace->theclass) { - if (obj->name == destructor_name_node) { - AppendGListName(&name_mangle_list, "Fv"); - return; - } - if (arg) { - if (obj->name == constructor_name_node) { - arg = arg->next; - if (arg && (nspace->theclass->flags & CLASS_HAS_VBASES)) - arg = arg->next; - } else { - if ((tfunc->flags & FUNC_METHOD) && !TYPE_METHOD(tfunc)->is_static) { - CMangler_MangleQualifier(arg->qual); - arg = arg->next; - } - } - } - } - } - - AppendGListByte(&name_mangle_list, 'F'); - CMangler_MangleArgs(arg); - if (obj->u.func.inst && copts.new_mangler) { - AppendGListByte(&name_mangle_list, '_'); - CMangler_MangleTypeAppend(tfunc->functype, tfunc->qual); - } -} - -HashNameNode *CMangler_ConversionFuncName(Type *type, UInt32 qual) { - HashNameNode *name; - - if (CTemplTool_IsTemplateArgumentDependentType(type)) - return GetHashNameNodeExport("__op"); - - name_mangle_list.size = 0; - AppendGListName(&name_mangle_list, "__op"); - CMangler_MangleTypeAppend(type, qual); - AppendGListByte(&name_mangle_list, 0); - - COS_LockHandle(name_mangle_list.data); - name = GetHashNameNodeExport(*name_mangle_list.data); - COS_UnlockHandle(name_mangle_list.data); - return name; -} - -static HashNameNode *CMangler_MangleNameToUpper(char *str) { - HashNameNode *name; - - name_mangle_list.size = 0; - while (*str) { - AppendGListByte(&name_mangle_list, toupper(*(str++))); - } - AppendGListByte(&name_mangle_list, 0); - - COS_LockHandle(name_mangle_list.data); - name = GetHashNameNodeExport(*name_mangle_list.data); - COS_UnlockHandle(name_mangle_list.data); - return name; -} - -static HashNameNode *CMangler_FunctionLinkName(Object *obj) { - HashNameNode *name; - NameSpace *nspace; - - if (obj->u.func.inst) - CMangler_CheckTemplateArguments(obj->u.func.inst->args); - - for (nspace = obj->nspace; nspace; nspace = nspace->parent) { - if (nspace->name) - break; - } - - name_mangle_list.size = 0; - if (is_pascal_object(obj) && (!nspace || !nspace->theclass)) { - AppendGListData(&name_mangle_list, "_", 1); - AppendGListID(&name_mangle_list, obj->name->name); - } else if ((obj->qual & Q_MANGLE_NAME) && (strcmp("main", obj->name->name) || (obj->nspace != cscope_root))) { - AppendGListData(&name_mangle_list, "_", 1); - CMangler_MangleFunction(obj, nspace); - AppendGListByte(&name_mangle_list, 0); - } else { - AppendGListData(&name_mangle_list, "_", 1); - AppendGListID(&name_mangle_list, obj->name->name); - } - - COS_LockHandle(name_mangle_list.data); - name = GetHashNameNodeExport(*name_mangle_list.data); - COS_UnlockHandle(name_mangle_list.data); - return name; -} - -HashNameNode *CMangler_GetCovariantFunctionName(Object *dobj, TypeClass *theclass) { - HashNameNode *name; - - name = CMangler_GetLinkName(dobj); - name_mangle_list.size = 0; - AppendGListName(&name_mangle_list, name->name); - AppendGListName(&name_mangle_list, "@@"); - CMangler_MangleTypeAppend(TYPE(theclass), 0); - AppendGListByte(&name_mangle_list, 0); - - COS_LockHandle(name_mangle_list.data); - name = GetHashNameNodeExport(*name_mangle_list.data); - COS_UnlockHandle(name_mangle_list.data); - return name; -} - -static HashNameNode *CMangler_DataLinkName(Object *obj) { - NameSpace *nspace; - HashNameNode *name; - - nspace = obj->nspace; - while (nspace && nspace->name == NULL) - nspace = nspace->parent; - - name_mangle_list.size = 0; - AppendGListData(&name_mangle_list, "_", 1); - AppendGListName(&name_mangle_list, obj->name->name); - - while (nspace && nspace->name == NULL) - nspace = nspace->parent; - if (nspace && (obj->qual & Q_MANGLE_NAME)) { - AppendGListName(&name_mangle_list, "__"); - CMangler_MangleNameSpaceName(nspace->parent, nspace->name->name); - } - AppendGListByte(&name_mangle_list, 0); - - COS_LockHandle(name_mangle_list.data); - name = GetHashNameNodeExport(*name_mangle_list.data); - COS_UnlockHandle(name_mangle_list.data); - return name; -} - -HashNameNode *CMangler_GetLinkName(Object *obj) { - while (obj->datatype == DALIAS) - obj = obj->u.alias.object; - - switch (obj->datatype) { - case DFUNC: - case DVFUNC: - if (!obj->u.func.linkname) - obj->u.func.linkname = CMangler_FunctionLinkName(obj); - return obj->u.func.linkname; - case DDATA: - if (!obj->u.data.linkname) - obj->u.data.linkname = CMangler_DataLinkName(obj); - return obj->u.data.linkname; - case DINLINEFUNC: - return CMangler_FunctionLinkName(obj); - case DLOCAL: - case DABSOLUTE: - case DLABEL: - return obj->name; - case DNONLAZYPTR: - if (!obj->u.toc.linkname) - obj->u.toc.linkname = CMangler_DataLinkName(obj); - return obj->u.toc.linkname; - default: - CError_FATAL(1110); - return NULL; - } -} |