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

fd read and write: avoid redundant O_NONBLOCK flag setting

Browse Source
This commit is contained in:
Matthew Flatt 2014-10-26 08:26:40 -06:00
parent b2509614e2
commit 2679638e74
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6554,10 +6554,12 @@ static int try_get_fd_char(int fd, int *ready)
unsigned char buf[1];
old_flags = fcntl(fd, F_GETFL, 0);
if (!(old_flags & MZ_NONBLOCKING))
fcntl(fd, F_SETFL, old_flags | MZ_NONBLOCKING);
do {
c = read(fd, buf, 1);
} while ((c == -1) && errno == EINTR);
if (!(old_flags & MZ_NONBLOCKING))
fcntl(fd, F_SETFL, old_flags);
if (c < 0) {
@ -6857,10 +6859,12 @@ static intptr_t fd_get_string_slow(Scheme_Input_Port *port,
int old_flags;
old_flags = fcntl(fip->fd, F_GETFL, 0);
if (!(old_flags & MZ_NONBLOCKING))
fcntl(fip->fd, F_SETFL, old_flags | MZ_NONBLOCKING);
do {
bc = read(fip->fd, target + target_offset, target_size);
} while ((bc == -1) && errno == EINTR);
if (!(old_flags & MZ_NONBLOCKING))
fcntl(fip->fd, F_SETFL, old_flags);
if ((bc == -1) && (errno == EAGAIN)) {
@ -8125,6 +8129,7 @@ static intptr_t flush_fd(Scheme_Output_Port *op,
intptr_t amt;
flags = fcntl(fop->fd, F_GETFL, 0);
if (!(flags & MZ_NONBLOCKING))
fcntl(fop->fd, F_SETFL, flags | MZ_NONBLOCKING);
amt = buflen - offset;
@ -8141,6 +8146,7 @@ static intptr_t flush_fd(Scheme_Output_Port *op,
} while ((len == -1) && (errno == EAGAIN) && (amt > 0));
errsaved = errno;
if (!(flags & MZ_NONBLOCKING))
fcntl(fop->fd, F_SETFL, flags);
full_write_buffer = (errsaved == EAGAIN);