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

open.c: Back out part of last Netlib update affecting scratch files which clashed with...

Browse Source 
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
This commit is contained in:
Dave Love 1998-09-30 02:45:44 +00:00 committed by Dave Love
parent bce1b48955
commit f5f6df5cef
2 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libf2c/ChangeLog
View File

@ -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.

14
libf2c/libI77/open.c
View File

@ -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);
}