d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

don't throw away external procedures

Browse source
This commit is contained in:
ceriel 1988-06-10 15:39:05 +00:00
parent 0c386e3032
commit de0048e96b
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
util/ego/il/il2_aux.c
View file

@ -323,6 +323,7 @@ STATIC bool is_dispensable(callee,ccf)
*/ */
if ((--callee->P_NRCALLED) == 0 && if ((--callee->P_NRCALLED) == 0 &&
(callee->p_flags1 & PF_EXTERNAL) == 0 &&
(callee->p_flags1 & PF_LPI) == 0) { (callee->p_flags1 & PF_LPI) == 0) {
DISPENSABLE(callee); DISPENSABLE(callee);
OUTTRACE("procedure %d can be removed",callee->p_id); OUTTRACE("procedure %d can be removed",callee->p_id);
@ -465,6 +466,7 @@ STATIC singles(cals)
} else { } else {
if (c->cl_proc->P_NRCALLED == 1 && if (c->cl_proc->P_NRCALLED == 1 &&
!IS_CHANGED(c->cl_proc) && !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_flags1 & PF_LPI) == 0) {
c->cl_proc->P_NRCALLED = 0; c->cl_proc->P_NRCALLED = 0;
SELECTED(c); SELECTED(c);