From f9f43a4be72396e01535a9f8e06df760f2837047 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 6 Sep 2014 11:05:38 -0600
Subject: [PATCH] avoid compiler warnings

---
 racket/src/racket/src/port.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/racket/src/racket/src/port.c b/racket/src/racket/src/port.c
index e797938598..abda20e15d 100644
--- a/racket/src/racket/src/port.c
+++ b/racket/src/racket/src/port.c
@@ -9658,6 +9658,16 @@ static Scheme_Object *subprocess(int c, Scheme_Object *args[])
   intptr_t spawn_status;
 #endif
 
+#if defined(PROCESS_FUNCTION) && !defined(MAC_CLASSIC_PROCESS_CONTROL)
+  /* avoid compiler warnings: */
+  to_subprocess[0] = -1;
+  to_subprocess[1] = -1;
+  from_subprocess[0] = -1;
+  from_subprocess[1] = -1;
+  err_subprocess[0] = -1;
+  err_subprocess[1] = -1;
+#endif
+
   /*--------------------------------------------*/
   /* Sort out ports (create later if necessary) */
   /*--------------------------------------------*/