From f5f6df5cef186b5aa16897732aa9db3e9e7f01b6 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 30 Sep 1998 02:45:44 +0000 Subject: [PATCH] open.c: Back out part of last Netlib update affecting scratch files which clashed with... 1998-09-28 Dave Love * 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 --- libf2c/ChangeLog | 6 ++++++ libf2c/libI77/open.c | 14 -------------- 2 files changed, 6 insertions(+), 14 deletions(-) diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 70bd9ba..461e941 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,9 @@ +1998-09-28 Dave Love + + * 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 * libI77/Version.c: Update. 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); } -- 2.7.4