don't optimize when ms_gto

1987-10-02 12:52:29 +00:00
parent 1ac5d9c95a
commit 102a2b1061
9 changed files with 10 additions and 1 deletions
--- a/util/ego/il/il1_anal.c
+++ b/util/ego/il/il1_anal.c
@@ -54,7 +54,8 @@ apriori(proctab)
 	for (p = proctab; p != (proc_p) 0; p = p->p_next) {
 		if (!BODY_KNOWN(p)  ||
 		     ENVIRON(p) || RECURSIVE(p) ||
-		     PARAMS_UNKNOWN(p) || MANY_LOCALS(p)) {
+		     PARAMS_UNKNOWN(p) || MANY_LOCALS(p) ||
+		     IS_ENTERED_WITH_GTO(p)) {
 			 UNSUITABLE(p);
 #ifdef VERBOSE
 			if (BODY_KNOWN(p)) {