From: ceriel <none@none>
Date: Tue, 21 May 1991 14:11:27 +0000 (+0000)
Subject: prevent complaints about unused variables when they are used as var-param
X-Git-Tag: release-5-5~1115
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=3891c03e0e880918b28dd466b3d0f0af76c0ef9e;p=ack.git

prevent complaints about unused variables when they are used as var-param
---

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) {