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/ncg/codegen.c
+++ b/mach/proto/ncg/codegen.c
@@ -852,8 +852,14 @@ normalfailed:	if (stackpad!=tokpatlen) {
 			break;
 		}
 	}
-	if (!toplevel)
-		ply += emrepllen;
+	if (!toplevel) {
+		if (ply >= j) ply = emrepllen + ply - j;
+		else ply = emrepllen;
+#ifndef NDEBUG
+		if (Debug > 4) 
+			fprintf(stderr, "ply becomes %d\n", ply);
+#endif
+	}
 	break;
    }
    case DO_COST: {