From 3891c03e0e880918b28dd466b3d0f0af76c0ef9e Mon Sep 17 00:00:00 2001 From: ceriel Date: Tue, 21 May 1991 14:11:27 +0000 Subject: [PATCH] prevent complaints about unused variables when they are used as var-param --- lang/pc/comp/chk_expr.c | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) diff --git a/lang/pc/comp/chk_expr.c b/lang/pc/comp/chk_expr.c index e42b7d237..fc4ec77df 100644 --- a/lang/pc/comp/chk_expr.c +++ b/lang/pc/comp/chk_expr.c @@ -65,15 +65,16 @@ MarkUsed(nd) } if( nd && nd->nd_class == Def ) { - if( !((nd->nd_def->df_flags & D_VARPAR) || - (nd->nd_def->df_kind == D_FIELD)) ) { - if( !(nd->nd_def->df_flags & D_SET) && - (nd->nd_def->df_scope == CurrentScope) ) - if( !is_anon_idf(nd->nd_def->df_idf) ) { + register struct def *df = nd->nd_def; + + if( df->df_kind != D_FIELD ) { + if( !(df->df_flags & (D_SET|D_VARPAR)) && + (df->df_scope == CurrentScope) ) + if( !is_anon_idf(df->df_idf) ) { warning("\"%s\" used before set", - nd->nd_def->df_idf->id_text); + df->df_idf->id_text); } - nd->nd_def->df_flags |= (D_USED | D_SET); + df->df_flags |= (D_USED | D_SET); } } } @@ -779,15 +780,17 @@ getarg(argp, bases, varaccess, name, paramtp) else return 0; } else if( varaccess ) { - if( !ChkVarPar(left, name) ) - return 0; + if( !ChkVarPar(left, name) ) { + MarkUsed(left); + return 0; + } } else if( !ChkExpression(left) ) { MarkUsed(left); return 0; } - if( !varaccess ) MarkUsed(left); + MarkUsed(left); if( !varaccess && bases == T_INTEGER && BaseType(left->nd_type)->tp_fund == T_LONG) { -- 2.34.1