Added Pascal support

1990-12-11 13:53:01 +00:00
parent f997bd0be8
commit 64f8785d20
13 changed files with 566 additions and 24 deletions
--- a/util/grind/run.c
+++ b/util/grind/run.c
@@ -203,10 +203,14 @@ start_child(p)
 	exit(1);
  }

-  /* debugger; don't close fild1[0] and fild2[1]; we want those file
-     descriptors occupied!
+  /* close fild1[0] and fild2[1]; but we want those file descriptors occupied,
+     so we re-occupy them.
  */

+  close(fild1[0]);
+  close(fild2[1]);
+  pipe(fild1);		/* to occupy file descriptors */
+
  signal(SIGPIPE, catch_sigpipe);
  {
 	struct message_hdr m;