From de0048e96b43a0815ea296e0a4726cc04bbea573 Mon Sep 17 00:00:00 2001 From: ceriel Date: Fri, 10 Jun 1988 15:39:05 +0000 Subject: [PATCH] don't throw away external procedures --- util/ego/il/il2_aux.c | 2 ++ 1 file changed, 2 insertions(+) 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); -- 2.34.1