Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 13:37:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

not setting errno in sexp_maybe_block_port

Browse source
This commit is contained in:
Alex Shinn 2011-11-21 20:41:06 +09:00
parent af79b05f6d
commit 17b265e269
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
sexp.c
View file

@ -2087,20 +2087,21 @@ int sexp_maybe_block_port (sexp ctx, sexp in, int forcep) {
if (sexp_port_flags(in) == SEXP_PORT_UNKNOWN_FLAGS) if (sexp_port_flags(in) == SEXP_PORT_UNKNOWN_FLAGS)
sexp_port_flags(in) = fcntl(sexp_port_fileno(in), F_GETFL); sexp_port_flags(in) = fcntl(sexp_port_fileno(in), F_GETFL);
if (sexp_port_flags(in) & O_NONBLOCK) { if (sexp_port_flags(in) & O_NONBLOCK) {
errno = 0;
if (!forcep if (!forcep
&& (((c = sexp_read_char(ctx, in)) == EOF) && (((c = sexp_read_char(ctx, in)) == EOF)
&& (errno == EAGAIN) && sexp_port_stream(in)
&& sexp_opcodep((f=sexp_global(ctx, SEXP_G_THREADS_BLOCKER))))) { && ferror(sexp_port_stream(in)) && (errno == EAGAIN))) {
f = sexp_global(ctx, SEXP_G_THREADS_BLOCKER);
if (sexp_opcodep(f)) {
((sexp_proc2)sexp_opcode_func(f))(ctx, f, 1, in); ((sexp_proc2)sexp_opcode_func(f))(ctx, f, 1, in);
return 1; return 1;
} else { }
}
if (!forcep) sexp_push_char(ctx, c, in); if (!forcep) sexp_push_char(ctx, c, in);
sexp_port_blockedp(in) = 1; sexp_port_blockedp(in) = 1;
fcntl(sexp_port_fileno(in), F_SETFL, sexp_port_flags(in) & ~O_NONBLOCK); fcntl(sexp_port_fileno(in), F_SETFL, sexp_port_flags(in) & ~O_NONBLOCK);
} }
} }
}
return 0; return 0;
} }