Commit 4def9c53 by Janne Blomqvist Committed by Paul Thomas

unix.c: Remove parts of patch of 2005/10/07 that cause input from the terminal to hang.

2005-10-12  Janne Blomqvist <jblomqvi@cc.hut.fi>

	* io/unix.c: Remove parts of patch of 2005/10/07 that cause
	input from the terminal to hang.

From-SVN: r105324
parent 9f92185e
2005-10-12 Janne Blomqvist <jblomqvi@cc.hut.fi>
* io/unix.c: Remove parts of patch of 2005/10/07 that cause
input from the terminal to hang.
2005-10-11 Steven G. Kargl <kargls@comcast.net>
PR libgfortran/24313
......
......@@ -440,7 +440,7 @@ static char *
fd_alloc_r_at (unix_stream * s, int *len, gfc_offset where)
{
gfc_offset m;
size_t n;
int n;
if (where == -1)
where = s->logical_offset;
......@@ -462,8 +462,8 @@ fd_alloc_r_at (unix_stream * s, int *len, gfc_offset where)
if (s->physical_offset != m && lseek (s->fd, m, SEEK_SET) < 0)
return NULL;
n = s->len - s->active;
if (do_read (s, s->buffer + s->active, &n) != 0)
n = read (s->fd, s->buffer + s->active, s->len - s->active);
if (n < 0)
return NULL;
s->physical_offset = where + n;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment