OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libf2c/11918 (isatty does not call f_init)

Browse Source 
2003-09-21  Toon Moene  <toon@moene.indiv.nluug.nl>

	PR libf2c/11918
	* fstat_.c: Call f_init().
	* isatty_.c: Ditto.
	* fnum_.c: Check file descriptor before handing it back.

From-SVN: r71628
This commit is contained in:
Toon Moene 2003-09-21 18:16:46 +02:00 committed by Toon Moene
parent fa543fdda1
commit e94915267b
4 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libf2c/ChangeLog
View File

@ -1,3 +1,10 @@
2003-09-21 Toon Moene <toon@moene.indiv.nluug.nl>
PR libf2c/11918
* fstat_.c: Call f_init().
* isatty_.c: Ditto.
* fnum_.c: Check file descriptor before handing it back.
Tue Sep 9 15:22:57 2003 Alan Modra <amodra@bigpond.net.au>
* configure: Regenerate.

4
libf2c/libU77/fnum_.c
View File

@ -27,6 +27,10 @@ G77_fnum_0 (integer * lunit)
{
if (*lunit >= MXUNIT || *lunit < 0)
err (1, 101, "fnum");
if (f__units[*lunit].ufd == NULL)
err (1, 114, "fnum");
/* f__units is a table of descriptions for the unit numbers (defined
in io.h). Use file descriptor (ufd) and fileno rather than udev
field since udev is unix specific */

2
libf2c/libU77/fstat_.c
View File

@ -23,6 +23,7 @@ Boston, MA 02111-1307, USA. */
#include "config.h"
#endif
#include "f2c.h"
#include "fio.h"
#include <sys/types.h>
#include <sys/stat.h>
@ -34,6 +35,7 @@ G77_fstat_0 (const integer * lunit, integer statb[13])
int err;
struct stat buf;
if (f__init != 1) f_init();
err = fstat (G77_fnum_0 (lunit), &buf);
statb[0] = buf.st_dev;
statb[1] = buf.st_ino;

1
libf2c/libU77/isatty_.c
View File

@ -30,6 +30,7 @@ extern integer G77_fnum_0 (integer *);
logical
G77_isatty_0 (integer * lunit)
{
if (f__init != 1) f_init();
if (*lunit >= MXUNIT || *lunit < 0)
err (1, 101, "isatty");
/* f__units is a table of descriptions for the unit numbers (defined