mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

fix bugs in primitive-poll

Browse source 
* libguile/poll.c (scm_primitive_poll): Only mark POLLOUT for output
  ports. Don't override results from the syscall, add to them.
This commit is contained in:
Andy Wingo 2010-12-13 20:25:36 +01:00
parent 998191fd4f
commit 557abc4978
1 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/poll.c
View file

@ -151,14 +151,24 @@ scm_primitive_poll (SCM pollfds, SCM nfds, SCM ports, SCM timeout)
if (pt->read_pos < pt->read_end)
/* Buffered input waiting to be read. */
revents |= POLLIN;
if (pt->write_pos < pt->write_end)
if (SCM_OUTPUT_PORT_P (port) && pt->write_pos < pt->write_end)
/* Buffered output possible. */
revents |= POLLOUT;
}
}
if ((fds[i].revents = revents & fds[i].events))
rv++;
/* Mask in the events we are interested, and test if any are
interesting. */
if ((revents &= fds[i].events))
{
/* Could be the underlying fd is also ready for reading. */
if (!fds[i].revents)
rv++;
/* In any case, add these events to whatever the syscall
set. */
fds[i].revents |= revents;
}
}
return scm_from_int (rv);