d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Bug fix: ch7sel should call any2opnd

Browse source
This commit is contained in:
ceriel 1987-07-06 18:24:46 +00:00
parent 69843cf9ce
commit 85421efb19
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lang/cem/cemcom/ch7.c
View file

@ -33,10 +33,13 @@ ch7sel(expp, oper, idf)
/* The selector idf is applied to *expp; oper may be '.' or /* The selector idf is applied to *expp; oper may be '.' or
ARROW. ARROW.
*/ */
register struct expr *exp = *expp; register struct expr *exp;
register struct type *tp = exp->ex_type; register struct type *tp;
register struct sdef *sd; register struct sdef *sd;
any2opnd(expp, oper);
exp = *expp;
tp = exp->ex_type;
if (oper == ARROW) { if (oper == ARROW) {
if (tp->tp_fund == POINTER) /* normal case */ if (tp->tp_fund == POINTER) /* normal case */
tp = tp->tp_up; tp = tp->tp_up;
@ -44,11 +47,8 @@ ch7sel(expp, oper, idf)
"char c; c->selector" "char c; c->selector"
*/ */
switch (tp->tp_fund) { switch (tp->tp_fund) {
case CHAR:
case SHORT:
case INT: case INT:
case LONG: case LONG:
case ENUM:
/* Allowed by RM 14.1 */ /* Allowed by RM 14.1 */
ch7cast(expp, CAST, pa_type); ch7cast(expp, CAST, pa_type);
sd = idf2sdef(idf, tp); sd = idf2sdef(idf, tp);
@ -76,11 +76,8 @@ ch7sel(expp, oper, idf)
case STRUCT: case STRUCT:
case UNION: case UNION:
break; break;
case CHAR:
case SHORT:
case INT: case INT:
case LONG: case LONG:
case ENUM:
/* warning will be given by idf2sdef() */ /* warning will be given by idf2sdef() */
break; break;
default: default: