static void throwClassPtrCnvs( // MAKE CONVERSIONS FOR A PTR TO CLASS
TYPE type, // - class type
THROW_CNV_CTL *ctl ) // - control area
{
ctl->src_type = type;
ScopeWalkAncestry( type->u.c.scope, &throwBasePtrCnv, ctl );
}
void VfnAncestralWalk( // WALK ANCESTRAL VIRTUAL FUNCTIONS
SYMBOL sym, // - a virtual function
void (*rtn)( // - routine called for self, ancestors
SYMBOL orig, // - - original virtual function
SYMBOL vfun, // - - self or ancestor
void *data ), // - - data passed
void *data ) // - data passed to routine
{
struct walk_data wdata; // - internal data for walker
wdata.vfun = sym;
wdata.data = data;
wdata.rtn = rtn;
ScopeWalkAncestry( SymScope( sym ), &classVisit, &wdata );
}
