From 7586aabf7d248c33d10f1c608f338f62905c2e1f Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
Date: Mon, 25 Apr 1988 12:55:25 +0000
Subject: [PATCH] generate scope info for functions

---
 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 1fb91cf6..13bde95b 100644
--- a/lang/cem/cemcom/code.c
+++ b/lang/cem/cemcom/code.c
@@ -364,6 +364,11 @@ code_declaration(idf, expr, lvl, sc)
 		return;
 	if (sc == EXTERN && expr && !is_anon_idf(idf))
 		error("%s is extern; cannot initialize", idf->id_text);
+#ifndef USE_TMP
+	if (def->df_type->tp_fund == FUNCTION) {
+		code_scope(idf->id_text, def);
+	}
+#endif
 	if (lvl == L_GLOBAL)	{	/* global variable	*/
 		/* is this an allocating declaration? */
 		if (	(sc == 0 || sc == STATIC)