char *
eppic_namevar(vnode_t*vn)
{
char *p;
p=eppic_strdup(vn->name);
TAG(p);
return p;
}
value_t *
eppic_setstrval(value_t *val, char *buf)
{
char *newbuf=eppic_strdup(buf);
val->v.data=(void*)newbuf;
val->type.type=V_STRING;
val->type.size=strlen(buf)+1;
val->set=0;
return val;
}
/*
* Drill down the type of the member and update eppic with information
* about the member
*/
static char *
drilldown(ull offset, type_t *t)
{
int type_flag, len = 0, t_len = 0, nidx = 0;
int fctflg = 0, ref = 0, *idxlst = 0;
ull die_off = offset, t_die_off;
char *tstr = NULL, *tstr_dup = NULL;
while (GET_DIE_ATTR_TYPE(die_off, &type_flag, &t_die_off)) {
switch (type_flag) {
/* typedef inserts a level of reference to the actual type */
case DW_TAG_pointer_type:
ref++;
die_off = t_die_off;
/*
* This could be a void *, in which case the drill
* down stops here
*/
if (!GET_DIE_ATTR_TYPE(die_off, &type_flag,
&t_die_off)) {
/* make it a char* */
eppic_parsetype("char", t, ref);
return eppic_strdup("");
}
break;
/* Handle pointer to function */
case DW_TAG_subroutine_type:
fctflg = 1;
die_off = t_die_off;
break;
/* Handle arrays */
case DW_TAG_array_type:
if (!idxlst) {
idxlst = eppic_calloc(sizeof(int) * \
(MAX_ARRAY_DIMENSION + 1));
if (!idxlst) {
ERRMSG("Out of memory\n");
return NULL;
}
}
if (nidx >= MAX_ARRAY_DIMENSION) {
ERRMSG("Too many array indexes. Max=%d\n",
MAX_ARRAY_DIMENSION);
return NULL;
}
/* handle multi-dimensional array */
len = GET_DIE_LENGTH(die_off, FALSE);
t_len = GET_DIE_LENGTH(t_die_off, FALSE);
if (len > 0 && t_len > 0)
idxlst[nidx++] = len / t_len;
die_off = t_die_off;
break;
/* Handle typedef */
case DW_TAG_typedef:
die_off = t_die_off;
break;
case DW_TAG_base_type:
eppic_parsetype(tstr = GET_DIE_NAME(t_die_off), t, 0);
goto out;
case DW_TAG_union_type:
eppic_type_mkunion(t);
goto label;
case DW_TAG_enumeration_type:
eppic_type_mkenum(t);
goto label;
case DW_TAG_structure_type:
eppic_type_mkstruct(t);
goto label;
/* Unknown TAG ? */
default:
die_off = t_die_off;
break;
}
}
label:
eppic_type_setsize(t, GET_DIE_LENGTH(t_die_off, TRUE));
eppic_type_setidx(t, (ull)t_die_off);
tstr = GET_DIE_NAME(t_die_off);
out:
eppic_setupidx(t, ref, nidx, idxlst);
if (fctflg)
eppic_type_setfct(t, 1);
eppic_pushref(t, ref + (nidx ? 1 : 0));
tstr_dup = (tstr) ? eppic_strdup(tstr) : eppic_strdup("");
/* Free the memory allocated by makedumpfile. */
free(tstr);
return tstr_dup;
}