diff options
author | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-10 14:40:59 +0000 |
---|---|---|
committer | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-10 14:40:59 +0000 |
commit | 6db9aef0328beee539ee51e75e852e271a78c69c (patch) | |
tree | 2f60c099d0dc5fc900d95fee36cf23700d91cb55 | |
parent | 460fb0a0486c7b8fc34902e4834ff65da18611b8 (diff) | |
download | gcc-6db9aef0328beee539ee51e75e852e271a78c69c.tar.gz |
Update to Netlib version of 1999-05-10
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26864 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | libf2c/ChangeLog | 8 | ||||
-rw-r--r-- | libf2c/changes.netlib | 15 | ||||
-rw-r--r-- | libf2c/libF77/Version.c | 4 | ||||
-rw-r--r-- | libf2c/libF77/abort_.c | 4 | ||||
-rw-r--r-- | libf2c/libF77/c_log.c | 6 | ||||
-rw-r--r-- | libf2c/libF77/ef1asc_.c | 4 | ||||
-rw-r--r-- | libf2c/libF77/s_rnge.c | 4 | ||||
-rw-r--r-- | libf2c/libF77/s_stop.c | 9 | ||||
-rw-r--r-- | libf2c/libI77/Version.c | 3 | ||||
-rw-r--r-- | libf2c/libI77/open.c | 4 | ||||
-rw-r--r-- | libf2c/readme.netlib | 39 |
11 files changed, 64 insertions, 36 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 738f1f18182..6d16a161263 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,11 @@ +Mon May 10 17:33:45 1999 Craig Burley <craig@jcb-sc.com> + + Update to Netlib version of 1999-05-10: + * changes.netlib, libF77/Version.c, libF77/abort_.c, + libF77/c_log.c, libF77/ef1asc_.c, libF77/s_rnge.c, + libF77/s_stop.c, libI77/Version.c, libI77/open.c, + readme.netlib: See changes.netlib for info. + Fri May 7 9:33:55 1999 Donn Terry (donn@interix.com) * libU77/dtime_.c (G77_dtime_0): Standard-conforming error check. diff --git a/libf2c/changes.netlib b/libf2c/changes.netlib index cbb6ee36082..a5252202bdb 100644 --- a/libf2c/changes.netlib +++ b/libf2c/changes.netlib @@ -3003,7 +3003,14 @@ Sun May 2 22:38:25 EDT 1999 libf77, libi77, libf2c.zip: make getenv_() more portable (call getenv() rather than knowing about char **environ); adjust some complex intrinsics to work with overlapping arguments (caused by -illegal use of equivalence); open.c: get "external" versus "internal" -right in the error message if a file cannot be opened; err.c: cast a -pointer difference to (int) for %d; rdfmt.c: omit fixed-length buffer -that could be overwritten by formats Inn or Lnn with nn > 83. +inappropriate use of equivalence); open.c: get "external" versus +"internal" right in the error message if a file cannot be opened; +err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit +fixed-length buffer that could be overwritten by formats Inn or Lnn +with nn > 83. + +Mon May 3 13:14:07 EDT 1999 + "Invisible" changes to omit a few compiler warnings in f2c and +libf2c; two new casts in libf2c/open.c that matter with 64-bit longs, +and one more tweak (libf2c/c_log.c) for pathological equivalences. + Minor update to "fc" script: new -L flag and comment correction. diff --git a/libf2c/libF77/Version.c b/libf2c/libF77/Version.c index a31379f510b..98a91098976 100644 --- a/libf2c/libF77/Version.c +++ b/libf2c/libF77/Version.c @@ -1,4 +1,4 @@ -static char junk[] = "\n@(#)LIBF77 VERSION 19990502\n"; +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* */ @@ -59,6 +59,8 @@ char __G77_LIBF77_VERSION__[] = "0.5.24"; c_cos.c, c_exp.c, c_sin.c, d_cnjg.c, r_cnjg.c, z_cos.c, z_exp.c, z_log.c, z_sin.c: cope fully with overlapping arguments caused by equivalence. + 3 May 1999: "invisible" tweaks to omit compiler warnings in + abort_.c, ef1asc_.c, s_rnge.c, s_stop.c. */ #include <stdio.h> diff --git a/libf2c/libF77/abort_.c b/libf2c/libF77/abort_.c index 8efdc42f970..f0c2f8df359 100644 --- a/libf2c/libF77/abort_.c +++ b/libf2c/libF77/abort_.c @@ -12,7 +12,5 @@ int G77_abort_0 (void) #endif { sig_die("Fortran abort routine called", 1); -#ifdef __cplusplus -return 0; -#endif +return 0; /* not reached */ } diff --git a/libf2c/libF77/c_log.c b/libf2c/libF77/c_log.c index 6e3df66653b..24d1a3c957b 100644 --- a/libf2c/libF77/c_log.c +++ b/libf2c/libF77/c_log.c @@ -11,7 +11,7 @@ extern double f__cabs(double, double); void c_log(complex *r, complex *z) #endif { - double zi = z->i, zr = z->r; - r->i = atan2(zi, zr); - r->r = log( f__cabs( zr, zi ) ); + double zi, zr; + r->i = atan2(zi = z->i, zr = z->r); + r->r = log( f__cabs(zr, zi) ); } diff --git a/libf2c/libF77/ef1asc_.c b/libf2c/libF77/ef1asc_.c index a922a1d9ba9..8588584fbab 100644 --- a/libf2c/libF77/ef1asc_.c +++ b/libf2c/libF77/ef1asc_.c @@ -15,7 +15,5 @@ int G77_ef1asc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb) #endif { s_copy( (char *)a, (char *)b, EVEN(*la), *lb ); -#ifdef __cplusplus -return 0; -#endif +return 0; /* ignored return value */ } diff --git a/libf2c/libF77/s_rnge.c b/libf2c/libF77/s_rnge.c index 189b5247ced..fbe3219d580 100644 --- a/libf2c/libF77/s_rnge.c +++ b/libf2c/libF77/s_rnge.c @@ -20,7 +20,5 @@ fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1 while((i = *varn) && i != ' ') putc(*varn++, stderr); sig_die(".", 1); -#ifdef __cplusplus -return 0; -#endif +return 0; /* not reached */ } diff --git a/libf2c/libF77/s_stop.c b/libf2c/libF77/s_stop.c index 2e3f1035b30..975edb7d4ad 100644 --- a/libf2c/libF77/s_stop.c +++ b/libf2c/libF77/s_stop.c @@ -30,8 +30,13 @@ if(n > 0) f_exit(); #endif exit(0); -#ifdef __cplusplus + +/* We cannot avoid (useless) compiler diagnostics here: */ +/* some compilers complain if there is no return statement, */ +/* and others complain that this one cannot be reached. */ + return 0; /* NOT REACHED */ } -#endif +#ifdef __cplusplus } +#endif diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c index a475702b9be..c5cf773bf23 100644 --- a/libf2c/libI77/Version.c +++ b/libf2c/libI77/Version.c @@ -1,4 +1,4 @@ -static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990502\n"; +static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990503\n"; /* */ @@ -300,6 +300,7 @@ wrtfmt.c: err.c: cast a pointer difference to (int) for %d. rdfmt.c: omit fixed-length buffer that could be overwritten by formats Inn or Lnn with nn > 83. */ +/* 3 May 1999: open.c: insert two casts for machines with 64-bit longs. */ diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c index dd47bddb9e1..3e4c8bc32b5 100644 --- a/libf2c/libI77/open.c +++ b/libf2c/libI77/open.c @@ -187,7 +187,7 @@ integer f_open(olist *a) opnerr(a->oerr,107,"open"); } else - sprintf(buf, "fort.%ld", a->ounit); + sprintf(buf, "fort.%ld", (long)a->ounit); b->uscrtch = 0; b->uend=0; b->uwrt = 0; @@ -281,7 +281,7 @@ fk_open(int seq, int fmt, ftnint n) int rtn; int save_init; - (void) sprintf(nbuf,"fort.%ld",n); + (void) sprintf(nbuf,"fort.%ld",(long)n); a.oerr=1; a.ounit=n; a.ofnm=nbuf; diff --git a/libf2c/readme.netlib b/libf2c/readme.netlib index e312984dc54..406a753cf30 100644 --- a/libf2c/readme.netlib +++ b/libf2c/readme.netlib @@ -698,10 +698,21 @@ Sun May 2 22:38:25 EDT 1999 libf77, libi77, libf2c.zip: make getenv_() more portable (call getenv() rather than knowing about char **environ); adjust some complex intrinsics to work with overlapping arguments (caused by -illegal use of equivalence); open.c: get "external" versus "internal" -right in the error message if a file cannot be opened; err.c: cast a -pointer difference to (int) for %d; rdfmt.c: omit fixed-length buffer -that could be overwritten by formats Inn or Lnn with nn > 83. +inappropriate use of equivalence); open.c: get "external" versus +"internal" right in the error message if a file cannot be opened; +err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit +fixed-length buffer that could be overwritten by formats Inn or Lnn +with nn > 83. + +Mon May 3 13:14:07 EDT 1999 + "Invisible" changes to omit a few compiler warnings in f2c and +libf2c; two new casts in libf2c/open.c that matter with 64-bit longs, +and one more tweak (libf2c/c_log.c) for pathological equivalences. + Minor update to "fc" script: new -L flag and comment correction. + +Tue May 4 10:06:26 EDT 1999 + libf77, libf2c.zip: forgot to copy yesterday's latest updates to +netlib. Current timestamps of files in "all from f2c/src", sorted by time, appear below (mm/dd/year hh:mm:ss). To bring your source up to date, @@ -709,17 +720,22 @@ obtain source files with a timestamp later than the time shown in your version.c. Note that the time shown in the current version.c is the timestamp of the source module that immediately follows version.c below: - 3/28/1999 13:16:27 xsum0.out - 3/26/1999 23:18:20 version.c + 5/03/1999 12:46:15 version.c + 5/03/1999 12:39:35 formatdata.c + 5/03/1999 12:31:14 format.c + 5/03/1999 12:27:17 p1output.c + 5/03/1999 12:27:17 data.c + 5/03/1999 10:01:12 xsum0.out + 5/03/1999 9:59:36 io.c + 5/03/1999 9:59:36 misc.c + 5/03/1999 9:59:36 init.c 3/26/1999 23:18:11 lex.c 3/11/1999 16:44:17 expr.c 3/11/1999 16:42:42 exec.c 2/10/1999 17:43:01 defs.h - 9/13/1998 22:18:21 format.c 9/08/1998 10:16:51 f2c.1 9/08/1998 10:16:48 f2c.1t 9/08/1998 10:14:53 intr.c - 8/31/1998 10:13:22 formatdata.c 5/16/1998 16:55:49 output.c 4/03/1998 17:15:05 gram.c 4/03/1998 17:14:59 gram.dcl @@ -732,8 +748,6 @@ timestamp of the source module that immediately follows version.c below: 7/21/1997 12:58:44 proc.c 2/11/1997 23:39:14 vax.c 12/04/1996 13:07:53 gram.exec -10/01/1996 14:36:18 init.c -10/01/1996 14:36:17 data.c 9/12/1996 12:12:46 equiv.c 8/26/1996 9:41:13 sysdep.c 7/09/1996 10:40:45 names.c @@ -741,12 +755,9 @@ timestamp of the source module that immediately follows version.c below: 7/04/1996 9:55:43 put.c 7/04/1996 9:55:41 pread.c 7/04/1996 9:55:40 parse_args.c - 7/04/1996 9:55:40 p1output.c - 7/04/1996 9:55:37 misc.c - 7/04/1996 9:55:36 memset.c 7/04/1996 9:55:36 mem.c + 7/04/1996 9:55:36 memset.c 7/04/1996 9:55:35 main.c - 7/04/1996 9:55:33 io.c 7/04/1996 9:55:29 error.c 7/04/1996 9:55:27 cds.c 7/03/1996 15:47:49 xsum.c |