suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid compiler warnings

Browse Source
This commit is contained in:
Matthew Flatt 2014-09-06 11:05:38 -06:00
parent c245ef4c67
commit f9f43a4be7
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/src/racket/src/port.c
View File

@ -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) */
/*--------------------------------------------*/