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

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

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 70bd9ba..461e941 100644 (file)
--- 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 29b7662..ad039f6 100644 (file)
--- 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);
        }