From: ceriel <none@none>
Date: Fri, 10 Jun 1988 15:39:05 +0000 (+0000)
Subject: don't throw away external procedures
X-Git-Tag: release-5-5~3213
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=de0048e96b43a0815ea296e0a4726cc04bbea573;p=ack.git

don't throw away external procedures
---

diff --git a/util/ego/il/il2_aux.c b/util/ego/il/il2_aux.c
index c6651423d..0fbec72e8 100644
--- a/util/ego/il/il2_aux.c
+++ b/util/ego/il/il2_aux.c
@@ -323,6 +323,7 @@ STATIC bool is_dispensable(callee,ccf)
 	 */
 
 	if ((--callee->P_NRCALLED) == 0 &&
+	    (callee->p_flags1 & PF_EXTERNAL) == 0 &&
 	    (callee->p_flags1 & PF_LPI) == 0) {
 		DISPENSABLE(callee);
 		OUTTRACE("procedure %d can be removed",callee->p_id);
@@ -465,6 +466,7 @@ STATIC singles(cals)
 		} else {
 			if (c->cl_proc->P_NRCALLED == 1 &&
 			    !IS_CHANGED(c->cl_proc) &&
+			    (c->cl_proc->p_flags1 & PF_EXTERNAL) == 0 &&
 			    (c->cl_proc->p_flags1 & PF_LPI) == 0) {
 				c->cl_proc->P_NRCALLED = 0;
 				SELECTED(c);