godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 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 a38f239dd0
commit dc48b7545f
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 &&
(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);