targ_size_t size(tym_t ty)
{
int sz = (tybasic(ty) == TYvoid) ? 1 : tysize(ty);
#ifdef DEBUG
if (sz == -1)
WRTYxx(ty);
#endif
assert(sz!= -1);
return sz;
}
void type_print(type *t)
{
type_debug(t);
dbg_printf("Tty="); WRTYxx(t->Tty);
dbg_printf(" Tmangle=%d",t->Tmangle);
dbg_printf(" Tflags=x%x",t->Tflags);
dbg_printf(" Tcount=%d",t->Tcount);
if (!(t->Tflags & TFsizeunknown) &&
tybasic(t->Tty) != TYvoid &&
tybasic(t->Tty) != TYident &&
tybasic(t->Tty) != TYmfunc &&
tybasic(t->Tty) != TYarray &&
tybasic(t->Tty) != TYtemplate)
dbg_printf(" Tsize=%ld",type_size(t));
dbg_printf(" Tnext=%p",t->Tnext);
switch (tybasic(t->Tty))
{ case TYstruct:
case TYmemptr:
dbg_printf(" Ttag=%p,'%s'",t->Ttag,t->Ttag->Sident);
//dbg_printf(" Sfldlst=%p",t->Ttag->Sstruct->Sfldlst);
break;
case TYarray:
dbg_printf(" Tdim=%ld",t->Tdim);
break;
case TYident:
dbg_printf(" Tident='%s'",t->Tident);
break;
case TYtemplate:
dbg_printf(" Tsym='%s'",((typetemp_t *)t)->Tsym->Sident);
{ param_t *p;
int i;
i = 1;
for (p = t->Tparamtypes; p; p = p->Pnext)
{ dbg_printf("\nTP%d (%p): ",i++,p);
fflush(stdout);
dbg_printf("Pident=%p,Ptype=%p,Pelem=%p,Pnext=%p ",p->Pident,p->Ptype,p->Pelem,p->Pnext);
param_debug(p);
if (p->Pident)
printf("'%s' ", p->Pident);
if (p->Ptype)
type_print(p->Ptype);
if (p->Pelem)
elem_print(p->Pelem);
}
}
break;
default:
if (tyfunc(t->Tty))
{ param_t *p;
int i;
i = 1;
for (p = t->Tparamtypes; p; p = p->Pnext)
{ dbg_printf("\nP%d (%p): ",i++,p);
fflush(stdout);
dbg_printf("Pident=%p,Ptype=%p,Pelem=%p,Pnext=%p ",p->Pident,p->Ptype,p->Pelem,p->Pnext);
param_debug(p);
if (p->Pident)
printf("'%s' ", p->Pident);
type_print(p->Ptype);
}
}
break;
}
dbg_printf("\n");
if (t->Tnext) type_print(t->Tnext);
}
targ_size_t type_size(type *t)
{ targ_size_t s;
unsigned long u;
tym_t tyb;
type_debug(t);
tyb = tybasic(t->Tty);
#ifdef DEBUG
if (tyb >= TYMAX)
/*type_print(t),*/
dbg_printf("tyb = x%lx\n",tyb);
#endif
assert(tyb < TYMAX);
s = tysize[tyb];
if (s == (targ_size_t) -1)
{
switch (tyb)
{
// in case program plays games with function pointers
case TYffunc:
case TYfpfunc:
#if TX86
case TYnfunc: /* in case program plays games with function pointers */
case TYhfunc:
case TYnpfunc:
case TYnsfunc:
case TYfsfunc:
case TYf16func:
case TYifunc:
case TYjfunc:
#endif
#if SCPP
if (ANSI)
synerr(EM_unknown_size,"function"); /* size of function is not known */
#endif
s = 1;
break;
case TYarray:
if (t->Tflags & TFsizeunknown)
{
#if SCPP
synerr(EM_unknown_size,"array"); /* size of array is unknown */
#endif
t->Tflags &= ~TFsizeunknown;
}
if (t->Tflags & TFvla)
{
s = tysize[pointertype];
break;
}
s = type_size(t->Tnext);
u = t->Tdim * (unsigned long) s;
#if TX86 && SCPP
type_chksize(u);
#endif
s = u;
break;
case TYstruct:
t = t->Ttag->Stype; /* find main instance */
/* (for const struct X) */
if (t->Tflags & TFsizeunknown)
{
#if SCPP
template_instantiate_forward(t->Ttag);
if (t->Tflags & TFsizeunknown)
synerr(EM_unknown_size,t->Tty & TYstruct ? prettyident(t->Ttag) : "struct");
t->Tflags &= ~TFsizeunknown;
#endif
}
assert(t->Ttag);
s = t->Ttag->Sstruct->Sstructsize;
break;
#if SCPP
case TYenum:
if (t->Ttag->Senum->SEflags & SENforward)
synerr(EM_unknown_size, prettyident(t->Ttag));
s = type_size(t->Tnext);
break;
#endif
case TYvoid:
#if SCPP && TARGET_WINDOS // GNUC allows it, so we will, too
synerr(EM_void_novalue); // voids have no value
#endif
s = 1;
break;
#if SCPP
case TYref:
case TYmemptr:
case TYvtshape:
s = tysize(tym_conv(t));
break;
case TYident:
synerr(EM_unknown_size, t->Tident);
s = 1;
break;
#endif
#if MARS
case TYref:
s = tysize(TYnptr);
break;
#endif
default:
#ifdef DEBUG
WRTYxx(t->Tty);
#endif
assert(0);
}
}
return s;
}
