Mercurial > gub
diff patches/guile-1.9.15-mingw-fports.patch @ 6485:919f33e40679
mingw::guile: fix socket and compiling.
author | Jan Nieuwenhuizen <janneke@gnu.org> |
---|---|
date | Thu, 03 Feb 2011 23:57:03 +0100 |
parents | |
children | d4eb26e165e4 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/patches/guile-1.9.15-mingw-fports.patch Thu Feb 03 23:57:03 2011 +0100 @@ -0,0 +1,16 @@ +--- guile-1.9.15/libguile/fports.c~ 2011-02-03 23:32:32.643031297 +0100 ++++ guile-1.9.15/libguile/fports.c 2011-02-03 23:37:56.194764854 +0100 +@@ -503,8 +503,11 @@ static int getflags (int fdes) + { + /* Or an anonymous pipe handle ? */ + if (buf.st_mode & _S_IFIFO) +- flags = PeekNamedPipe ((HANDLE) _get_osfhandle (fdes), NULL, 0, +- NULL, NULL, NULL) ? O_RDONLY : O_WRONLY; ++ { ++ flags = PeekNamedPipe ((HANDLE) _get_osfhandle (fdes), NULL, 0, ++ NULL, NULL, NULL) ? O_RDONLY : O_WRONLY; ++ flags = O_WRONLY; ++ } + /* stdin ? */ + else if (fdes == fileno (stdin) && isatty (fdes)) + flags = O_RDONLY;