diff options
| author | Dave Love <d.love@dl.ac.uk> | 1998-09-30 02:45:44 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-09-30 02:45:44 +0000 |
| commit | f5f6df5cef186b5aa16897732aa9db3e9e7f01b6 (patch) | |
| tree | 61cc7510fcd97780f19c4b217d7681a756053989 /libf2c/libI77 | |
| parent | bce1b48955c1d71f070e56f4928717e7866128b5 (diff) | |
| download | gcc-f5f6df5cef186b5aa16897732aa9db3e9e7f01b6.zip gcc-f5f6df5cef186b5aa16897732aa9db3e9e7f01b6.tar.gz gcc-f5f6df5cef186b5aa16897732aa9db3e9e7f01b6.tar.bz2 | |
open.c: Back out part of last Netlib update affecting scratch files which clashed with...
1998-09-28 Dave Love <d.love@dl.ac.uk>
* libI77/open.c: Back out part of last Netlib update affecting
scratch files which clashed with the g77 variations and broke
implicit endfile on rewind.
From-SVN: r22660
Diffstat (limited to 'libf2c/libI77')
| -rw-r--r-- | libf2c/libI77/open.c | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c index 29b7662..ad039f6 100644 --- a/libf2c/libI77/open.c +++ b/libf2c/libI77/open.c @@ -205,7 +205,6 @@ integer f_open(olist *a) case 's': case 'S': b->uscrtch=1; -#ifdef NON_ANSI_STDIO #ifdef HAVE_TEMPNAM /* Allow use of TMPDIR preferentially. */ s = tempnam (0, buf); if (strlen (s) >= sizeof (buf)) @@ -221,17 +220,6 @@ integer f_open(olist *a) #endif #endif /* ! defined (HAVE_TEMPNAM) */ goto replace; -#else - if (!(b->ufd = tmpfile())) - opnerr(a->oerr,errno,"open"); - b->ufnm = 0; -#ifndef NON_UNIX_STDIO - b->uinode = b->udev = -1; -#endif - b->useek = 1; - return 0; -#endif - case 'n': case 'N': #ifdef NON_POSIX_STDIO @@ -246,9 +234,7 @@ integer f_open(olist *a) /* no break */ case 'r': /* Fortran 90 replace option */ case 'R': -#ifdef NON_ANSI_STDIO replace: -#endif if (tf = fopen(buf,f__w_mode[0])) fclose(tf); } |