From: erikb <none@none>
Date: Mon, 10 Nov 1986 09:16:27 +0000 (+0000)
Subject: corrected the treatment of static functions declared on non-global level
X-Git-Tag: release-5-5~5160
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=6f8b72bfb3dfb2275c681645e4580b616465244c;p=ack.git

corrected the treatment of static functions declared on non-global level
---

diff --git a/lang/cem/cemcom/code.c b/lang/cem/cemcom/code.c
index 665dc38c1..696c99b55 100644
--- a/lang/cem/cemcom/code.c
+++ b/lang/cem/cemcom/code.c
@@ -338,6 +338,10 @@ code_declaration(idf, expr, lvl, sc)
 		/* STATIC, EXTERN, GLOBAL, IMPLICIT, AUTO or REGISTER */
 		switch (def_sc)	{
 		case STATIC:
+			if (def->df_type->tp_fund == FUNCTION) {
+				/* should produce "inp $function" ??? */
+				break;
+			}
 			/*	they are handled on the spot and get an
 				integer label in EM.
 			*/