summaryrefslogtreecommitdiff
path: root/compiler_and_linker/unsorted/CBrowse.c
diff options
context:
space:
mode:
authorAsh Wolf <ninji@wuffs.org>2023-01-26 11:30:47 +0000
committerAsh Wolf <ninji@wuffs.org>2023-01-26 11:30:47 +0000
commit094b96ca1df4a035b5f93c351f773306c0241f3f (patch)
tree95ce05e3ebe816c7ee7996206bb37ea17d8ca33c /compiler_and_linker/unsorted/CBrowse.c
parentfc0c4c0df7b583b55a08317cf1ef6a71d27c0440 (diff)
downloadMWCC-094b96ca1df4a035b5f93c351f773306c0241f3f.tar.gz
MWCC-094b96ca1df4a035b5f93c351f773306c0241f3f.zip
move lots of source files around to match their actual placement in the original treemain
Diffstat (limited to 'compiler_and_linker/unsorted/CBrowse.c')
-rw-r--r--compiler_and_linker/unsorted/CBrowse.c737
1 files changed, 0 insertions, 737 deletions
diff --git a/compiler_and_linker/unsorted/CBrowse.c b/compiler_and_linker/unsorted/CBrowse.c
deleted file mode 100644
index 12ea4c8..0000000
--- a/compiler_and_linker/unsorted/CBrowse.c
+++ /dev/null
@@ -1,737 +0,0 @@
-#include "compiler/CBrowse.h"
-#include "compiler/CDecl.h"
-#include "compiler/CError.h"
-#include "compiler/CMangler.h"
-#include "compiler/CParser.h"
-#include "compiler/CPrep.h"
-#include "compiler/CompilerTools.h"
-#include "compiler/Unmangle.h"
-#include "compiler/objects.h"
-#include "compiler/templates.h"
-#include "cos.h"
-#include "plugin.h"
-
-Boolean gUseTokenStreamSource;
-Boolean gForceSourceLoc;
-Boolean gUseNameTable;
-static GList gBrowseData;
-static GList gClassData;
-static GList gMemberFuncList;
-static int gNextMemberFuncID;
-
-enum ELanguage {
- langUnknown,
- langC,
- langCPlus,
- langPascal,
- langObjectPascal,
- langJava,
- langAssembler,
- langFortran,
- langRez
-};
-
-enum EBrowserItem {
- browseFunction,
- browseGlobal,
- browseClass,
- browseMacro,
- browseEnum,
- browseTypedef,
- browseConstant,
- browseTemplate,
- browsePackage,
- browseCompSymbolStart = 0x70,
- browseEnd = 0xFF
-};
-
-enum {
- kAbstract = 1,
- kStatic = 2,
- kFinal = 4,
- kMember = 8,
-
- kInterface = 0x80,
- kPublic = 0x100,
-
- kInline = 0x80,
- kPascal = 0x100,
- kAsm = 0x200,
- kVirtual = 0x400,
- kCtor = 0x800,
- kDtor = 0x1000,
- kNative = 0x2000,
- kSynch = 0x4000,
- kIntrinsic = 0x8000,
- kConst = 0x10000,
-
- kTransient = 0x80,
- kVolatile = 0x100
-};
-
-enum EAccess {
- accessNone = 0,
- accessPrivate = 1,
- accessProtected = 2,
- accessPublic = 4
-};
-
-enum EMember {
- memberFunction,
- memberData,
- memberEnd = 0xFF
-};
-
-enum ETemplateType {
- templateClass,
- templateFunction
-};
-
-static enum EAccess gFromAccessType[] = {
- accessPublic,
- accessPrivate,
- accessProtected,
- accessNone
-};
-
-typedef struct BrowseHeader {
- SInt32 browse_header;
- SInt32 browse_version;
- SInt16 browse_language;
- SInt16 uses_name_table;
- SInt32 earliest_compatible_version;
- SInt32 reserved[15];
-} BrowseHeader;
-
-// forward decls
-static void RecordUndefinedMemberFunctions(void);
-
-void CBrowse_Setup(CompilerLinkerParamBlk *params) {
- BrowseHeader hdr;
-
- CError_ASSERT(123, params != NULL);
-
- params->object.browsedata = NULL;
-
- InitGList(&gBrowseData, 0x10000);
- InitGList(&gMemberFuncList, 1024);
-
- gNextMemberFuncID = 1;
- gForceSourceLoc = 0;
- gUseNameTable = 0;
-
- memclrw(&hdr, sizeof(hdr));
- hdr.browse_header = 0xBEABBAEB;
- hdr.browse_version = 2;
- hdr.earliest_compatible_version = 2;
- hdr.browse_language = copts.cplusplus ? langCPlus : langC;
- hdr.uses_name_table = gUseNameTable;
-
- AppendGListData(&gBrowseData, &hdr, sizeof(hdr));
-}
-
-void CBrowse_Finish(CompilerLinkerParamBlk *params) {
- CWMemHandle hnd;
-
- CError_ASSERT(151, params != NULL);
-
- if (gBrowseData.size >= sizeof(BrowseHeader)) {
- RecordUndefinedMemberFunctions();
- AppendGListByte(&gBrowseData, -1);
-
- COS_ResizeHandle(gBrowseData.data, gBrowseData.size);
-
- if (CWSecretAttachHandle(params->context, gBrowseData.data, &hnd) == cwNoErr) {
- params->object.browsedata = hnd;
- gBrowseData.data = NULL;
- }
- }
-}
-
-void CBrowse_Cleanup(CompilerLinkerParamBlk *params) {
- FreeGList(&gBrowseData);
- FreeGList(&gClassData);
- FreeGList(&gMemberFuncList);
-}
-
-static void AppendGList(GList *dst, GList *src) {
- SInt32 offset = dst->size;
-
- AppendGListNoData(dst, src->size);
- memcpy(*dst->data + offset, *src->data, src->size);
-}
-
-static void RecordName(GList *gl, const char *str, SInt32 id) {
- HashNameNode *name;
-
- CError_ASSERT(190, gl && str && *str);
-
- if (id < 0 && gUseNameTable) {
- for (name = name_hash_nodes[CHash(str)]; name; name = name->next) {
- if (!strcmp(str, name->name)) {
- id = name->id;
- break;
- }
- }
- }
-
- if (id >= 0 && gUseNameTable) {
- AppendGListWord(gl, -1);
- AppendGListLong(gl, id);
- } else {
- int len = strlen(str);
- AppendGListWord(gl, len);
- if (len)
- AppendGListData(gl, str, len + 1);
- }
-}
-
-void CBrowse_BeginClass(DeclInfo *di, GList *gl) {
- char *buf;
- ClassList *base;
- SInt32 i;
- TypeClass *tclass;
-
- CError_ASSERT(227, di && di->thetype && gl);
-
- *gl = gClassData;
-
- if (
- !di->file ||
- !di->file->fileID ||
- !di->file->recordbrowseinfo ||
- !di->file2 ||
- !di->file2->fileID ||
- di->sourceoffset <= 0
- )
- {
- memclrw(&gClassData, sizeof(gClassData));
- return;
- }
-
- if (IsTempName(TYPE_CLASS(di->thetype)->classname)) {
- memclrw(&gClassData, sizeof(gClassData));
- return;
- }
-
- InitGList(&gClassData, 0x4000);
- AppendGListByte(&gClassData, browseClass);
- AppendGListWord(&gClassData, di->file->fileID);
- AppendGListWord(&gClassData, di->file2->fileID);
- AppendGListLong(&gClassData, di->sourceoffset - 1);
- CError_ASSERT(270, gClassData.size == 9);
- AppendGListLong(&gClassData, di->sourceoffset - 1);
- AppendGListLong(&gClassData, 0);
- RecordName(&gClassData, TYPE_CLASS(di->thetype)->classname->name, TYPE_CLASS(di->thetype)->classname->id);
-
- CMangler_MangleType(di->thetype, 0);
- AppendGListByte(&name_mangle_list, 0);
-
- buf = lalloc(name_mangle_list.size + 1);
- strcpy(buf, *name_mangle_list.data);
-
- while (*buf && *buf >= '0' && *buf <= '9')
- buf++;
-
- if (strcmp(TYPE_CLASS(di->thetype)->classname->name, buf))
- RecordName(&gClassData, buf, -1);
- else
- AppendGListWord(&gClassData, 0);
-
- AppendGListLong(&gClassData, 0);
-
- i = 0;
- base = TYPE_CLASS(di->thetype)->bases;
- while (base) {
- base = base->next;
- i++;
- }
-
- AppendGListByte(&gClassData, i);
-
- for (base = TYPE_CLASS(di->thetype)->bases; base; base = base->next) {
- AppendGListByte(&gClassData, gFromAccessType[base->access]);
- AppendGListByte(&gClassData, base->is_virtual);
-
- tclass = base->base;
- if ((tclass->flags & CLASS_IS_TEMPL_INST) && !TEMPL_CLASS_INST(tclass)->is_specialized)
- tclass = TYPE_CLASS(TEMPL_CLASS_INST(tclass)->templ);
-
- CMangler_MangleType(TYPE(tclass), 0);
- AppendGListByte(&name_mangle_list, 0);
-
- buf = lalloc(name_mangle_list.size + 1);
- strcpy(buf, *name_mangle_list.data);
-
- while (*buf && *buf >= '0' && *buf <= '9')
- buf++;
-
- i = base->base->classname->id;
- while (*buf && *buf >= '0' && *buf <= '9') {
- i = -1;
- buf++;
- }
-
- RecordName(&gClassData, buf, i);
- }
-}
-
-void CBrowse_AddClassMemberVar(ObjMemberVar *ivar, SInt32 startOffset, SInt32 endOffset) {
- short len;
-
- CError_ASSERT(360, ivar);
-
- if (gClassData.data && startOffset > 0 && endOffset >= startOffset) {
- if (tk == ';')
- endOffset++;
-
- AppendGListByte(&gClassData, memberData);
- AppendGListByte(&gClassData, gFromAccessType[ivar->access]);
- AppendGListLong(&gClassData, 0);
- AppendGListLong(&gClassData, startOffset - 1);
- AppendGListLong(&gClassData, endOffset - 1);
-
- len = strlen(ivar->name->name);
- AppendGListWord(&gClassData, len);
- AppendGListData(&gClassData, ivar->name->name, len + 1);
- }
-}
-
-void CBrowse_AddClassMemberFunction(Object *object, SInt32 startOffset, SInt32 endOffset) {
- SInt32 flags;
- SInt32 id;
- TypeMemberFunc *tfunc;
-
- CError_ASSERT(380, object);
-
- if (
- !IsTempName(object->name) &&
- gClassData.data &&
- startOffset > 0 &&
- endOffset >= startOffset
- )
- {
- flags = 0;
- CError_ASSERT(391, object->type && IS_TYPE_FUNC(object->type));
- tfunc = TYPE_METHOD(object->type);
-
- if (tfunc->flags & FUNC_AUTO_GENERATED)
- return;
-
- if (object->datatype == DVFUNC)
- flags |= kVirtual;
- if (tfunc->flags & FUNC_PURE)
- flags |= kAbstract;
- if (tfunc->is_static)
- flags |= kStatic;
- if (tfunc->flags & FUNC_IS_CTOR)
- flags |= kCtor;
- if (tfunc->flags & FUNC_IS_DTOR)
- flags |= kDtor;
-
- AppendGListByte(&gClassData, memberFunction);
- AppendGListByte(&gClassData, gFromAccessType[object->access]);
- AppendGListLong(&gClassData, flags);
-
- id = tfunc->funcid;
- if (id <= 0) {
- // TODO: this is not 64-bit safe
- if (!(tfunc->flags & FUNC_DEFINED) || id == -1)
- AppendGListLong(&gMemberFuncList, (SInt32) object);
- tfunc->funcid = id = gNextMemberFuncID++;
- }
-
- AppendGListLong(&gClassData, id);
- AppendGListLong(&gClassData, startOffset - 1);
- AppendGListLong(&gClassData, endOffset);
- }
-}
-
-void CBrowse_AddClassMemberData(Object *object, SInt32 startOffset, SInt32 endOffset) {
- short len;
-
- CError_ASSERT(435, object);
-
- if (gClassData.data && startOffset > 0 && endOffset >= startOffset && object->datatype == DDATA) {
- if (tk == ';')
- endOffset++;
-
- AppendGListByte(&gClassData, memberData);
- AppendGListByte(&gClassData, gFromAccessType[object->access]);
- AppendGListLong(&gClassData, kStatic);
- AppendGListLong(&gClassData, startOffset - 1);
- AppendGListLong(&gClassData, endOffset - 1);
-
- len = strlen(object->name->name);
- AppendGListWord(&gClassData, len);
- AppendGListData(&gClassData, object->name->name, len + 1);
- }
-}
-
-void CBrowse_EndClass(SInt32 offset, GList *gl) {
- CError_ASSERT(453, gl);
-
- if (gClassData.data) {
- if (gClassData.size > 0) {
- if (tk == ';')
- offset++;
- memcpy(*gClassData.data + 9, &offset, 4);
- AppendGList(&gBrowseData, &gClassData);
- AppendGListByte(&gBrowseData, memberEnd);
- }
- FreeGList(&gClassData);
- }
-
- gClassData = *gl;
-}
-
-void CBrowse_BeginStruct(DeclInfo *di, TypeStruct *tstruct, GList *gl) {
- HashNameNode *name;
-
- CError_ASSERT(480, di && gl);
-
- *gl = gClassData;
-
- if (
- !di->file ||
- !di->file->fileID ||
- !di->file->recordbrowseinfo ||
- !di->file2 ||
- !di->file2->fileID ||
- di->sourceoffset <= 0
- )
- {
- memclrw(&gClassData, sizeof(gClassData));
- return;
- }
-
- name = tstruct->name;
- if (!name || IsTempName(name)) {
- memclrw(&gClassData, sizeof(gClassData));
- return;
- }
-
- InitGList(&gClassData, 0x4000);
- AppendGListByte(&gClassData, browseClass);
- AppendGListWord(&gClassData, di->file->fileID);
- AppendGListWord(&gClassData, di->file2->fileID);
- AppendGListLong(&gClassData, di->sourceoffset - 1);
- CError_ASSERT(521, gClassData.size == 9);
- AppendGListLong(&gClassData, di->sourceoffset - 1);
- AppendGListLong(&gClassData, 0);
- RecordName(&gClassData, name->name, name->id);
- AppendGListWord(&gClassData, 0);
- AppendGListLong(&gClassData, 0);
- AppendGListByte(&gClassData, 0);
-}
-
-void CBrowse_AddStructMember(StructMember *member, SInt32 startOffset, SInt32 endOffset) {
- short len;
-
- if (tk == ';')
- endOffset++;
-
- if (gClassData.data && member && startOffset > 0 && endOffset >= startOffset) {
- AppendGListByte(&gClassData, memberData);
- AppendGListByte(&gClassData, accessPublic);
- AppendGListLong(&gClassData, 0);
- AppendGListLong(&gClassData, startOffset - 1);
- AppendGListLong(&gClassData, endOffset - 1);
-
- len = strlen(member->name->name);
- AppendGListWord(&gClassData, len);
- AppendGListData(&gClassData, member->name->name, len + 1);
- }
-}
-
-void CBrowse_EndStruct(SInt32 offset, GList *gl) {
- CError_ASSERT(558, gl);
-
- if (gClassData.data) {
- if (offset > 0 && gClassData.size > 0) {
- memcpy(*gClassData.data + 9, &offset, 4);
- AppendGList(&gBrowseData, &gClassData);
- AppendGListByte(&gBrowseData, memberEnd);
- }
- FreeGList(&gClassData);
- }
-
- gClassData = *gl;
-}
-
-static void EmitStandardData(int item, int fileID1, int fileID2, SInt32 startOffset, SInt32 endOffset, const char *str, SInt32 id, const char *str2, SInt32 id2) {
- CError_ASSERT(584, str);
-
- AppendGListByte(&gBrowseData, item);
- AppendGListWord(&gBrowseData, fileID1);
- AppendGListWord(&gBrowseData, fileID2);
- AppendGListLong(&gBrowseData, startOffset - 1);
- AppendGListLong(&gBrowseData, endOffset - 1);
- AppendGListLong(&gBrowseData, 0);
-
- RecordName(&gBrowseData, str, id);
- if (str2 && str2 != str)
- RecordName(&gBrowseData, str2, id2);
- else
- AppendGListWord(&gBrowseData, 0);
-}
-
-void CBrowse_NewTypedef(NameSpace *nspace, HashNameNode *name, CPrepFileInfo *file1, CPrepFileInfo *file2, SInt32 startOffset, SInt32 endOffset) {
- CError_ASSERT(618, file1 && file1->recordbrowseinfo);
-
- if (file2 && file2->fileID && startOffset > 0 && endOffset >= startOffset) {
- EmitStandardData(browseTypedef,
- file1->fileID, file2->fileID,
- startOffset, endOffset,
- name->name, name->id,
- CError_GetQualifiedName(nspace, name), -1);
- }
-}
-
-void CBrowse_NewEnum(NameSpace *nspace, HashNameNode *name, CPrepFileInfo *file1, CPrepFileInfo *file2, SInt32 startOffset, SInt32 endOffset) {
- CError_ASSERT(632, file1 && file1->recordbrowseinfo);
-
- if (file2 && file2->fileID && startOffset > 0 && endOffset >= startOffset) {
- EmitStandardData(browseEnum,
- file1->fileID, file2->fileID,
- startOffset, endOffset,
- name->name, name->id,
- CError_GetQualifiedName(nspace, name), -1);
- }
-}
-
-void CBrowse_NewEnumConstant(NameSpace *nspace, HashNameNode *name, CPrepFileInfo *file1, CPrepFileInfo *file2, SInt32 startOffset, SInt32 endOffset) {
- CError_ASSERT(646, file1 && file1->recordbrowseinfo);
-
- if (tk == ',')
- endOffset++;
-
- if (file2 && file2->fileID && startOffset > 0 && endOffset >= startOffset) {
- EmitStandardData(browseConstant,
- file1->fileID, file2->fileID,
- startOffset, endOffset,
- name->name, name->id,
- CError_GetQualifiedName(nspace, name), -1);
- }
-}
-
-static HashNameNode *CBrowse_GetLinkName(Object *object) {
- return CMangler_GetLinkName(object);
-}
-
-static void RecordFunction(Object *object, int fileID1, int fileID2, SInt32 startOffset, SInt32 endOffset) {
- TypeFunc *tfunc;
- char *tmp;
- Boolean flag;
- char *str29;
- HashNameNode *linkname;
- SInt32 flags;
- char *namestr;
- SInt32 nameid;
- char *namestr2;
- SInt32 nameid2;
- int funcid;
- char buf[2048];
- char buf2[256];
-
- CError_ASSERT(740, object->type && IS_TYPE_FUNC(object->type));
-
- if (IsTempName(object->name))
- return;
-
- tfunc = TYPE_FUNC(object->type);
- if ((tfunc->flags & (FUNC_AUTO_GENERATED | FUNC_INTRINSIC)) && (!fileID2 || startOffset < 0))
- return;
-
- linkname = object->name;
- tmp = linkname->name;
- if (!(linkname->name[0] == '_' && linkname->name[1] == '_')) {
- namestr = tmp;
- nameid = linkname->id;
- switch (tmp[0]) {
- case '.':
- nameid = -1;
- namestr += 1;
- break;
- case '_':
- switch (tmp[1]) {
- case '#':
- case '%':
- case '@':
- nameid = -1;
- namestr += 2;
- break;
- }
- break;
- }
- } else {
- flag = 1;
- if (tfunc->flags & (FUNC_IS_CTOR | FUNC_IS_DTOR)) {
- tmp = TYPE_METHOD(tfunc)->theclass->classname->name;
- while (*tmp >= '0' && *tmp <= '9')
- tmp++;
- MWUnmangleClassName(tmp, buf, sizeof(buf));
-
- str29 = buf;
- if ((tmp = strrchr(str29, ':')))
- str29 = tmp + 1;
-
- if (tfunc->flags & FUNC_IS_DTOR) {
- buf2[0] = '~';
- strncpy(&buf2[1], str29, sizeof(buf2) - 1);
- namestr = buf2;
- } else {
- namestr = str29;
- }
-
- flag = 0;
- }
-
- if (flag) {
- MWUnmangle(object->name->name, buf, sizeof(buf));
- namestr = buf;
- }
-
- nameid = -1;
- }
-
- while (*namestr >= '0' && *namestr <= '9') {
- nameid = -1;
- namestr++;
- }
-
- namestr2 = NULL;
- nameid2 = -1;
-
- linkname = CBrowse_GetLinkName(object);
- if (object->name != linkname) {
- namestr2 = linkname->name;
- if (linkname->name[0] == '.')
- namestr2++;
- else
- nameid2 = linkname->id;
- }
-
- EmitStandardData(browseFunction, fileID1, fileID2, startOffset, endOffset, namestr, nameid, namestr2, nameid2);
-
- flags = 0;
- if (object->qual & Q_INLINE)
- flags |= kInline;
- if (object->qual & Q_PASCAL)
- flags |= kPascal;
- if (object->qual & Q_ASM)
- flags |= kAsm;
- if (object->sclass == TK_STATIC)
- flags |= kStatic;
- if (tfunc->flags & FUNC_METHOD)
- flags |= kMember;
- AppendGListLong(&gBrowseData, flags);
-
- funcid = 0;
- if (tfunc->flags & FUNC_METHOD) {
- funcid = TYPE_METHOD(tfunc)->funcid;
- if (funcid <= 0) {
- TYPE_METHOD(tfunc)->funcid = funcid = gNextMemberFuncID++;
- }
- }
- AppendGListLong(&gBrowseData, funcid);
-}
-
-void CBrowse_NewFunction(Object *object, CPrepFileInfo *file1, CPrepFileInfo *file2, SInt32 startOffset, SInt32 endOffset) {
- CError_ASSERT(890, file1 && file1->recordbrowseinfo);
-
- if (file2 && file2->fileID && startOffset > 0 && (endOffset + 1) >= startOffset)
- RecordFunction(object, file1->fileID, file2->fileID, startOffset, endOffset + 1);
-}
-
-void CBrowse_NewData(Object *object, CPrepFileInfo *file1, CPrepFileInfo *file2, SInt32 startOffset, SInt32 endOffset) {
- char *namestr = NULL;
- SInt32 flags = 0;
- Boolean is_const = is_const_object(object);
-
- CError_ASSERT(912, file1 && file1->recordbrowseinfo);
- CError_ASSERT(913, object);
-
- if (tk == ';')
- endOffset++;
-
- if (file2 && file2->fileID && startOffset > 0 && endOffset >= startOffset) {
- HashNameNode *name = CBrowse_GetLinkName(object);
- if (object->name != name)
- namestr = name->name;
-
- EmitStandardData(
- is_const ? browseConstant : browseGlobal,
- file1->fileID, file2->fileID,
- startOffset, endOffset,
- object->name->name, object->name->id,
- namestr, name->id
- );
-
- if (!is_const) {
- if (object->sclass == TK_STATIC)
- flags |= kStatic;
- AppendGListLong(&gBrowseData, flags);
- }
- }
-}
-
-void CBrowse_NewMacro(Macro *macro, CPrepFileInfo *file, SInt32 startOffset, SInt32 endOffset) {
- CError_ASSERT(951, !file || (file->recordbrowseinfo && !macro->is_special));
-
- if (file && file->fileID && startOffset > 0 && endOffset >= startOffset)
- EmitStandardData(
- browseMacro,
- file->fileID, file->fileID,
- startOffset, endOffset,
- macro->name->name, macro->name->id,
- NULL, -1
- );
-}
-
-void CBrowse_NewTemplateClass(TemplClass *tmclass, CPrepFileInfo *file, SInt32 startOffset, SInt32 endOffset) {
- CError_ASSERT(965, !file || file->recordbrowseinfo);
-
- if (file && file->fileID && startOffset > 0 && endOffset >= startOffset) {
- EmitStandardData(
- browseTemplate,
- file->fileID, file->fileID,
- startOffset, endOffset,
- tmclass->theclass.classname->name, tmclass->theclass.classname->id,
- NULL, -1
- );
- AppendGListByte(&gBrowseData, templateClass);
- }
-}
-
-void CBrowse_NewTemplateFunc(TemplateFunction *tmfunc) {
- CError_ASSERT(979, !tmfunc->srcfile || tmfunc->srcfile->recordbrowseinfo);
-
- if (tmfunc->srcfile && tmfunc->srcfile->fileID && tmfunc->startoffset > 0 && tmfunc->endoffset >= tmfunc->startoffset) {
- EmitStandardData(
- browseTemplate,
- tmfunc->srcfile->fileID, tmfunc->srcfile->fileID,
- tmfunc->startoffset, tmfunc->endoffset,
- tmfunc->name->name, tmfunc->name->id,
- NULL, -1
- );
- AppendGListByte(&gBrowseData, templateFunction);
- }
-}
-
-static void RecordUndefinedMemberFunctions(void) {
- int i;
- int count;
- Object **array;
-
- COS_LockHandleHi(gMemberFuncList.data);
-
- count = gMemberFuncList.size / sizeof(Object *);
- array = (Object **) *gMemberFuncList.data;
- for (i = 0; i < count; i++, array++) {
- if (IS_TYPE_FUNC((*array)->type) && !(TYPE_FUNC((*array)->type)->flags & FUNC_DEFINED))
- RecordFunction(*array, 0, 0, -1, -1);
- }
-
- COS_UnlockHandle(gMemberFuncList.data);
-}