godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions 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 0fb50b4aa7
commit bbd6ccd8cb
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
ARROW.
*/
register struct expr *exp = *expp;
register struct type *tp = exp->ex_type;
register struct expr *exp;
register struct type *tp;
register struct sdef *sd;
any2opnd(expp, oper);
exp = *expp;
tp = exp->ex_type;
if (oper == ARROW) {
if (tp->tp_fund == POINTER) /* normal case */
tp = tp->tp_up;
@ -44,11 +47,8 @@ ch7sel(expp, oper, idf)
"char c; c->selector"
*/
switch (tp->tp_fund) {
case CHAR:
case SHORT:
case INT:
case LONG:
case ENUM:
/* Allowed by RM 14.1 */
ch7cast(expp, CAST, pa_type);
sd = idf2sdef(idf, tp);
@ -76,11 +76,8 @@ ch7sel(expp, oper, idf)
case STRUCT:
case UNION:
break;
case CHAR:
case SHORT:
case INT:
case LONG:
case ENUM:
/* warning will be given by idf2sdef() */
break;
default: