From: ceriel <none@none>
Date: Wed, 12 Sep 1990 17:32:31 +0000 (+0000)
Subject: 'x(x) int x; { }' was not accepted
X-Git-Tag: release-5-5~1549
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=49fd9f9377dc33d08c708f34d006b7dce148afea;p=ack.git

'x(x) int x; { }' was not accepted
---

diff --git a/lang/cem/cemcom/code.c b/lang/cem/cemcom/code.c
index 3ccd4b2f0..741055011 100644
--- a/lang/cem/cemcom/code.c
+++ b/lang/cem/cemcom/code.c
@@ -196,6 +196,11 @@ begin_proc(ds, idf)		/* to be called when entering a procedure */
 	register char *name = idf->id_text;
 	register struct def *def = idf->id_def;
 
+	while (def->df_level > L_GLOBAL) def = def->next;
+		/* idf->id_def does not indicate the right def structure
+		   when the function being defined has a parameter of the
+		   same name.
+		*/
 #ifndef PREPEND_SCOPES
 	code_scope(name, def);
 #endif	PREPEND_SCOPES