Mercurial > gub

comparison patches/guile-1.9.15-mingw-fports.patch @ 6485:919f33e40679

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mingw::guile: fix socket and compiling.
author Jan Nieuwenhuizen <janneke@gnu.org>
date Thu, 03 Feb 2011 23:57:03 +0100
parents
children d4eb26e165e4
comparison
equal deleted inserted replaced
6484:3553d0ab3a25 6485:919f33e40679
1 --- guile-1.9.15/libguile/fports.c~ 2011-02-03 23:32:32.643031297 +0100
2 +++ guile-1.9.15/libguile/fports.c 2011-02-03 23:37:56.194764854 +0100
3 @@ -503,8 +503,11 @@ static int getflags (int fdes)
4 {
5 /* Or an anonymous pipe handle ? */
6 if (buf.st_mode & _S_IFIFO)
7 - flags = PeekNamedPipe ((HANDLE) _get_osfhandle (fdes), NULL, 0,
8 - NULL, NULL, NULL) ? O_RDONLY : O_WRONLY;
9 + {
10 + flags = PeekNamedPipe ((HANDLE) _get_osfhandle (fdes), NULL, 0,
11 + NULL, NULL, NULL) ? O_RDONLY : O_WRONLY;
12 + flags = O_WRONLY;
13 + }
14 /* stdin ? */
15 else if (fdes == fileno (stdin) && isatty (fdes))
16 flags = O_RDONLY;