Fix indeterminate wait for GC to proceed.

uniconproject · Oct 12, 2023 · aa7f720 · aa7f720
1 parent c605903
commit aa7f720
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/runtime/rsys.r b/src/runtime/rsys.r
@@ -198,9 +198,12 @@ struct b_file *fbp;
 	 }
 #endif					/* NT */
       errno = 0;
+      DEC_NARTHREADS;
       if ((c = fgetc(fd)) == '\n') {	/* \n terminates line */
+         INC_NARTHREADS_CONTROLLED;
 	 break;
          }
+      INC_NARTHREADS_CONTROLLED;
 
       if (c == '\r' && (fbp->status & Fs_Untrans) == 0) {
 	 /* \r terminates line in translated mode */