From 6f8b72bfb3dfb2275c681645e4580b616465244c Mon Sep 17 00:00:00 2001
From: erikb <none@none>
Date: Mon, 10 Nov 1986 09:16:27 +0000
Subject: [PATCH] corrected the treatment of static functions declared on
 non-global level

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

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.
 			*/
-- 
2.34.1