encounter
/
MWCC
mirror of https://git.wuffs.org/MWCC
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
MWCC/compiler_and_linker/unsorted/CClass.c

2313 lines
68 KiB
C
Raw Blame History

#include "compiler/CClass.h"
#include "compiler/CABI.h"
#include "compiler/CDecl.h"
#include "compiler/CError.h"
#include "compiler/CExpr.h"
#include "compiler/CInit.h"
#include "compiler/CInline.h"
#include "compiler/CMachine.h"
#include "compiler/CMangler.h"
#include "compiler/CObjC.h"
#include "compiler/CParser.h"
#include "compiler/CRTTI.h"
#include "compiler/CSOM.h"
#include "compiler/CompilerTools.h"
#include "compiler/CodeGen.h"
#include "compiler/objects.h"
#include "compiler/scopes.h"
#ifdef __MWERKS__
#pragma options align=mac68k
#endif
typedef struct OVClassBase {
struct OVClassBase *next;
struct OVClass *ovclass;
Boolean is_virtual;
} OVClassBase;
typedef struct OVFunc {
struct OVFunc *next;
Object *obj;
struct OVClass *ovc8;
struct OVFunc *ovfC;
struct OVFunc *ovf10;
} OVFunc;
typedef struct OVClass {
TypeClass *tclass;
OVFunc *vfuncs;
OVClassBase *bases;
SInt32 offset;
SInt32 voffset;
Boolean alloced_vtable;
} OVClass;
typedef struct ThunkList {
struct ThunkList *next;
Object *thunkobj;
Object *obj;
SInt32 a;
SInt32 b;
SInt32 c;
} ThunkList;
#ifdef __MWERKS__
#pragma options align=reset
#endif
static TypeClass *main_class;
static ThunkList *cclass_thunklist;
static TypeClass *cclass_isbase_mostderived;
static SInt32 cclass_isbase_foundoffset;
static Boolean cclass_isambigbase;
static short cclass_founddepth;
static char *vtable_object_data;
static SInt32 vtable_data_size;
static OLinkList *vtable_object_links;
static TypeClass *cclass_vbase;
static OVClass *cclass_ovbase;
static OVClass *cclass_root;
static Object *found_pure;
static Boolean check_pures;
static Object *cclass_dominator_vobject;
static SInt32 cclass_dominator_voffset;
static Object *cclass_dominator_oobject;
static TypeClass *cclass_dominator_oclass;
static SInt32 cclass_dominator_ooffset;
static Object *cclass_dominator_eobject;
void CClass_Init(void) {
cclass_thunklist = NULL;
}
void CClass_GenThunks(void) {
ThunkList *list;
for (list = cclass_thunklist; list; list = list->next) {
list->thunkobj->flags |= OBJECT_FLAGS_4;
CodeGen_GenVDispatchThunk(list->thunkobj, list->obj, list->a, list->b, list->c);
}
}
static Object *CClass_ThunkObject(Object *obj, SInt32 a, SInt32 b, SInt32 c) {
Object *thunkobj;
ThunkList *list;
CInline_ObjectAddrRef(obj);
for (list = cclass_thunklist; list; list = list->next) {
if (obj == list->obj && a == list->a && b == list->b && c == list->c)
return list->thunkobj;
}
thunkobj = CParser_NewCompilerDefFunctionObject();
thunkobj->name = CMangler_ThunkName(obj, a, b, c);
thunkobj->type = TYPE(&rt_func);
thunkobj->sclass = TK_EXTERN;
thunkobj->qual = Q_20000;
thunkobj->u.func.linkname = thunkobj->name;
list = galloc(sizeof(ThunkList));
list->thunkobj = thunkobj;
list->obj = obj;
list->a = a;
list->b = b;
list->c = c;
list->next = cclass_thunklist;
cclass_thunklist = list;
return thunkobj;
}
static Boolean CClass_IsZeroOffsetClass(TypeClass *a, TypeClass *b) {
while (1) {
if (a == b)
return 1;
if (!a->bases || a->bases->is_virtual)
return 0;
a = a->bases->base;
}
}
static UInt8 CClass_IsCovariantResult(Type *a, UInt32 qualA, Type *b, UInt32 qualB, Boolean errorflag) {
TypeClass *tclassA;
TypeClass *tclassB;
if (
IS_TYPE_POINTER_ONLY(a) &&
IS_TYPE_POINTER_ONLY(b) &&
TPTR_QUAL(a) == TPTR_QUAL(b) &&
!CParser_IsMoreCVQualified(qualB, qualA) &&
IS_TYPE_CLASS(TPTR_TARGET(a)) &&
IS_TYPE_CLASS(TPTR_TARGET(b))
)
{
tclassA = TYPE_CLASS(TPTR_TARGET(a));
tclassB = TYPE_CLASS(TPTR_TARGET(b));
if (tclassA == tclassB || CClass_IsBaseClass(tclassB, tclassA, NULL, errorflag, errorflag)) {
if (!CClass_IsZeroOffsetClass(tclassB, tclassA))
return 2;
else
return 1;
}
}
return 0;
}
UInt8 CClass_GetOverrideKind(TypeFunc *a, TypeFunc *b, Boolean errorflag) {
if (!a->args || !b->args)
return 0;
if (
(a->flags & (FUNC_FLAGS_PASCAL | FUNC_FLAGS_F0000000)) != (b->flags & (FUNC_FLAGS_PASCAL | FUNC_FLAGS_F0000000)) ||
!is_arglistsame(a->args->next, b->args->next) ||
a->args->qual != b->args->qual
)
return 0;
if (!is_typesame(a->functype, b->functype)) {
switch (CClass_IsCovariantResult(a->functype, a->qual, b->functype, b->qual, errorflag)) {
case 0:
if (errorflag)
CError_Error(CErrorStr227);
return 0;
case 1:
return 1;
case 2:
return 2;
default:
CError_FATAL(225);
}
}
return 1;
}
Boolean CClass_IsEmpty(TypeClass *tclass) {
ClassList *base;
if (tclass->ivars)
return 0;
for (base = tclass->bases; base; base = base->next) {
if (!CClass_IsEmpty(base->base))
return 0;
}
return 1;
}
Boolean CClass_IsNonStaticMemberFunc(TypeFunc *tfunc) {
return IS_TYPEFUNC_NONSTATIC_METHOD(tfunc) || (tfunc->flags & FUNC_FLAGS_80);
}
Object *CClass_DefaultConstructor(TypeClass *tclass) {
NameSpaceObjectList *nsol;
Object *object;
for (nsol = CScope_FindName(tclass->nspace, constructor_name_node); nsol; nsol = nsol->next) {
object = OBJECT(nsol->object);
if (object->otype == OT_OBJECT && IS_TYPE_FUNC(object->type)) {
if ((tclass->flags & CLASS_FLAGS_20) && !tclass->sominfo) {
if (TYPE_FUNC(object->type)->args->next && !TYPE_FUNC(object->type)->args->next->next)
return object;
} else {
if (!TYPE_FUNC(object->type)->args->next)
return object;
}
}
}
return NULL;
}
Object *CClass_DummyDefaultConstructor(TypeClass *tclass) {
Object *ctor;
FuncArg *args;
NameSpaceObjectList *nsol;
HashNameNode *name;
TypeMethod *tmethod;
Object *object;
ObjectList list;
ctor = NULL;
for (nsol = CScope_FindName(tclass->nspace, constructor_name_node); nsol; nsol = nsol->next) {
object = OBJECT(nsol->object);
if (object->otype == OT_OBJECT && IS_TYPE_FUNC(object->type)) {
CError_ASSERT(305, args = TYPE_FUNC(object->type)->args);
args = args->next;
if ((tclass->flags & CLASS_FLAGS_20) && !tclass->sominfo) {
CError_ASSERT(309, args);
args = args->next;
}
CError_ASSERT(312, args);
if (args->dexpr) {
if (ctor) {
list.next = NULL;
list.object = object;
CError_OverloadedFunctionError(ctor, &list);
break;
}
ctor = object;
}
}
}
if (!ctor) {
CError_Error(CErrorStr203);
return NULL;
}
name = GetHashNameNodeExport("__defctor");
if ((nsol = CScope_FindName(tclass->nspace, name))) {
CError_ASSERT(339, nsol->object->otype == OT_OBJECT && IS_TYPE_FUNC(OBJECT(nsol->object)->type));
return OBJECT(nsol->object);
}
tmethod = galloc(sizeof(TypeMethod));
memclrw(tmethod, sizeof(TypeMethod));
tmethod->type = TYPEFUNC;
tmethod->functype = TYPE(&void_ptr);
tmethod->flags = FUNC_FLAGS_METHOD;
tmethod->theclass = tclass;
CDecl_SetFuncFlags(TYPE_FUNC(tmethod), 0);
if ((tclass->flags & CLASS_FLAGS_20) && !tclass->sominfo)
CDecl_AddArgument(TYPE_FUNC(tmethod), TYPE(&stsignedshort));
CDecl_AddThisPointerArgument(TYPE_FUNC(tmethod), tclass);
object = CParser_NewCompilerDefFunctionObject();
object->type = TYPE(tmethod);
object->qual = Q_INLINE | Q_80000;
object->nspace = tclass->nspace;
object->name = name;
CScope_AddObject(tclass->nspace, name, OBJ_BASE(object));
CParser_RegisterDummyCtorFunction(object, ctor);
return object;
}
ENode *CClass_DefaultConstructorCall(TypeClass *tclass, TypeClass *b, ENode *objexpr, SInt32 varg, Boolean flag1, Boolean flag2, Boolean *errorflag) {
NameSpaceObjectList *nsol;
Object *ctor;
Object *object;
FuncArg *args;
ENodeList *argexprs;
ENode *expr;
BClassList *path;
BClassList list1;
ObjectList objlist;
BClassList list2;
short founddepth;
Boolean isambigbase;
*errorflag = 0;
if (!(nsol = CScope_FindName(tclass->nspace, constructor_name_node)))
return NULL;
ctor = NULL;
do {
object = OBJECT(nsol->object);
if (object->otype == OT_OBJECT && IS_TYPE_FUNC(object->type)) {
CError_ASSERT(397, args = TYPE_FUNC(object->type)->args);
args = args->next;
if ((tclass->flags & CLASS_FLAGS_20) && !tclass->sominfo) {
CError_ASSERT(401, args);
args = args->next;
}
if (!args || args->dexpr) {
if (ctor) {
objlist.next = NULL;
objlist.object = object;
CError_OverloadedFunctionError(ctor, &objlist);
break;
}
ctor = object;
}
}
} while ((nsol = nsol->next));
if (!ctor) {
*errorflag = 1;
return NULL;
}
if (flag1) {
if (b) {
if (flag2) {
if ((path = CClass_GetBasePath(b, tclass, &founddepth, &isambigbase)))
list1 = *path;
else
goto skipCheck;
} else {
list1.next = &list2;
list1.type = TYPE(b);
list2.next = NULL;
list2.type = TYPE(tclass);
}
} else {
list1.next = NULL;
list1.type = TYPE(tclass);
}
CClass_CheckPathAccess(&list1, ctor, ctor->access);
}
skipCheck:
if ((tclass->flags & CLASS_FLAGS_20) && !tclass->sominfo) {
argexprs = lalloc(sizeof(ENodeList));
argexprs->next = NULL;
argexprs->node = intconstnode(TYPE(&stsignedshort), varg);
} else {
argexprs = NULL;
}
CError_ASSERT(471, IS_TYPE_POINTER_ONLY(objexpr->rtype));
objexpr = makemonadicnode(objexpr, EINDIRECT);
objexpr->rtype = TYPE(tclass);
list1.next = NULL;
list1.type = TYPE(tclass);
expr = CExpr_GenericFuncCall(
&list1,
objexpr,
0,
ctor,
NULL,
NULL,
argexprs,
0,
0,
0
);
if (ENODE_IS2(expr, EFUNCCALL, EFUNCCALLP))
expr->rtype = CDecl_NewPointerType(TYPE(tclass));
return expr;
}
Object *CClass_AssignmentOperator(TypeClass *tclass) {
NameSpaceObjectList *nsol;
Object *object;
for (nsol = CScope_FindName(tclass->nspace, asop_name_node); nsol; nsol = nsol->next) {
object = OBJECT(nsol->object);
if (
object->otype == OT_OBJECT &&
IS_TYPE_FUNC(object->type) &&
TYPE_FUNC(object->type)->args &&
TYPE_FUNC(object->type)->args->next &&
!TYPE_FUNC(object->type)->args->next->next
)
{
if (
IS_TYPE_CLASS(TYPE_FUNC(object->type)->args->next->type) &&
TYPE_CLASS(TYPE_FUNC(object->type)->args->next->type) == tclass
)
return object;
if (
IS_TYPE_REFERENCE(TYPE_FUNC(object->type)->args->next->type) &&
TPTR_TARGET(TYPE_FUNC(object->type)->args->next->type) == TYPE(tclass)
)
return object;
}
}
return NULL;
}
Object *CClass_CopyConstructor(TypeClass *tclass) {
NameSpaceObjectList *nsol;
Object *object;
FuncArg *args;
if (tclass->sominfo)
return NULL;
for (nsol = CScope_FindName(tclass->nspace, constructor_name_node); nsol; nsol = nsol->next) {
object = OBJECT(nsol->object);
if (object->otype == OT_OBJECT && IS_TYPE_FUNC(object->type)) {
CError_ASSERT(532, args = TYPE_FUNC(object->type)->args);
args = args->next;
if (tclass->flags & CLASS_FLAGS_20) {
CError_ASSERT(536, args);
args = args->next;
}
if (
args &&
args != &elipsis &&
(!args->next || args->next->dexpr) &&
IS_TYPE_REFERENCE(args->type) &&
TPTR_TARGET(args->type) == TYPE(tclass)
)
return object;
}
}
return NULL;
}
NameSpaceObjectList *CClass_MemberObject(TypeClass *tclass, HashNameNode *name) {
NameSpaceObjectList *nsol;
if ((nsol = CScope_FindName(tclass->nspace, name)) && nsol->object->otype == OT_OBJECT)
return nsol;
return NULL;
}
NameSpaceObjectList *CClass_Constructor(TypeClass *tclass) {
NameSpaceObjectList *nsol;
if (
(nsol = CScope_FindName(tclass->nspace, constructor_name_node)) &&
nsol->object->otype == OT_OBJECT &&
IS_TYPE_FUNC(OBJECT(nsol->object)->type)
)
return nsol;
return NULL;
}
Object *CClass_Destructor(TypeClass *tclass) {
NameSpaceObjectList *nsol;
for (nsol = CScope_FindName(tclass->nspace, destructor_name_node); nsol; nsol = nsol->next) {
if (
nsol->object->otype == OT_OBJECT &&
IS_TYPE_FUNC(OBJECT(nsol->object)->type)
)
return OBJECT(nsol->object);
}
return NULL;
}
Boolean CClass_IsConstructor(Object *obj) {
return obj && IS_TYPE_FUNC(obj->type) && (TYPE_FUNC(obj->type)->flags & FUNC_FLAGS_1000);
}
Boolean CClass_IsDestructor(Object *obj) {
return obj && IS_TYPE_FUNC(obj->type) && (TYPE_FUNC(obj->type)->flags & FUNC_FLAGS_2000);
}
Boolean CClass_IsPODClass(TypeClass *tclass) {
NameSpaceObjectList *nsol;
Object *object;
ObjMemberVar *ivar;
Type *type;
if (tclass->vtable || tclass->bases || CClass_Destructor(tclass))
return 0;
for (nsol = CClass_Constructor(tclass); nsol; nsol = nsol->next) {
if (
nsol->object->otype == OT_OBJECT &&
IS_TYPE_FUNC(OBJECT(nsol->object)->type) &&
!(TYPE_FUNC(OBJECT(nsol->object)->type)->flags & FUNC_FLAGS_100)
)
return 0;
}
object = CClass_AssignmentOperator(tclass);
if (object && !(TYPE_FUNC(object->type)->flags & FUNC_FLAGS_100))
return 0;
for (ivar = tclass->ivars; ivar; ivar = ivar->next) {
if (ivar->access != ACCESSPUBLIC)
return 0;
type = ivar->type;
while (IS_TYPE_ARRAY(type))
type = TPTR_TARGET(type);
switch (type->type) {
case TYPECLASS:
if (!CClass_IsPODClass(TYPE_CLASS(type)))
return 0;
break;
case TYPEMEMBERPOINTER:
return 0;
case TYPEPOINTER:
if (TPTR_QUAL(type) & Q_REFERENCE)
return 0;
break;
}
}
return 1;
}
Boolean CClass_IsTrivialCopyClass(TypeClass *tclass) {
Object *object;
ClassList *base;
ObjMemberVar *ivar;
Type *type;
if (tclass->vtable || tclass->vbases || CClass_Destructor(tclass))
return 0;
object = CClass_CopyConstructor(tclass);
if (object && IS_TYPE_FUNC(object->type) && !(TYPE_FUNC(object->type)->flags & FUNC_FLAGS_100))
return 0;
for (base = tclass->bases; base; base = base->next) {
if (!CClass_IsTrivialCopyClass(base->base))
return 0;
}
for (ivar = tclass->ivars; ivar; ivar = ivar->next) {
type = ivar->type;
while (IS_TYPE_ARRAY(type))
type = TPTR_TARGET(type);
if (IS_TYPE_CLASS(type) && !CClass_IsTrivialCopyClass(TYPE_CLASS(type)))
return 0;
}
return 1;
}
Boolean CClass_IsTrivialCopyAssignClass(TypeClass *tclass) {
Object *object;
ObjMemberVar *ivar;
Type *type;
if (tclass->vtable || tclass->bases || CClass_Destructor(tclass))
return 0;
object = CClass_AssignmentOperator(tclass);
if (object && !(TYPE_FUNC(object->type)->flags & FUNC_FLAGS_100))
return 0;
for (ivar = tclass->ivars; ivar; ivar = ivar->next) {
type = ivar->type;
while (IS_TYPE_ARRAY(type))
type = TPTR_TARGET(type);
if (IS_TYPE_REFERENCE(type))
return 0;
if (CParser_IsConst(type, ivar->qual))
return 0;
if (IS_TYPE_CLASS(type) && !CClass_IsTrivialCopyAssignClass(TYPE_CLASS(type)))
return 0;
}
return 1;
}
Boolean CClass_ReferenceArgument(TypeClass *tclass) {
if ((tclass->flags & (CLASS_FLAGS_2 | CLASS_FLAGS_800)) == CLASS_FLAGS_800)
CDecl_CompleteType(TYPE(tclass));
if (copts.simple_class_byval)
return !CClass_IsTrivialCopyClass(tclass);
return CClass_Destructor(tclass) || CClass_CopyConstructor(tclass);
}
BClassList *CClass_GetPathCopy(BClassList *path, Boolean is_global) {
BClassList *last;
BClassList *copy;
if (!path)
return NULL;
copy = last = is_global ? galloc(sizeof(BClassList)) : lalloc(sizeof(BClassList));
last->next = path->next;
last->type = path->type;
while ((path = path->next)) {
last->next = is_global ? galloc(sizeof(BClassList)) : lalloc(sizeof(BClassList));
last = last->next;
last->next = path->next;
last->type = path->type;
}
return copy;
}
BClassList *CClass_AppendPath(BClassList *dest, BClassList *src) {
BClassList *last;
if (!(last = dest))
return src;
while (last->next)
last = last->next;
while (src && src->type == last->type)
src = src->next;
last->next = src;
return dest;
}
static AccessType CClass_GetPathAccess(BClassList *path) {
AccessType result;
ClassList *base;
TypeClass *tclass;
CError_ASSERT(930, path);
result = ACCESSPUBLIC;
while (1) {
tclass = TYPE_CLASS(path->type);
if (!(path = path->next))
break;
for (base = tclass->bases; base; base = base->next) {
if (base->base == TYPE_CLASS(path->type))
break;
}
CError_ASSERT(939, base);
switch (base->access) {
case ACCESSPUBLIC:
break;
case ACCESSPROTECTED:
if (result == ACCESSPUBLIC)
result = ACCESSPROTECTED;
break;
case ACCESSPRIVATE:
if (result == ACCESSPUBLIC || result == ACCESSPROTECTED)
result = ACCESSPRIVATE;
else
return ACCESSNONE;
break;
case ACCESSNONE:
return ACCESSNONE;
default:
CError_FATAL(960);
}
}
return result;
}
Boolean CClass_IsMoreAccessiblePath(BClassList *path1, BClassList *path2) {
switch (CClass_GetPathAccess(path2)) {
case ACCESSPUBLIC:
return 0;
case ACCESSNONE:
return 1;
default:
CError_FATAL(978);
case ACCESSPROTECTED:
switch (CClass_GetPathAccess(path1)) {
case ACCESSPUBLIC:
return 1;
case ACCESSPRIVATE:
case ACCESSPROTECTED:
case ACCESSNONE:
return 0;
default:
CError_FATAL(987);
}
case ACCESSPRIVATE:
switch (CClass_GetPathAccess(path1)) {
case ACCESSPUBLIC:
case ACCESSPROTECTED:
return 1;
case ACCESSPRIVATE:
case ACCESSNONE:
return 0;
default:
CError_FATAL(997);
}
}
return 0;
}
static BClassList *CClass_GetBasePathRec(TypeClass *a, TypeClass *b, SInt32 offset, short depth) {
ClassList *base;
BClassList *checkpath;
BClassList *bestpath;
BClassList *newpath;
SInt32 newOffset;
for (base = a->bases, bestpath = NULL; base; base = base->next) {
if (base->is_virtual)
newOffset = CClass_VirtualBaseOffset(cclass_isbase_mostderived, base->base);
else
newOffset = offset + base->offset;
if (base->base == b) {
if (cclass_founddepth && newOffset != cclass_isbase_foundoffset) {
cclass_isambigbase = 1;
return NULL;
}
cclass_isbase_foundoffset = newOffset;
cclass_founddepth = depth;
bestpath = lalloc(sizeof(BClassList));
bestpath->next = NULL;
bestpath->type = TYPE(b);
} else if ((checkpath = CClass_GetBasePathRec(base->base, b, newOffset, depth + 1))) {
newpath = lalloc(sizeof(BClassList));
newpath->next = checkpath;
newpath->type = TYPE(base->base);
if (!bestpath || CClass_IsMoreAccessiblePath(newpath, bestpath))
bestpath = newpath;
}
}
return bestpath;
}
BClassList *CClass_GetBasePath(TypeClass *a, TypeClass *b, short *founddepth, Boolean *isambigbase) {
BClassList *path;
BClassList *result;
if ((a->flags & (CLASS_FLAGS_2 | CLASS_FLAGS_800)) == CLASS_FLAGS_800)
CDecl_CompleteType(TYPE(a));
if ((b->flags & (CLASS_FLAGS_2 | CLASS_FLAGS_800)) == CLASS_FLAGS_800)
CDecl_CompleteType(TYPE(b));
cclass_founddepth = 0;
cclass_isbase_mostderived = a;
cclass_isbase_foundoffset = -1;
cclass_isambigbase = 0;
if ((path = CClass_GetBasePathRec(a, b, 0, 1))) {
*founddepth = cclass_founddepth;
*isambigbase = cclass_isambigbase;
result = lalloc(sizeof(BClassList));
result->next = path;
result->type = TYPE(a);
return result;
} else {
*isambigbase = 0;
return NULL;
}
}
Boolean CClass_IsBaseClass(TypeClass *a, TypeClass *b, short *founddepth, Boolean pathcheckflag, Boolean ambigerrorflag) {
BClassList *path;
short depth;
Boolean isambigbase;
if ((path = CClass_GetBasePath(a, b, &depth, &isambigbase))) {
if (isambigbase && ambigerrorflag)
CError_Error(CErrorStr188);
if (pathcheckflag)
CClass_CheckPathAccess(path, NULL, ACCESSPUBLIC);
if (founddepth)
*founddepth = depth;
return 1;
}
return 0;
}
TypeClass *CClass_GetQualifiedClass(void) {
DeclInfo di;
memclrw(&di, sizeof(di));
CParser_GetDeclSpecs(&di, 0);
if (IS_TYPE_CLASS(di.thetype))
return TYPE_CLASS(di.thetype);
return NULL;
}
ENode *CClass_AccessPathCast(BClassList *path, ENode *expr, Boolean reverse) {
ClassList *base;
SInt32 offset;
while (path && path->next) {
base = TYPE_CLASS(path->type)->bases;
while (1) {
if (base->base == TYPE_CLASS(path->next->type))
break;
CError_ASSERT(1157, base = base->next);
}
if (base->is_virtual) {
if (reverse) {
CError_Error(CErrorStr164);
break;
}
if (!base->base->sominfo) {
offset = base->offset;
if (offset && !canadd(expr, offset)) {
expr = makediadicnode(expr, intconstnode(TYPE(&stunsignedlong), offset), EADD);
optimizecomm(expr);
}
expr->rtype = CDecl_NewPointerType(CDecl_NewPointerType(TYPE(base->base)));
expr = makemonadicnode(expr, EINDIRECT);
expr->rtype = expr->data.monadic->rtype;
}
} else {
offset = base->offset;
if (offset) {
if (reverse)
offset = -offset;
if (!canadd(expr, offset)) {
expr = makediadicnode(expr, intconstnode(TYPE(&stunsignedlong), offset), EADD);
optimizecomm(expr);
}
}
}
path = path->next;
}
return expr;
}
ENode *CClass_ClassPointerCast(ENode *expr, TypeClass *a, TypeClass *b, Boolean typconflag, Boolean ambigerrorflag, Boolean pathcheckflag) {
BClassList *path;
Boolean reverse;
short depth;
Boolean isambigbase;
reverse = 0;
if (a != b) {
if (!(path = CClass_GetBasePath(a, b, &depth, &isambigbase))) {
CError_ASSERT(1216, typconflag);
if ((path = CClass_GetBasePath(b, a, &depth, &isambigbase))) {
reverse = 1;
goto doCast;
}
} else {
doCast:
if (isambigbase && ambigerrorflag)
CError_Error(CErrorStr188);
if (pathcheckflag)
CClass_CheckPathAccess(path, NULL, ACCESSPUBLIC);
if (!(a->flags & CLASS_FLAGS_10) && !b->sominfo)
expr = CClass_AccessPathCast(path, expr, reverse);
}
}
if (typconflag && ENODE_IS(expr, EINDIRECT) && IS_TYPE_POINTER_ONLY(expr->rtype))
expr = makemonadicnode(expr, ETYPCON);
return expr;
}
ENode *CClass_DirectBasePointerCast(ENode *expr, TypeClass *a, TypeClass *b) {
ClassList *base;
VClassList *vbase;
BClassList *path;
BClassList list1;
BClassList list2;
short depth;
Boolean isambigbase;
for (base = a->bases; base; base = base->next) {
if (base->base == b) {
list1.next = &list2;
list1.type = TYPE(a);
list2.next = NULL;
list2.type = TYPE(b);
return CClass_AccessPathCast(&list1, expr, 0);
}
}
for (vbase = a->vbases; vbase; vbase = vbase->next) {
if (vbase->base == b) {
CError_ASSERT(1273, path = CClass_GetBasePath(a, b, &depth, &isambigbase));
return CClass_AccessPathCast(path, expr, 0);
}
}
CError_FATAL(1277);
return expr;
}
SInt32 CClass_GetPathOffset(BClassList *path) {
SInt32 offset;
ClassList *base;
offset = 0;
while (path->next) {
if (path->type != path->next->type) {
for (base = TYPE_CLASS(path->type)->bases; base; base = base->next) {
if (base->base == TYPE_CLASS(path->next->type))
break;
}
if (!base) {
CError_Error(CErrorStr221);
return offset;
}
}
if (base->is_virtual)
return -1;
offset += base->offset;
path = path->next;
}
return offset;
}
Boolean CClass_ClassDominates(TypeClass *tclass, TypeClass *baseclass) {
ClassList *base;
for (base = tclass->bases; base; base = base->next) {
if (base->base == baseclass || CClass_ClassDominates(base->base, baseclass))
return 1;
}
return 0;
}
SInt32 CClass_VirtualBaseOffset(TypeClass *tclass, TypeClass *baseclass) {
VClassList *vbase;
for (vbase = tclass->vbases; vbase; vbase = vbase->next) {
if (vbase->base == baseclass)
return vbase->offset;
}
CError_FATAL(1342);
return 0;
}
SInt32 CClass_VirtualBaseVTableOffset(TypeClass *tclass, TypeClass *baseclass) {
VClassList *vbase;
for (vbase = tclass->vbases; vbase; vbase = vbase->next) {
if (vbase->base == baseclass)
return vbase->voffset;
}
CError_FATAL(1359);
return 0;
}
SInt32 CClass_GetMemberOffset(TypeClass *tclass, HashNameNode *name, ObjMemberVar **resultIvar) {
ObjMemberVar *ivar;
ClassList *base;
SInt32 offset;
SInt32 tmp;
Boolean foundflag;
for (ivar = tclass->ivars; ivar; ivar = ivar->next) {
if (ivar->name == name) {
if (resultIvar)
*resultIvar = ivar;
return ivar->offset;
}
}
for (base = tclass->bases, foundflag = 0; base; base = base->next) {
switch ((tmp = CClass_GetMemberOffset(base->base, name, resultIvar))) {
case -3:
case -2:
return tmp;
case -1:
break;
default:
if (base->is_virtual)
return -3;
if (foundflag)
return -2;
foundflag = 1;
offset = base->offset + tmp;
}
}
return foundflag ? offset : -1;
}
Boolean CClass_OverridesBaseMember(TypeClass *tclass, HashNameNode *name, Object *obj) {
NameSpaceObjectList *nsol;
ClassList *base;
Boolean result;
result = 0;
for (base = tclass->bases; base; base = base->next) {
if (base->base->vtable) {
for (nsol = CScope_FindName(base->base->nspace, name); nsol; nsol = nsol->next) {
if (
nsol->object->otype == OT_OBJECT &&
OBJECT(nsol->object)->datatype == DVFUNC &&
CClass_GetOverrideKind(TYPE_FUNC(OBJECT(nsol->object)->type), TYPE_FUNC(obj->type), 1)
)
result = 1;
}
if (CClass_OverridesBaseMember(base->base, name, obj))
result = 1;
}
}
return result;
}
static OVClass *CClass_FindOVClass(OVClass *ovclass, TypeClass *tclass, SInt32 offset) {
OVClassBase *ovbase;
if (ovclass->tclass == tclass && ovclass->offset == offset)
return ovclass;
for (ovbase = ovclass->bases; ovbase; ovbase = ovbase->next) {
if ((ovclass = CClass_FindOVClass(ovbase->ovclass, tclass, offset)))
return ovclass;
}
return NULL;
}
static OVClass *CClass_BuildOVClassTree(OVClass *root, TypeClass *tclass, SInt32 offset, SInt32 voffset) {
ClassList *base;
Object *object;
OVClass *tree;
OVFunc *ovfunc;
OVClassBase *ovbase;
SInt32 vboffset;
SInt32 vbvoffset;
CScopeObjectIterator iter;
tree = lalloc(sizeof(OVClass));
memclrw(tree, sizeof(OVClass));
tree->tclass = tclass;
tree->offset = offset;
tree->voffset = voffset;
if (!root)
root = tree;
CScope_InitObjectIterator(&iter, tclass->nspace);
while (1) {
if (!(object = OBJECT(CScope_NextObjectIteratorObject(&iter))))
break;
if (object->datatype == DVFUNC) {
ovfunc = lalloc(sizeof(OVFunc));
memclrw(ovfunc, sizeof(OVFunc));
ovfunc->next = tree->vfuncs;
ovfunc->obj = object;
tree->vfuncs = ovfunc;
}
}
for (base = tclass->bases; base; base = base->next) {
if (base->base->vtable || base->base->sominfo) {
ovbase = lalloc(sizeof(OVClassBase));
memclrw(ovbase, sizeof(OVClassBase));
if (base->is_virtual) {
vboffset = CClass_VirtualBaseOffset(main_class, base->base);
if (!(ovbase->ovclass = CClass_FindOVClass(root, base->base, vboffset))) {
vbvoffset = CClass_VirtualBaseVTableOffset(main_class, base->base);
ovbase->ovclass = CClass_BuildOVClassTree(root, base->base, vboffset, vbvoffset);
}
ovbase->is_virtual = 1;
} else {
ovbase->ovclass = CClass_BuildOVClassTree(
root,
base->base,
offset + base->offset,
voffset + base->voffset);
ovbase->is_virtual = 0;
}
ovbase->next = tree->bases;
tree->bases = ovbase;
}
}
return tree;
}
static Boolean CClass_IsBaseOf(OVClass *a, OVClass *b) {
OVClassBase *ovbase;
for (ovbase = b->bases; ovbase; ovbase = ovbase->next) {
if (
(ovbase->ovclass->tclass == a->tclass && ovbase->ovclass->offset == a->offset) ||
CClass_IsBaseOf(a, ovbase->ovclass)
)
{
if (!cclass_ovbase && ovbase->is_virtual)
cclass_ovbase = ovbase->ovclass;
return 1;
}
}
return 0;
}
static void CClass_FindOVFunc(OVClass *a, OVClass *b, OVFunc *func) {
OVFunc *scan;
OVClassBase *ovbase;
UInt8 overrideKind;
if (CClass_IsBaseOf(b, a)) {
for (scan = a->vfuncs; scan; scan = scan->next) {
if (
(func->obj->name == scan->obj->name) &&
(overrideKind = CClass_GetOverrideKind(TYPE_FUNC(func->obj->type), TYPE_FUNC(scan->obj->type), 0))
)
{
if (func->ovc8) {
if (func->ovc8->tclass == a->tclass || CClass_ClassDominates(func->ovc8->tclass, a->tclass))
return;
if (!CClass_ClassDominates(a->tclass, func->ovc8->tclass)) {
func->ovf10 = scan;
return;
}
}
if (a == cclass_root) {
TYPE_FUNC(scan->obj->type)->flags |= FUNC_FLAGS_20;
if (overrideKind == 2)
TYPE_FUNC(scan->obj->type)->flags |= FUNC_FLAGS_400000;
}
func->ovc8 = a;
func->ovfC = scan;
func->ovf10 = NULL;
return;
}
}
for (ovbase = a->bases; ovbase; ovbase = ovbase->next)
CClass_FindOVFunc(ovbase->ovclass, b, func);
}
}
static TypeList *CClass_GetCoVariantClassList(TypeList *list, TypeClass *tclass, Object *func, Boolean flag) {
Object *object;
TypeList *scan;
Type *type;
ClassList *base;
CScopeObjectIterator iter;
if (!flag) {
CScope_InitObjectIterator(&iter, tclass->nspace);
while (1) {
if (!(object = OBJECT(CScope_NextObjectIteratorObject(&iter))))
break;
if (
object->name == func->name &&
object->datatype == DVFUNC &&
CClass_GetOverrideKind(TYPE_FUNC(object->type), TYPE_FUNC(func->type), 0) == 2
)
{
CError_ASSERT(1686,
IS_TYPE_POINTER_ONLY(TYPE_FUNC(object->type)->functype) &&
IS_TYPE_CLASS(TPTR_TARGET(TYPE_FUNC(object->type)->functype)));
type = TPTR_TARGET(TYPE_FUNC(object->type)->functype);
for (scan = list; scan; scan = scan->next) {
if (scan->type == type)
break;
}
if (!scan) {
scan = lalloc(sizeof(TypeList));
scan->type = type;
scan->next = list;
list = scan;
}
}
}
}
for (base = tclass->bases; base; base = base->next) {
if (base->base->vtable)
list = CClass_GetCoVariantClassList(list, base->base, func, 0);
}
return list;
}
static TypeMethod *CClass_GetCovariantType(TypeMethod *tmethod, Type *type) {
TypePointer *tptr;
TypeMethod *result;
CError_ASSERT(1724,
IS_TYPE_METHOD(tmethod) &&
IS_TYPE_POINTER_ONLY(tmethod->functype));
tptr = galloc(sizeof(TypePointer));
*tptr = *TYPE_POINTER(tmethod->functype);
tptr->target = type;
result = galloc(sizeof(TypeMethod));
*result = *tmethod;
result->flags &= ~(FUNC_FLAGS_20 | FUNC_FLAGS_400000);
result->functype = TYPE(tptr);
return result;
}
static Object *CClass_FindCovariantFunction(Object *func, Type *type) {
NameSpaceObjectList *nsol;
nsol = CScope_FindName(
TYPE_METHOD(func->type)->theclass->nspace,
CMangler_GetCovariantFunctionName(func, TYPE_CLASS(type)));
CError_ASSERT(1754, nsol && !nsol->next && nsol->object->otype == OT_OBJECT);
return OBJECT(nsol->object);
}
static ObjectList *CClass_DeclareCovariantFuncs(ObjectList *list, Object *func, TypeClass *tclass) {
Object *newfunc;
HashNameNode *name;
TypeList *types;
ObjectList *newlist;
for (types = CClass_GetCoVariantClassList(NULL, tclass, func, 1); types; types = types->next) {
name = CMangler_GetCovariantFunctionName(func, TYPE_CLASS(types->type));
newfunc = galloc(sizeof(Object));
memclrw(newfunc, sizeof(Object));
newfunc->otype = OT_OBJECT;
newfunc->datatype = DFUNC;
newfunc->section = func->section;
newfunc->nspace = func->nspace;
newfunc->name = name;
newfunc->type = TYPE(CClass_GetCovariantType(TYPE_METHOD(func->type), types->type));
newfunc->qual = func->qual & ~Q_INLINE;
newfunc->sclass = func->sclass;
newfunc->u.func.linkname = name;
newlist = lalloc(sizeof(ObjectList));
newlist->object = newfunc;
newlist->next = list;
list = newlist;
}
return list;
}
void CClass_DefineCovariantFuncs(Object *method, CI_FuncData *ifuncdata) {
NameSpace *nspace;
TypeList *types;
Object *covariantFunc;
Statement *stmt;
Type *tptr;
Statement firstStmt;
for (types = CClass_GetCoVariantClassList(NULL, TYPE_METHOD(method->type)->theclass, method, 1); types; types = types->next) {
covariantFunc = CClass_FindCovariantFunction(method, types->type);
tptr = CDecl_NewPointerType(types->type);
nspace = CFunc_FuncGenSetup(&firstStmt, covariantFunc);
CInline_UnpackIFunctionData(covariantFunc, ifuncdata, &firstStmt);
for (stmt = &firstStmt; stmt; stmt = stmt->next) {
if (stmt->type == ST_RETURN && stmt->expr)
stmt->expr = CExpr_AssignmentPromotion(stmt->expr, tptr, ENODE_QUALS(stmt->expr), 0);
}
CFunc_Gen(&firstStmt, covariantFunc, 0);
cscope_current = nspace->parent;
}
}
static void CClass_OverrideOVClassTree(OVClass *ovclass) {
OVClassBase *ovbase;
OVFunc *ovfunc;
if (cclass_root != ovclass) {
for (ovfunc = ovclass->vfuncs; ovfunc; ovfunc = ovfunc->next)
CClass_FindOVFunc(cclass_root, ovclass, ovfunc);
}
for (ovbase = ovclass->bases; ovbase; ovbase = ovbase->next)
CClass_OverrideOVClassTree(ovbase->ovclass);
}
static void CClass_AllocVTableRec(OVClass *ovclass) {
OVFunc *ovfunc;
Object *object;
SInt32 offset27;
SInt32 offset26;
SInt32 offset23;
OVClassBase *ovbase;
OLinkList *link;
if (ovclass->alloced_vtable)
return;
for (ovfunc = ovclass->vfuncs; ovfunc; ovfunc = ovfunc->next) {
offset27 = ovclass->voffset + TYPE_METHOD(ovfunc->obj->type)->x1E + CABI_GetVTableOffset(ovclass->tclass);
CError_ASSERT(1867, offset27 < vtable_data_size);
if (!(vtable_object_data[offset27])) {
if (ovfunc->ovfC) {
object = ovfunc->ovfC->obj;
if (
(TYPE_FUNC(object->type)->flags & FUNC_FLAGS_400000) &&
CClass_GetOverrideKind(TYPE_FUNC(ovfunc->obj->type), TYPE_FUNC(object->type), 0) == 2
)
{
CError_ASSERT(1887,
IS_TYPE_POINTER_ONLY(TYPE_FUNC(ovfunc->obj->type)->functype) &&
IS_TYPE_CLASS(TPTR_TARGET(TYPE_FUNC(ovfunc->obj->type)->functype)));
object = CClass_FindCovariantFunction(
object,
TPTR_TARGET(TYPE_FUNC(ovfunc->obj->type)->functype));
}
if ((offset26 = ovfunc->ovc8->offset - ovclass->offset)) {
if (!(TYPE_FUNC(object->type)->flags & FUNC_FLAGS_8)) {
cclass_ovbase = NULL;
CError_ASSERT(1899, CClass_IsBaseOf(ovclass, ovfunc->ovc8));
if (cclass_ovbase && (main_class->flags & CLASS_FLAGS_8000)) {
offset23 = ovclass->offset - cclass_ovbase->offset;
offset23 = CABI_GetCtorOffsetOffset(cclass_ovbase->tclass, NULL) - offset23;
CError_ASSERT(1906, offset23 > 0);
object = CClass_ThunkObject(object, offset26, 0, offset23);
} else {
object = CClass_ThunkObject(object, offset26, 0, -1);
}
}
}
} else {
object = ovfunc->obj;
}
if (!(TYPE_FUNC(object->type)->flags & FUNC_FLAGS_8)) {
link = lalloc(sizeof(OLinkList));
link->next = vtable_object_links;
link->obj = object;
link->offset = offset27;
link->somevalue = 0;
vtable_object_links = link;
vtable_object_data[offset27] = 1;
}
}
}
ovclass->alloced_vtable = 1;
for (ovbase = ovclass->bases; ovbase; ovbase = ovbase->next)
CClass_AllocVTableRec(ovbase->ovclass);
}
static Object *CClass_CheckClass(OVClass *ovclass, Boolean errorflag) {
Object *object;
Object *check;
OVFunc *ovfunc;
OVClassBase *ovbase;
object = NULL;
for (ovfunc = ovclass->vfuncs; ovfunc; ovfunc = ovfunc->next) {
if (ovfunc->ovf10 && errorflag)
CError_Error(CErrorStr251, main_class, 0, ovfunc->obj, ovfunc->ovfC->obj, ovfunc->ovf10->obj);
if (!object) {
check = ovfunc->ovfC ? ovfunc->ovfC->obj : ovfunc->obj;
if (TYPE_FUNC(check->type)->flags & FUNC_FLAGS_8)
object = check;
}
}
for (ovbase = ovclass->bases; ovbase; ovbase = ovbase->next) {
if (object)
CClass_CheckClass(ovbase->ovclass, errorflag);
else
object = CClass_CheckClass(ovbase->ovclass, errorflag);
}
return object;
}
static void CClass_AllocVTable(TypeClass *tclass) {
OVClass *ovclass;
main_class = tclass;
ovclass = CClass_BuildOVClassTree(NULL, tclass, 0, 0);
cclass_root = ovclass;
CClass_OverrideOVClassTree(ovclass);
CClass_CheckClass(ovclass, 1);
CClass_AllocVTableRec(ovclass);
}
static Object *CClass_CheckVirtuals(TypeClass *tclass) {
OVClass *ovclass;
main_class = tclass;
ovclass = CClass_BuildOVClassTree(NULL, tclass, 0, 0);
cclass_root = ovclass;
CClass_OverrideOVClassTree(ovclass);
return CClass_CheckClass(ovclass, 0);
}
static void CClass_CheckVirtualBaseOverrides(OVClass *a, OVClass *b, Boolean flag) {
VClassList *vbase;
OVFunc *ovfunc;
OVClassBase *ovbase;
if (flag) {
for (ovfunc = b->vfuncs; ovfunc; ovfunc = ovfunc->next) {
if (ovfunc->ovfC) {
cclass_ovbase = NULL;
CError_ASSERT(2040, CClass_IsBaseOf(b, ovfunc->ovc8));
if (cclass_ovbase) {
for (vbase = a->tclass->vbases; vbase; vbase = vbase->next) {
if (vbase->base == cclass_ovbase->tclass)
break;
}
CError_ASSERT(2047, vbase);
vbase->has_override = 1;
}
}
}
}
for (ovbase = b->bases; ovbase; ovbase = ovbase->next) {
CClass_CheckVirtualBaseOverrides(a, ovbase->ovclass, flag || ovbase->is_virtual);
}
}
static void CClass_CheckHideVirtual(OVClass *a, OVClass *b) {
OVClassBase *ovbase;
OVFunc *ovfunc;
Object *foundObject;
Boolean isAlias;
Object *object;
CScopeObjectIterator iter;
if (a != b) {
for (ovfunc = b->vfuncs; ovfunc; ovfunc = ovfunc->next) {
if (ovfunc->ovc8 != a) {
foundObject = NULL;
isAlias = 0;
CScope_InitObjectIterator(&iter, a->tclass->nspace);
while (1) {
if (!(object = OBJECT(CScope_NextObjectIteratorObject(&iter))))
break;
if (object->name == ovfunc->obj->name && IS_TYPE_FUNC(object->type)) {
if (object->datatype != DALIAS) {
if (!(TYPE_FUNC(object->type)->flags & FUNC_FLAGS_20))
foundObject = object;
} else {
if (object->u.alias.object == ovfunc->obj) {
// don't show a warning if this is just an alias to the base function
isAlias = 1;
break;
}
}
}
}
if (foundObject && !isAlias)
CError_Warning(CErrorStr225, foundObject, ovfunc->obj);
}
}
}
for (ovbase = b->bases; ovbase; ovbase = ovbase->next)
CClass_CheckHideVirtual(a, ovbase->ovclass);
}
void CClass_CheckOverrides(TypeClass *tclass) {
OVClass *tree;
Object *object;
ObjectList *objlist;
ClassList *base;
VClassList *vbase;
int i;
CScopeObjectIterator iter;
i = 0;
for (base = tclass->bases; base; base = base->next) {
base->offset = i;
base->voffset = i;
i++;
}
for (vbase = tclass->vbases; vbase; vbase = vbase->next) {
vbase->offset = i;
vbase->voffset = i;
i++;
}
main_class = tclass;
tree = CClass_BuildOVClassTree(NULL, tclass, 0, 0);
cclass_root = tree;
CClass_OverrideOVClassTree(tree);
if (CClass_CheckClass(tree, 0))
tclass->flags |= CLASS_FLAGS_ABSTRACT;
if (copts.warn_hidevirtual)
CClass_CheckHideVirtual(tree, tree);
if (tclass->flags & CLASS_FLAGS_8000)
CClass_CheckVirtualBaseOverrides(tree, tree, 0);
objlist = NULL;
CScope_InitObjectIterator(&iter, tclass->nspace);
while (1) {
if (!(object = OBJECT(CScope_NextObjectIteratorObject(&iter))))
break;
if (object->datatype == DVFUNC) {
CError_ASSERT(2175, IS_TYPE_FUNC(object->type));
if (TYPE_FUNC(object->type)->flags & FUNC_FLAGS_400000)
objlist = CClass_DeclareCovariantFuncs(objlist, object, tclass);
}
}
while (objlist) {
CScope_AddObject(tclass->nspace, objlist->object->name, OBJ_BASE(objlist->object));
objlist = objlist->next;
}
for (base = tclass->bases; base; base = base->next) {
base->offset = 0;
base->voffset = 0;
}
for (vbase = tclass->vbases; vbase; vbase = vbase->next) {
vbase->offset = 0;
vbase->voffset = 0;
}
}
static void CClass_FindDominator(TypeClass *tclass1, SInt32 offset1, Object *object1, TypeClass *tclass2, SInt32 offset2, TypeClass *tclass3) {
Object *object;
ClassList *base;
CScopeObjectIterator iter;
CScope_InitObjectIterator(&iter, tclass1->nspace);
while (1) {
if (!(object = OBJECT(CScope_NextObjectIteratorObject(&iter))))
break;
if (
object->name == cclass_dominator_vobject->name &&
object->datatype == DVFUNC &&
CClass_GetOverrideKind(TYPE_FUNC(cclass_dominator_vobject->type), TYPE_FUNC(object->type), 0)
)
{
if (object == cclass_dominator_vobject && offset1 == cclass_dominator_voffset) {
if (object1) {
if (cclass_dominator_oobject && cclass_dominator_ooffset != offset2) {
if (CClass_ClassDominates(cclass_dominator_oclass, tclass2))
return;
if (!CClass_ClassDominates(tclass2, cclass_dominator_oclass)) {
cclass_dominator_eobject = object1;
cclass_vbase = tclass3;
return;
}
}
cclass_dominator_oobject = object1;
cclass_dominator_ooffset = offset2;
cclass_dominator_oclass = tclass2;
cclass_dominator_eobject = NULL;
cclass_vbase = tclass3;
}
return;
} else {
if (!object1) {
object1 = object;
tclass2 = tclass1;
offset2 = offset1;
}
break;
}
}
}
for (base = tclass1->bases; base; base = base->next) {
if (base->base->vtable) {
if (!base->is_virtual) {
CClass_FindDominator(base->base, offset1 + base->offset, object1, tclass2, offset2, tclass3);
} else {
SInt32 vboffset = CClass_VirtualBaseOffset(main_class, base->base);
CClass_FindDominator(base->base, vboffset, object1, tclass2, offset2, base->base);
}
}
}
}
static void CClass_ConstructVTable(TypeClass *tclass, SInt32 voffset, SInt32 offset, TypeClass *baseclass) {
Object *object;
Object *thunkobject;
SInt32 newoffset;
SInt32 newvoffset;
ClassList *base;
SInt32 thunkoffset;
OLinkList *olink;
CScopeObjectIterator iter;
CScope_InitObjectIterator(&iter, tclass->nspace);
while (1) {
if (!(object = OBJECT(CScope_NextObjectIteratorObject(&iter))))
break;
if (object->datatype == DVFUNC) {
newoffset = voffset + TYPE_METHOD(object->type)->x1E + CABI_GetVTableOffset(tclass);
CError_ASSERT(2288, newoffset < vtable_data_size);
if (!vtable_object_data[newoffset]) {
cclass_dominator_vobject = object;
cclass_dominator_voffset = offset;
cclass_dominator_oobject = NULL;
cclass_dominator_ooffset = offset;
CClass_FindDominator(main_class, 0, NULL, NULL, 0, NULL);
if (cclass_dominator_oobject) {
if (cclass_dominator_eobject)
CError_Error(CErrorStr251, main_class, 0, cclass_dominator_vobject, cclass_dominator_oobject, cclass_dominator_eobject);
} else {
cclass_dominator_oobject = object;
cclass_vbase = NULL;
}
vtable_object_data[newoffset] = 1;
if (!(TYPE_FUNC(cclass_dominator_oobject->type)->flags & FUNC_FLAGS_8)) {
if (!check_pures) {
thunkobject = cclass_dominator_oobject;
if ((thunkoffset = cclass_dominator_ooffset - offset)) {
if (cclass_vbase && (main_class->flags & CLASS_FLAGS_8000)) {
thunkobject = CClass_ThunkObject(cclass_dominator_oobject, thunkoffset, 0,
CABI_GetCtorOffsetOffset(cclass_vbase, tclass));
} else {
thunkobject = CClass_ThunkObject(cclass_dominator_oobject, thunkoffset, 0, -1);
}
}
olink = lalloc(sizeof(OLinkList));
olink->next = vtable_object_links;
olink->obj = thunkobject;
olink->offset = newoffset;
olink->somevalue = 0;
vtable_object_links = olink;
}
} else {
found_pure = cclass_dominator_oobject;
}
}
}
}
for (base = tclass->bases; base; base = base->next) {
if (base->base->vtable) {
if (base->is_virtual) {
newoffset = CClass_VirtualBaseOffset(main_class, base->base);
newvoffset = CClass_VirtualBaseVTableOffset(main_class, base->base);
CClass_ConstructVTable(
base->base,
newvoffset,
newoffset,
base->base
);
} else {
CClass_ConstructVTable(
base->base,
voffset + base->voffset,
offset + base->offset,
baseclass
);
}
}
}
}
void CClass_ClassDefaultFuncAction(TypeClass *tclass) {
}
void CClass_ClassAction(TypeClass *tclass) {
if (tclass->sominfo) {
CSOM_GenerateClassStructures(tclass);
} else if (tclass->vtable) {
vtable_data_size = tclass->vtable->size;
vtable_object_data = lalloc(vtable_data_size);
memclrw(vtable_object_data, vtable_data_size);
main_class = tclass;
vtable_object_links = NULL;
found_pure = NULL;
check_pures = 0;
CClass_AllocVTable(tclass);
memclrw(vtable_object_data, vtable_data_size);
if (copts.RTTI && !(tclass->flags & (CLASS_FLAGS_10 | CLASS_FLAGS_2000)))
vtable_object_links = CRTTI_ConstructVTableHeaders(tclass, vtable_object_data, vtable_object_links);
CError_ASSERT(2492, tclass->vtable->object->type->size == tclass->vtable->size);
CInit_DeclareData(tclass->vtable->object, vtable_object_data, vtable_object_links, tclass->vtable->size);
}
}
void CClass_MakeStaticActionClass(TypeClass *tclass) {
if (tclass->vtable) {
tclass->vtable->object->sclass = TK_STATIC;
tclass->vtable->object->qual |= Q_20000;
if (!(tclass->vtable->object->flags & OBJECT_FLAGS_2)) {
CParser_NewCallBackAction(tclass->vtable->object, tclass);
} else if (cparamblkptr->precompile != 1) {
CParser_NewClassAction(tclass);
}
}
}
Object *CClass_CheckPures(TypeClass *tclass) {
return CClass_CheckVirtuals(tclass);
}
void CClass_MemberDef(Object *obj, TypeClass *tclass) {
switch (tclass->action) {
case CLASS_ACTION_0:
break;
case CLASS_ACTION_1:
if (IS_TYPE_FUNC(obj->type) && (TYPE_FUNC(obj->type)->flags & FUNC_FLAGS_4)) {
if (obj->qual & Q_INLINE) {
if (tclass->sominfo)
CError_Error(CErrorStr280);
tclass->action = CLASS_ACTION_0;
CClass_MakeStaticActionClass(tclass);
} else if (cparamblkptr->precompile != 1) {
CParser_NewClassAction(tclass);
}
}
break;
case CLASS_ACTION_2:
CError_FATAL(2682);
break;
case CLASS_ACTION_3:
break;
default:
CError_FATAL(2701);
}
}
Object *CClass_ThisSelfObject(void) {
ObjectList *list;
if (cscope_currentfunc && cscope_currentclass) {
if (cscope_currentclass->objcinfo) {
for (list = arguments; list; list = list->next) {
if (list->object->name == self_name_node)
return list->object;
}
CError_Error(CErrorStr301);
} else {
if (cscope_is_member_func) {
for (list = arguments; list; list = list->next) {
if (list->object->name == this_name_node)
return list->object;
}
}
CError_Error(CErrorStr189);
}
}
CError_Error(copts.cplusplus ? CErrorStr189 : CErrorStr301);
return NULL;
}
ENode *CClass_CreateThisSelfExpr(void) {
Object *object;
ENode *expr;
if (!(object = CClass_ThisSelfObject()))
return NULL;
expr = create_objectrefnode(object);
expr->rtype = CDecl_NewPointerType(TYPE(cscope_currentclass));
expr = makemonadicnode(expr, EINDIRECT);
expr->data.monadic->rtype = CDecl_NewPointerType(expr->rtype);
return expr;
}
static AccessType CClass_BaseMemberAccess(BClassList *path, AccessType access) {
ClassList *base;
if (path->next) {
access = CClass_BaseMemberAccess(path->next, access);
switch (access) {
case ACCESSPRIVATE:
case ACCESSNONE:
return ACCESSNONE;
}
for (base = TYPE_CLASS(path->type)->bases; ; base = base->next) {
if (!base)
return ACCESSNONE;
if (base->base == TYPE_CLASS(path->next->type)) {
switch (base->access) {
case ACCESSNONE:
access = ACCESSNONE;
break;
case ACCESSPROTECTED:
if (access == ACCESSPUBLIC)
access = ACCESSPROTECTED;
break;
case ACCESSPRIVATE:
if (access == ACCESSPRIVATE)
access = ACCESSNONE;
else
access = ACCESSPRIVATE;
break;
case ACCESSPUBLIC:
break;
}
break;
}
}
}
return access;
}
static Boolean CClass_CanAccess(BClassList *path, AccessType access) {
AccessType access2;
BClassList *scan;
BClassList *next;
TypeClass *prevclass;
TypeClass *tclass;
ClassList *base;
ClassFriend *cfriend;
tclass = TYPE_CLASS(path->type);
access2 = access;
if ((scan = path->next)) {
if (access2 != ACCESSPRIVATE) {
prevclass = tclass;
while (scan) {
for (base = prevclass->bases; base; base = base->next) {
if (base->base == TYPE_CLASS(scan->type))
break;
}
if (!base)
return 0;
switch (base->access) {
case ACCESSNONE:
access2 = ACCESSNONE;
break;
case ACCESSPROTECTED:
if (access2 == ACCESSPUBLIC)
access2 = ACCESSPROTECTED;
break;
case ACCESSPRIVATE:
if (access2 == ACCESSPRIVATE)
access2 = ACCESSNONE;
else
access2 = ACCESSPRIVATE;
break;
case ACCESSPUBLIC:
break;
}
prevclass = TYPE_CLASS(scan->type);
scan = scan->next;
}
} else {
access2 = ACCESSNONE;
}
}
if (access2 == ACCESSPUBLIC)
return 1;
if (access2 != ACCESSNONE) {
if (cscope_currentclass == tclass)
return 1;
if (cobjc_currentclass == tclass)
return 1;
for (cfriend = tclass->friends; cfriend; cfriend = cfriend->next) {
if (cfriend->isclass) {
if (cfriend->u.theclass == cscope_currentclass)
return 1;
} else {
if (cfriend->u.obj == cscope_currentfunc)
return 1;
}
}
}
for (scan = path; scan->next; scan = scan->next) {
if (CClass_CanAccess(scan->next, access)) {
if ((next = scan->next->next) || access != ACCESSPUBLIC) {
scan->next->next = NULL;
if (CClass_CanAccess(path, ACCESSPUBLIC)) {
scan->next->next = next;
return 1;
}
scan->next->next = next;
}
}
}
return 0;
}
void CClass_CheckPathAccess(BClassList *path, Object *obj, AccessType access) {
if (!CClass_CanAccess(path, access)) {
if (path && obj)
CError_Error(CErrorStr381, path->type, 0, obj);
else
CError_Error(CErrorStr187);
}
}
static BClassList *CClass_PathCleanup(BClassList *path, TypeClass *tclass) {
BClassList *first;
ClassList *base;
first = path;
while (1) {
if (!path->next) {
if (!tclass)
return first;
if (path->type == TYPE(tclass))
return first;
return NULL;
}
if (path->type != path->next->type) {
for (base = TYPE_CLASS(path->type)->bases; base; base = base->next) {
if (base->base == TYPE_CLASS(path->next->type))
break;
}
if (base) {
path = path->next;
} else {
first = path = path->next;
}
} else {
path->next = path->next->next;
}
}
}
void CClass_CheckStaticAccess(BClassList *path, TypeClass *tclass, AccessType access) {
ClassFriend *cfriend;
if (path) {
path = CClass_PathCleanup(path, tclass);
if (path && path->next) {
if (!CClass_CanAccess(path, access))
CError_Error(CErrorStr187);
return;
}
}
switch (access) {
case ACCESSPUBLIC:
return;
case ACCESSPRIVATE:
case ACCESSPROTECTED:
if (tclass == cscope_currentclass)
return;
for (cfriend = tclass->friends; cfriend; cfriend = cfriend->next) {
if (cfriend->isclass) {
if (cfriend->u.theclass == cscope_currentclass)
return;
} else {
if (cfriend->u.obj == cscope_currentfunc)
return;
}
}
case ACCESSNONE:
CError_Warning(CErrorStr187);
return;
default:
CError_FATAL(3013);
}
}
void CClass_CheckObjectAccess(BClassList *path, Object *obj) {
short depth;
Boolean isambigbase;
if (obj->nspace && obj->nspace->theclass) {
if (!path && cscope_currentclass)
path = CClass_GetBasePath(cscope_currentclass, obj->nspace->theclass, &depth, &isambigbase);
CClass_CheckStaticAccess(path, obj->nspace->theclass, obj->access);
}
}
void CClass_CheckEnumAccess(BClassList *path, ObjEnumConst *objec) {
if (path) {
if ((path = CClass_PathCleanup(path, NULL))) {
if (!CClass_CanAccess(path, objec->access))
CError_Error(CErrorStr187);
return;
}
}
if (
objec->access != ACCESSPUBLIC &&
IS_TYPE_ENUM(objec->type) &&
TYPE_ENUM(objec->type)->nspace &&
TYPE_ENUM(objec->type)->nspace->theclass
)
CClass_CheckStaticAccess(NULL, TYPE_ENUM(objec->type)->nspace->theclass, objec->access);
}
static Type *CClass_PointerTypeCopy(Type *type) {
Type *copy;
switch (type->type) {
case TYPEPOINTER:
case TYPEARRAY:
copy = galloc(sizeof(TypePointer));
*TYPE_POINTER(copy) = *TYPE_POINTER(type);
TPTR_TARGET(copy) = CClass_PointerTypeCopy(TPTR_TARGET(copy));
return copy;
case TYPEMEMBERPOINTER:
copy = galloc(sizeof(TypeMemberPointer));
*TYPE_MEMBER_POINTER(copy) = *TYPE_MEMBER_POINTER(type);
return copy;
default:
return type;
}
}
Type *CClass_CombineClassAccessQualifiers(Type *type, UInt32 qual1, UInt32 qual2, UInt32 *outflags) {
Type *inner;
qual2 = qual2 & (Q_CONST | Q_VOLATILE);
if (qual1 & Q_MUTABLE)
qual2 &= ~Q_CONST;
qual1 = qual1 & (Q_CONST | Q_VOLATILE);
inner = type;
while (IS_TYPE_ARRAY(inner))
inner = TPTR_TARGET(inner);
switch (inner->type) {
case TYPEMEMBERPOINTER:
case TYPEPOINTER:
if (qual2) {
type = CClass_PointerTypeCopy(type);
inner = type;
while (IS_TYPE_ARRAY(inner))
inner = TPTR_TARGET(inner);
switch (inner->type) {
case TYPEPOINTER:
TPTR_QUAL(inner) |= qual2;
break;
case TYPEMEMBERPOINTER:
TYPE_MEMBER_POINTER(inner)->qual |= qual2;
break;
default:
CError_FATAL(3125);
}
}
break;
default:
qual1 |= qual2;
}
*outflags = qual1;
return type;
}
static void CClass_OptimizeBitFieldAccess(Type **ptype, SInt32 *poffset) {
Type *innertype;
TypeBitfield *newtype;
short i;
innertype = TYPE_BITFIELD(*ptype)->bitfieldtype;
if (TYPE_BITFIELD(*ptype)->unkB == 8) {
switch (TYPE_BITFIELD(*ptype)->unkA) {
case 0:
i = 0;
break;
case 8:
i = 1;
break;
case 16:
i = 2;
break;
case 24:
i = 3;
break;
default:
i = -1;
break;
}
if (i >= 0) {
if (innertype->size != 1) {
if (is_unsigned(TYPE_BITFIELD(*ptype)->bitfieldtype))
*ptype = TYPE(&stunsignedchar);
else
*ptype = TYPE(&stsignedchar);
} else {
*ptype = innertype;
}
*poffset += i;
return;
}
}
if (TYPE_BITFIELD(*ptype)->unkB == 16) {
switch (TYPE_BITFIELD(*ptype)->unkA) {
case 0:
i = 0;
break;
case 16:
i = 2;
break;
default:
i = -1;
break;
}
if (i >= 0) {
if (innertype->size != stsignedshort.size) {
if (is_unsigned(innertype))
*ptype = TYPE(&stunsignedshort);
else
*ptype = TYPE(&stsignedshort);
} else {
*ptype = innertype;
}
*poffset += i;
return;
}
}
if (TYPE_BITFIELD(*ptype)->unkB == 32 && TYPE_BITFIELD(*ptype)->unkA == 0) {
if (innertype->size != stsignedlong.size) {
if (is_unsigned(innertype))
*ptype = TYPE(&stunsignedlong);
else
*ptype = TYPE(&stsignedlong);
} else {
*ptype = innertype;
}
return;
}
if ((*ptype)->size != stsignedchar.size) {
i = TYPE_BITFIELD(*ptype)->unkA + TYPE_BITFIELD(*ptype)->unkB - 1;
if (TYPE_BITFIELD(*ptype)->unkB < 8 && (TYPE_BITFIELD(*ptype)->unkA & 0xFFF8) == (i & 0xFFF8)) {
newtype = galloc(sizeof(TypeBitfield));
*newtype = *TYPE_BITFIELD(*ptype);
*ptype = TYPE(newtype);
i = 0;
if (newtype->unkA >= 8)
i = 1;
if (newtype->unkA >= 16)
i = 2;
if (newtype->unkA >= 24)
i = 3;
*poffset += i;
newtype->unkA -= 8 * i;
newtype->bitfieldtype = is_unsigned(innertype) ? TYPE(&stunsignedchar) : TYPE(&stsignedchar);
newtype->size = newtype->bitfieldtype->size;
return;
}
if ((*ptype)->size != stsignedshort.size) {
if (TYPE_BITFIELD(*ptype)->unkB < 16 && (TYPE_BITFIELD(*ptype)->unkA & 0xFFF0) == (i & 0xFFF0)) {
newtype = galloc(sizeof(TypeBitfield));
*newtype = *TYPE_BITFIELD(*ptype);
*ptype = TYPE(newtype);
i = 0;
if (newtype->unkA >= 16)
i = stsignedshort.size;
*poffset += i;
newtype->unkA -= 8 * i;
newtype->bitfieldtype = is_unsigned(innertype) ? TYPE(&stunsignedshort) : TYPE(&stsignedshort);
newtype->size = newtype->bitfieldtype->size;
return;
}
}
}
}
ENode *CClass_AccessMember(ENode *classexpr, Type *type, UInt32 qual, SInt32 offset) {
Type *innertype;
UInt32 flags;
innertype = NULL;
if (IS_TYPE_CLASS(classexpr->rtype) && (TYPE_CLASS(classexpr->rtype)->flags & CLASS_FLAGS_1)) {
classexpr = makemonadicnode(classexpr, EINDIRECT);
classexpr->data.monadic->rtype = CDecl_NewPointerType(classexpr->rtype);
}
if (IS_TYPE_BITFIELD(type)) {
innertype = TYPE_BITFIELD(type)->bitfieldtype;
CClass_OptimizeBitFieldAccess(&type, &offset);
}
if (offset && !canadd(classexpr->data.monadic, offset)) {
classexpr->data.monadic = makediadicnode(
classexpr->data.monadic,
intconstnode(TYPE(&stunsignedlong), offset),
EADD);
optimizecomm(classexpr->data.monadic);
}
if (innertype) {
if (IS_TYPE_BITFIELD(type)) {
classexpr->data.monadic = makemonadicnode(classexpr->data.monadic, EBITFIELD);
classexpr->data.monadic->rtype = type;
classexpr->rtype = TYPE_BITFIELD(type)->bitfieldtype;
} else {
classexpr->rtype = type;
}
} else {
classexpr->rtype = type;
}
classexpr->rtype = CClass_CombineClassAccessQualifiers(classexpr->rtype, qual, ENODE_QUALS(classexpr), &flags);
classexpr->flags = flags;
return classexpr;
}
Reference in New Issue View Git Blame Copy Permalink