int
canaddr(NODE *p)
{
int o = p->n_op;
if (o==NAME || o==REG || o==ICON || o==OREG ||
(o==UMUL && shumul(p->n_left, SOREG)))
return(1);
return(0);
}
/*
* Does the bitfield shape match?
*/
int
flshape(NODE * p)
{
int o = p->n_op;
if (o == OREG || o == REG || o == NAME)
return SRDIR; /* Direct match */
if (o == UMUL && shumul(p->n_left, SOREG))
return SROREG; /* Convert into oreg */
return SRREG; /* put it into a register */
}
/*
* return true if shape is appropriate for the node p
*
* Return values:
* SRNOPE Cannot match this shape.
* SRDIR Direct match, may or may not traverse down.
* SRREG Will match if put in a regster XXX - kill this?
*/
int
tshape(NODE *p, int shape)
{
int o, mask;
o = p->n_op;
#ifdef PCC_DEBUG
if (s2debug)
printf("tshape(%p, %s) op = %s\n", p, prcook(shape), opst[o]);
#endif
if (shape & SPECIAL) {
switch (shape) {
case SZERO:
case SONE:
case SMONE:
case SSCON:
case SCCON:
if (o != ICON || p->n_name[0])
return SRNOPE;
if (getlval(p)== 0 && shape == SZERO)
return SRDIR;
if (getlval(p) == 1 && shape == SONE)
return SRDIR;
if (getlval(p) == -1 && shape == SMONE)
return SRDIR;
if (getlval(p) > -257 && getlval(p) < 256 &&
shape == SCCON)
return SRDIR;
if (getlval(p) > -32769 && getlval(p) < 32768 &&
shape == SSCON)
return SRDIR;
return SRNOPE;
case SSOREG: /* non-indexed OREG */
if (o == OREG && !R2TEST(p->n_rval))
return SRDIR;
return SRNOPE;
default:
return (special(p, shape));
}
}
if (shape & SANY)
return SRDIR;
if ((shape&INTEMP) && shtemp(p)) /* XXX remove? */
return SRDIR;
if ((shape&SWADD) && (o==NAME||o==OREG))
if (BYTEOFF(getlval(p)))
return SRNOPE;
switch (o) {
case NAME:
if (shape & SNAME)
return SRDIR;
break;
case ICON:
case FCON:
if (shape & SCON)
return SRDIR;
break;
case FLD:
if (shape & SFLD)
return flshape(p->n_left);
break;
case CCODES:
if (shape & SCC)
return SRDIR;
break;
case REG:
case TEMP:
mask = PCLASS(p);
if (shape & mask)
return SRDIR;
break;
case OREG:
if (shape & SOREG)
return SRDIR;
break;
case UMUL:
#if 0
if (shumul(p->n_left) & shape)
return SROREG; /* Calls offstar to traverse down */
break;
#else
return shumul(p->n_left, shape);
#endif
}
return SRNOPE;
}
