diff options
author | Craig Burley <burley@gnu.org> | 1998-05-19 11:01:52 +0000 |
---|---|---|
committer | Dave Love <fx@gcc.gnu.org> | 1998-05-19 11:01:52 +0000 |
commit | 6d3e8f6239565bad3095d0825338df98acfd2600 (patch) | |
tree | 9666b322eb27a6df17802f34c1bedef7ea3cb40c /libf2c | |
parent | a843efa0d4ff93324077fbd8b1fc57ed8f4b57f0 (diff) | |
download | gcc-6d3e8f6239565bad3095d0825338df98acfd2600.zip gcc-6d3e8f6239565bad3095d0825338df98acfd2600.tar.gz gcc-6d3e8f6239565bad3095d0825338df98acfd2600.tar.bz2 |
Tweaks to eliminate unnecessary differences vs.
Tweaks to eliminate unnecessary
differences vs. netlib libf2c.
From-SVN: r19878
Diffstat (limited to 'libf2c')
-rw-r--r-- | libf2c/libF77/Version.c | 2 | ||||
-rw-r--r-- | libf2c/libF77/signal_.c | 1 | ||||
-rw-r--r-- | libf2c/libI77/Version.c | 2 | ||||
-rw-r--r-- | libf2c/libI77/dfe.c | 2 | ||||
-rw-r--r-- | libf2c/libI77/due.c | 4 | ||||
-rw-r--r-- | libf2c/libI77/wsfe.c | 1 | ||||
-rw-r--r-- | libf2c/libU77/dbes.c | 2 |
7 files changed, 7 insertions, 7 deletions
diff --git a/libf2c/libF77/Version.c b/libf2c/libF77/Version.c index 2460a81..562d074 100644 --- a/libf2c/libF77/Version.c +++ b/libf2c/libF77/Version.c @@ -3,7 +3,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19970919\n"; /* */ -char __G77_LIBF77_VERSION__[] = "0.5.23-19980501"; +char __G77_LIBF77_VERSION__[] = "0.5.23-19980503"; /* 2.00 11 June 1980. File version.c added to library. diff --git a/libf2c/libF77/signal_.c b/libf2c/libF77/signal_.c index efd969b..b0d7ce6 100644 --- a/libf2c/libF77/signal_.c +++ b/libf2c/libF77/signal_.c @@ -14,4 +14,3 @@ G77_signal_0 (integer *sigp, sig_pf proc) return (void *) signal(sig, proc); } - diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c index 0cdeb88..6b7eed0 100644 --- a/libf2c/libI77/Version.c +++ b/libf2c/libI77/Version.c @@ -3,7 +3,7 @@ static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980405\n"; /* */ -char __G77_LIBI77_VERSION__[] = "0.5.23-19980502"; +char __G77_LIBI77_VERSION__[] = "0.5.23-19980503"; /* 2.01 $ format added diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c index 3a93659..e4bd565 100644 --- a/libf2c/libI77/dfe.c +++ b/libf2c/libI77/dfe.c @@ -81,7 +81,7 @@ c_dfe(cilist *a) f__fmtbuf=a->cifmt; if(a->cirec <= 0) err(a->cierr,130,"dfe"); - (void) fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET); + fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET); f__curunit->uend = 0; return(0); } diff --git a/libf2c/libI77/due.c b/libf2c/libI77/due.c index dec5865..9e28eb9 100644 --- a/libf2c/libI77/due.c +++ b/libf2c/libI77/due.c @@ -22,7 +22,7 @@ c_due(cilist *a) if(f__curunit->ufd==NULL) err(a->cierr,114,"cdue"); if(a->cirec <= 0) err(a->cierr,130,"due"); - (void) fseek(f__cf,(long)(a->cirec-1)*f__curunit->url,SEEK_SET); + fseek(f__cf,(long)(a->cirec-1)*f__curunit->url,SEEK_SET); f__curunit->uend = 0; return(0); } @@ -57,7 +57,7 @@ integer e_rdue(Void) f__init = 1; if(f__curunit->url==1 || f__recpos==f__curunit->url) return(0); - (void) fseek(f__cf,(long)(f__curunit->url-f__recpos),SEEK_CUR); + fseek(f__cf,(long)(f__curunit->url-f__recpos),SEEK_CUR); if(ftell(f__cf)%f__curunit->url) err(f__elist->cierr,200,"syserr"); return(0); diff --git a/libf2c/libI77/wsfe.c b/libf2c/libI77/wsfe.c index 6cb4e50..279fbf7 100644 --- a/libf2c/libI77/wsfe.c +++ b/libf2c/libI77/wsfe.c @@ -4,6 +4,7 @@ #include "fmt.h" extern int f__hiwater; + int x_wSL(Void) { int n = f__putbuf('\n'); diff --git a/libf2c/libU77/dbes.c b/libf2c/libU77/dbes.c index 8c245cf..1ef5978 100644 --- a/libf2c/libU77/dbes.c +++ b/libf2c/libU77/dbes.c @@ -16,10 +16,10 @@ License along with GNU Fortran; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ +#if 0 /* Don't include these unless necessary -- dnp. */ #include "f2c.h" #include <math.h> -#if 0 /* Don't include these unless necessary -- dnp. */ double G77_dbesj0_0 (const double *x) { return j0 (*x); } |