From 49fd9f9377dc33d08c708f34d006b7dce148afea Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Wed, 12 Sep 1990 17:32:31 +0000
Subject: [PATCH] 'x(x) int x; { }' was not accepted

---
 lang/cem/cemcom/code.c | 5 +++++
 1 file changed, 5 insertions(+)

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
-- 
2.34.1