Mercurial > gub

annotate patches/guile-1.9.15-mingw-fports.patch @ 6488:5241c71e066c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Thinko.
author Jan Nieuwenhuizen <janneke@gnu.org>
date Fri, 04 Feb 2011 00:47:47 +0100
parents 919f33e40679
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6485
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
1 --- guile-1.9.15/libguile/fports.c~ 2011-02-03 23:32:32.643031297 +0100
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
2 +++ guile-1.9.15/libguile/fports.c 2011-02-03 23:37:56.194764854 +0100
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
3 @@ -503,8 +503,11 @@ static int getflags (int fdes)
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
4 {
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
5 /* Or an anonymous pipe handle ? */
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
6 if (buf.st_mode & _S_IFIFO)
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
7 - flags = PeekNamedPipe ((HANDLE) _get_osfhandle (fdes), NULL, 0,
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
8 - NULL, NULL, NULL) ? O_RDONLY : O_WRONLY;
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
9 + {
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
10 + flags = PeekNamedPipe ((HANDLE) _get_osfhandle (fdes), NULL, 0,
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
11 + NULL, NULL, NULL) ? O_RDONLY : O_WRONLY;
6488
5241c71e066c Thinko.
Jan Nieuwenhuizen <janneke@gnu.org>
parents: 6485
diff changeset
12 + flags = O_RDWR;
6485
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
13 + }
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
14 /* stdin ? */
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
15 else if (fdes == fileno (stdin) && isatty (fdes))
919f33e40679 mingw::guile: fix socket and compiling.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
16 flags = O_RDONLY;