ply adaption was wrong for EM replacements

1992-12-17 12:52:21 +00:00
parent 77fdce183a
commit a96b52e85d
2 changed files with 12 additions and 4 deletions
--- a/mach/proto/cg/codegen.c
+++ b/mach/proto/cg/codegen.c
@@ -656,8 +656,10 @@ if (Debug > 1) fprintf(stderr, "cost after coercions: %u\n", t);
 			break;
 		}
 	}
-	if (!toplevel)
-		ply += emrepllen;
+	if (!toplevel) {
+		if (ply >= j) ply += emrepllen - j;
+		else ply = emrepllen;
+	}
 	break;
    case DO_COST:
 	DEBUG("COST");