diff options
| author | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-09-30 02:45:44 +0000 |
|---|---|---|
| committer | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-09-30 02:45:44 +0000 |
| commit | e0db618194dc42c216f53ed354e34f140358c7df (patch) | |
| tree | 61cc7510fcd97780f19c4b217d7681a756053989 | |
| parent | 265ab036ba930e88825e04a0c4684adb2b4a858a (diff) | |
| download | gcc-e0db618194dc42c216f53ed354e34f140358c7df.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@22660 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | libf2c/ChangeLog | 6 | ||||
| -rw-r--r-- | libf2c/libI77/open.c | 14 |
2 files changed, 6 insertions, 14 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 70bd9ba710d..461e9419057 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,9 @@ +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. + 1998-09-21 Dave Love <d.love@dl.ac.uk> * libI77/Version.c: Update. diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c index 29b7662b106..ad039f6d895 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); } |